| TK :: °è»ê±â :: RPN :: HP. TK :: °è»ê±â :: RPN :: HP Hewlett-Packard RPN °è»ê±â°¡ µé¾î ÀÖ½À´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
TK :: °è»ê±â :: RPN :: HP. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lusol/Tk-SlideSwitch-1.1/SlideSwitch.pm
TK :: °è»ê±â :: RPN :: HP. ű×
TK :: °è»ê±â :: RPN :: HP. ¼³¸í
TK :: Calculator :: RPN :: HP´Â Hewlett-Packard RPN °è»ê±â¸¦ Æ÷ÇÔÇÕ´Ï´Ù. TK :: Calculator :: RPN :: HP´Â Hewlett-Packard RPN Calculators.Synopsis »ç¿ë TK :: Calculator :: RPN :: HP; $ MW-> °è»ê±â (-type => '21'| '16C') -> ÆÑ; TK :: °è»ê±â :: RPN :: HP´Â Perl / TK Hewlett-Packard Reverse Polish Ç¥±â¹ýÀ»À§ÇÑ OO ±âº» Ŭ·¡½º ¹× ¼öÃâ ¸ðµâÀÔ´Ï´Ù. (RPN) °è»ê±â. ±âº» Ŭ·¡½º·Î ¸ðµç °è»ê±â¿¡ °øÅëµÈ ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, ½ºÅà Á¶ÀÛ, ±â´É Æò°¡ ¹× ÀνºÅϽº »ý¼º È°µ¿. µ¥ÀÌÅÍÀÇ ¼öÃâ¾÷Àڷμ Àü¿ª º¯¼ö¿Í ÇÔ¼ö subroutine definitions.tk::calculator:::RPN::hp´Â synopsis section.tk::calculator::rpn:hp¿¡¼¿Í °°ÀÌ ´ÜÀÏ »ý¼ºÀÚ, °è»ê±â¸¦ Á¦°øÇÕ´Ï´Ù. ¸ðµç °è»ê±â ¼ºê Ŭ·¡½º¿¡¼ »ç¿ëÇϴ ä¿ì±â ¸Þ¼ÒµåÀÇ µ¿ÀÇ. ¿ä±¸ÇÏ´Â À¯ÀÏÇÑ ¿É¼ÇÀº ¿ä±¸ »çÇ×ÀÌ -type, °è»ê±âÀÇ À¯ÇüÀÔ´Ï´Ù. ÁÖ¾îÁø, ä¿ì±â, ÇØ´ç ¸ðµâÀ» ä¿ì°í °øÅë ÀνºÅϽº »çÀü Ãʱâȸ¦ ¼öÇà ÇÑ ´ÙÀ½ Subclass 'ä¿ì±â ¸Þ¼Òµå¸¦ È£ÃâÇÏ¿© TK :: Calculator :: rpn :: hpÀÇ ½ÇÁ¦ °è»ê±â¸¦ ¸¸µì´Ï´Ù. $ TK :: °è»ê±â :: RPN :: HP_21 :: ¹öÀü = '1.2'; ÆÐÅ°Áö TK :: °è»ê±â :: RPN :: HP_21; TK :: À§Á¬ QW / SliDeswitch /;; TK :: Calculator :: RPN :: HP; ±âº» QW / TK :: °è»ê±â :: RPN :: HP /; ¾ö°ÝÇÑ »ç¿ë; ¿ì¸®ÀÇ $ µµ¿ò¸»; Sub ClassInit {My ($ class, $ mw) = @_; $ help = $ class-> build_help_window ($ mw); $ Ŭ·¡½º -> ½´ÆÛ :: °è¼¼±â ($ mw); } # end classinit sub ä¿ì±â {my ($ self, $ args) = @_; ... $ self-> build_help_button ($ frame1, $ help) -> ÆÑ (QW /-»çÀÌµå ¿ÞÂÊ /); ...} # end populate # ±â´É Å° ÇÁ·Î¼¼¼. SUB CLXCLR {MY ($ self) = @_; $ self-> {onoff}¸¦ »ç¿ëÇÏÁö ¾Ê´Â ÇÑ ¹Ýȯ; if ($ self-> {g_pressed}) {#clr $ self-> clr; } else {clx $ self-> clx; }} # End CLXCLR 1; º¸½Ã´Ù½ÃÇÇ ¸ðµâÀº ´Ü¼øÈ÷ Ç¥ÁØ PERL / TK MEGA-WIDGETÀÔ´Ï´Ù. BULD_HELP_WINDOW ¹× BULLIT_HELP_BUTTONÀÇ µÎ °¡Áö ¹æ¹ýÀ» È£ÃâÇؾßÇÕ´Ï´Ù. BUILD_HELP_WINDOW´Â ³ëÃâ µÉ ¶§ ³ëÃâ µÈ TOPLEVELÀ» ¸¸µì´Ï´Ù. ¹öÆ°À» ´©¸¨´Ï´Ù. build_help_buttonÀº ±×°ÍÀ» ºôµåÇÕ´Ï´Ù. ¹öÆ°À» ÀûÀýÇÏ°ÔÇϽʽÿÀ. ¸ðµç Ŭ·¡½º ÀνºÅϽº¿¡¼ Toplevel µµ¿ò¸» âÀÌ »ç¿ëµÇ¹Ç·Î ÀϹÝÀûÀ¸·Î Ŭ·¡½Ä¿¡¼ »ý¼ºµË´Ï´Ù. ¾ðÁ¦ ¾îµð¼ ¿øÇÏ´ÂÁö ºôµå _help_buttonÀ̶ó°í ºÎ¸¨´Ï±î? Packed.Alough ´ëºÎºÐÀÇ °è»ê±â ±â´ÉÀº ±âº» Ŭ·¡½º¿¡¼ Á¦°øµÇ¸ç, ÀÚü ±â´É Å° ÇÁ·Î¼¼¼¸¦ ÀÛ¼ºÇÏ´Â µ¥ ÇÊ¿äÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
TK :: °è»ê±â :: RPN :: HP. °ü·Ã ¼ÒÇÁÆ®¿þ¾î