| gtk2 :: ex :: ´ëÈ »óÀÚ :: question. GTK2 :: ex :: Dialogs :: Áú¹®Àº °£´ÜÇÑ Áú¹® ´ëÈ »óÀÚ¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
gtk2 :: ex :: ´ëÈ »óÀÚ :: question. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Kevin C. Krinke and James Greenhalgh
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kck/
gtk2 :: ex :: ´ëÈ »óÀÚ :: question. ű×
gtk2 :: ex :: ´ëÈ »óÀÚ :: question. ¼³¸í
gtk2 :: ex :: dialogs :: Áú¹®Àº °£´ÜÇÑ Áú¹® ´ëÈ »óÀÚ¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. gtk2 :: ex :: dialogs :: QuestionÀº °£´ÜÇÑ Áú¹® ´ëȸ¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. GTK2 :: ex :: ´ëÈ »óÀÚ :: Áú¹® (destroy_with_parent => true, modal => true, no_separator => false)À» »ç¿ëÇÕ´Ï´Ù. # ¾ÛÀÇ ±âº» $ âÀ» ¸¸µå´Â °Íó·³ ¸î °¡Áö ÀÛ¾÷, # ¸ðµç ¸Þ½ÃÁö°¡ ¿Ã¹Ù¸¥ »óÀ§¸¦ »ç¿ëÇÏ´ÂÁö È®ÀÎÇÏ·Á¸é ´ÙÀ½À» ¼³Á¤ÇϽʽÿÀ. $ gtk2 :: ex :: dialogs :: question :: pare parent_window = $ À©µµ¿ì; # Áö±Ý Æ˾÷ »õ ´ëÈ »óÀÚ ³» $ r = gtk2 :: ex :: dialogs :: question ( "Perl ¸¸ ÇØÄ¿ÀÇ Á¢ÂøÁ¦ ¸¸ ÀÖ½À´Ï±î?"); if ($ r) {# ÃÖÁ¾ »ç¿ëÀÚ°¡ ±×·¸°Ô »ý°¢ÇÑ´Ù} else {# ÃÖÁ¾ »ç¿ëÀÚ°¡ »ý°¢ÇÏÁö ¾Ê´Â´Ù}ÀÌ ¸ðµâÀº GTK2 :: Dialog¸¦ °´°üÀûÀ¸·Î ·¦ÇÏ´Â °£´ÜÇÑ ´ëÈ »óÀÚ API¸¦ Á¦°øÇÕ´Ï´Ù. ¸ñÇ¥´Â ±ú²ýÇÏ°í °£´ÜÇÑ Áú¹® ´ëÈ »óÀÚ ( "¾Æ´Ï¿À"¹× "¿¹"¹öÆ°)ÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
gtk2 :: ex :: ´ëÈ »óÀÚ :: question. °ü·Ã ¼ÒÇÁÆ®¿þ¾î