현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

Perl/Tk button관련하여 재문의 드립니다.(왕초보)

bluesolip의 이미지
글쓴이: bluesolip / 작성시간: 수, 2009/02/04 - 10:36오전

안녕하세요. Perl왕초보입니다.
Perl에 대해 잘 몰라 노가다로 여러번 시도 해봤지만 잘 안되어 문의 드립니다.
아래 소스에서 자동으로 버튼이 눌려지도록 eventGenerate() event를 넣었습니다.
어디에서 문제인지 수행이 안됩니다.
이런 문제까지 올리는게 조금 창피하지만 도움 부탁드립니다.

MakeFrame('test1','$tab12');
MakeButton("Update\ntest2",'&test3');

sub MakeFrame {
my($parent,$expression);
$frame = "\$$_[0]_fr";
$parent = $_[1];
$expression = "$frame = $parent->Frame( -relief => \'groove\',
-bd => 2)->pack( -side => \'top\',
-fill => \'both\',
-anchor => 'w'
);";
eval $expression;
}

sub MakeButton {
local($expression);
$expression = "$frame->Button( -text => \'$_[0]\',
-command => \\$_[1])->pack( -side => \'left\'); ";
eval $expression;

$test1_fr->eventGenerate('');
$test1_fr->eventGenerate('');
$test1_fr->eventGenerate('');

PS. 추가로 sub함수의 return값은 어디에 저장되나요?

Forums: 
프로그래밍 QnA
keedi의 이미지

글쓴이: keedi / 작성시간: 수, 2009/02/04 - 11:43오전

도움되시길 바랍니다. :)

#!/usr/bin/perl
 
use strict;
use warnings;
use Tk;
 
my $mw = MainWindow->new;
$mw->title( 'Perl/Tk :)' );
 
$mw->Label( -text => 'Generating Events' )->pack;
 
my $frame = $mw->Frame;
$frame->pack;
 
my $no = 0;
 
my $button = $frame->Button(
    -text    => 'Real Event',
    -command => sub {
        ++$no;
        print "clicked $no times.\n";
    },
)->pack(-side => 'left');
 
$frame->Button(
    -text    => 'Virtual Event',
    -command => sub {
        $button->eventGenerate('<Enter>');
        $button->eventGenerate('<ButtonPress-1>');
        $button->eventGenerate('<ButtonRelease-1>');
    },
)->pack(-side => 'left');
 
$frame->Button(
    -text    => 'Quit',
    -command => sub { exit },
)->pack(-side => 'left');
 
MainLoop;

---------------------------
Smashing Watermelons~!!
Whatever Nevermind~!!

Keedi Kim

----
use perl;

Keedi Kim

bluesolip의 이미지

글쓴이: bluesolip / 작성시간: 수, 2009/02/04 - 8:17오후

우선 답변 감사드립니다.
코드를 돌려보니 제가 원한게 아닌거 같습니다.
제가 하고 싶은건 위에서 button을 만들고 나서 소스 맨마지막에서 위에 만들었던 button에 자동으로 button press, release event를 날릴 수 있도록 하고 싶습니다.

알고 계시면 댓글 부탁드립니다.

keedi의 이미지

글쓴이: keedi / 작성시간: 목, 2009/02/05 - 6:54오전

예제로 올린 소스는 다른 버튼을 이용해서 옆의 버튼의 이벤트를 발생합시킵니다.
$button->eventGenerate() 부분이 자동으로 button press/release 하는 부분인데
이벤트를 날리는 코드를 원하셨던게 아닌가요? 흠...

---------------------------
Smashing Watermelons~!!
Whatever Nevermind~!!

Keedi Kim

----
use perl;

Keedi Kim

bluesolip의 이미지

글쓴이: bluesolip / 작성시간: 목, 2009/02/05 - 9:17오전

감사드립니다.
물론 원하는 코드인데요. 예제 소스는 자동으로 이벤트를 발생시키기 위해 또다른 버튼을 눌러야 하잖아요. 근데 그렇게 하지않고 소스 맨마지막에서 누르지 않고 위에 선언한 버튼을 자동으로 발생시키게 만드는 겁니다.

둘러보기