TK :: °è»ê±â :: RPN :: HP.

TK :: °è»ê±â :: RPN :: HP Hewlett-Packard RPN °è»ê±â°¡ µé¾î ÀÖ½À´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

TK :: °è»ê±â :: RPN :: HP. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Steve Lidie
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

dbix :: objects.

DBIX :: Objects´Â µ¥ÀÌÅͺ£À̽º ¹ÙÀεù °´Ã¼ ÀÛ¼ºÀ» ½±°ÔÇϱâÀ§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. ...

165

´Ù¿î·Îµå