GTK2 :: Goard. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Marc Lehmann
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.goof.com/pcg/marc/
GTK2 :: Goard. ű×
GTK2 :: Goard. ¼³¸í
°íÇ°ÁúÀÇ Goban À§Á¬ GTK2 :: Goard´Â »ç¿îµå°¡ÀÖ´Â °íÇ°ÁúÀÇ Goban À§Á¬ÀÔ´Ï´Ù. Synopsis °ÔÀÓ :: Go :: Simpleboard; ³» $ Goard = Newe Games :: Go :: Simpleboard; GTK2 :: Goard¸¦ »ç¿ëÇϽʽÿÀ. MY $ GTKBOARD = NEW GTK2 :: Goard Size => 19; # ¾÷µ¥ÀÌÆ® º¸µå, $ gtkboard-> set_board ($ Goard)¸¦ ¸¸µì´Ï´Ù. # °í±Þ : ºí·¢ Ç÷¹ÀÌ¾î ¿ë ½ºÅæ Ä¿¼ »ç¿ë, # °ÔÀç # À¯È¿ÇÑ À̵¿ $ gtkboard-> set (cursor => sub {my ($ mark, $ x, $ y) = @_; $ mark | = mark_grayed | mark_b Goboard-> is_valid_move (Colour_White, $ x, $ y, $ ruleset == ruleset_new_zealand); $ mark}); # Button-Release ¹× -press À̺¥Æ® Æнº º¸µå ÁÂÇ¥ $ gtkboard-> signal_connect (button_release => sub {my ($ ¹öÆ°, $ x, $ y) = @_; ...}. ÀÌ°ÍÀº ¸Å¿ì ù ¹ø° "»ç½ÇÀÔ´Ï´Ù. "Perl.the GTK2 :: Goboard Ŭ·¡½º·Î ÀÛ¼ºµÈ GTK2 À§Á¬Àº ´Ù¸¥ À§Á¬°ú ¸¶Âù°¡Áö·Î ÀÛµ¿ÇÕ´Ï´Ù. »ç¿ë °¡´ÉÇÑ ¹æ¹ýÀÇ ÂªÀº ¿¹Á¦ ¹× »ç¿ë¹ý¿¡ ´ëÇÑ ¾Û :: IGS ¹× KGS ¸ðµâ¿¡ ´ëÇÑ ½Ã³ñ½Ã½º¸¦ ÂüÁ¶ÇϽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.
GTK2 :: Goard. °ü·Ã ¼ÒÇÁÆ®¿þ¾î