| gtk2 :: ex :: ´ëÈ »óÀÚ GTK2 :: ex :: ´ëÈ »óÀÚ´Â Gnome2 / GTK2 Perl GUI µðÀÚÀÎÀ»À§ÇÑ À¯¿ëÇÑ µµ±¸°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
gtk2 :: ex :: ´ëÈ »óÀÚ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Kevin C. Krinke and James Greenhalgh
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kck/
gtk2 :: ex :: ´ëÈ »óÀÚ Å±×
gtk2 :: ex :: ´ëÈ »óÀÚ ¼³¸í
GTK2 :: EX :: Dialogs´Â Gnome2 / GTK2 Perl GUI µðÀÚÀÎÀ»À§ÇÑ À¯¿ëÇÑ µµ±¸°¡ÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. gtk2 :: ex :: ´ëÈ »óÀÚ´Â GNOME2 / GTK2 Perl GUI Design.Synopsis ¿ë À¯¿ëÇÑ µµ±¸¸¦ °®´Â Perl ¸ðµâÀ» »ç¿ëÇÕ´Ï´Ù. GTK2 :: EX :: Dialogs (destroy_with_parent => true, modal => true, no_separator => false) »ç¿ë # ¾ÛÀÇ ±âº» $ âÀ» ¸¸µå´Â °Í°ú °°Àº ¸î °¡Áö ÀÛ¾÷À» ¼öÇàÇϽʽÿÀ. # ¸ðµç ¸Þ½ÃÁö°¡ ¿Ã¹Ù¸¥ »óÀ§¸¦ »ç¿ëÇϵµ·Ï ¼³Á¤ÇÏ·Á¸é ´ÙÀ½À» ¼öÇàÇϽʽÿÀ. gtk2 :: ex :: dialogs-> set_parent_window ($ À©µµ¿ì); # Áö±Ý Æ˾÷ »õ ´ëÈ »óÀÚ ³» $ r = gtk2 :: ex :: dialogs :: question ( "Perl ¸¸ ÇØÄ¿ÀÇ Á¢ÂøÁ¦ ¸¸ ÀÖ½À´Ï±î?"); if ($ r) {# ÃÖÁ¾ »ç¿ëÀÚ°¡ ±×·¸°Ô »ý°¢ÇÕ´Ï´Ù} {# ÃÖÁ¾ »ç¿ëÀÚ°¡ ±×·¸°Ô »ý°¢ÇÏÁö ¾Ê½À´Ï´Ù} # ÀÌÁ¦ »õ ´ëÈ »óÀÚ°¡ Æ˾÷ (¸ÞÀÎ ·çÇÁ°¡ÀÖ´Â °æ¿ì ¸ÞÀÎ ·çÇÁ Â÷´Ü) new_and_run gtk2 :: ex :: dialogs :: ¸Þ½ÃÁö (Á¦¸ñ => "´ëÈ »óÀÚ Á¦¸ñ", ÅؽºÆ® => "ÀÌ°ÍÀº °£´ÜÇÑ ¸Þ½ÃÁöÀÔ´Ï´Ù"); # ÀÌÁ¦ »õ·Î¿î ´ëÈ »óÀÚ (¸ÞÀÎ ·çÇÁ°¡ÀÖ´Â °æ¿ì ¸ÞÀÎ ·çÇÁ Â÷´Ü) new_and_run gtk2 :: ex :: dialogs :: errormsg ( "°£´ÜÇÑ ¿À·ù ¸Þ½ÃÁö");ÀÌ ¸ðµâÀº gtk2 :: ex :: dialogs :: message¸¦ Á¦°øÇÕ´Ï´Ù. gtk2 :: ex :: dialogs :: errormsg ¹× gtk2 :: ex :: dialoghs :: Áú¹® gtk2 :: ex :: ´ëÈ »óÀÚ¸¦ »ç¿ëÇÏ¿© Ãʱ⠱⺻°ªÀ» ¼³Á¤ÇÏ´Â µ¿¾È Ãʱ⠱⺻°ªÀ» ¼³Á¤ÇÏ´Â µ¿¾È ÁÖ ÀÀ¿ë ÇÁ·Î±×·¥¿¡ ´ëÇÑ Áú¹® Ŭ·¡½º. ¿ä±¸ »çÇ× : ¡¤ Perl.
gtk2 :: ex :: ´ëÈ »óÀÚ °ü·Ã ¼ÒÇÁÆ®¿þ¾î