GTK2 :: Goard.

»ç¿îµå°¡ÀÖ´Â °íÇ°Áú Goban À§Á¬
Áö±Ý ´Ù¿î·Îµå

GTK2 :: Goard. ¼øÀ§ ¹× ¿ä¾à

±¤°í

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