Perl/Tk button관련하여 재문의 드립니다.(왕초보)
안녕하세요. 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값은 어디에 저장되나요?
도움되시길
도움되시길 바랍니다. :)
---------------------------
Smashing Watermelons~!!
Whatever Nevermind~!!
Keedi Kim
----
use perl;
Keedi Kim
RE:도움되시길
우선 답변 감사드립니다.
코드를 돌려보니 제가 원한게 아닌거 같습니다.
제가 하고 싶은건 위에서 button을 만들고 나서 소스 맨마지막에서 위에 만들었던 button에 자동으로 button press, release event를 날릴 수 있도록 하고 싶습니다.
알고 계시면 댓글 부탁드립니다.
예제로 올린 소스는
예제로 올린 소스는 다른 버튼을 이용해서 옆의 버튼의 이벤트를 발생합시킵니다.
$button->eventGenerate() 부분이 자동으로 button press/release 하는 부분인데
이벤트를 날리는 코드를 원하셨던게 아닌가요? 흠...
---------------------------
Smashing Watermelons~!!
Whatever Nevermind~!!
Keedi Kim
----
use perl;
Keedi Kim
RE:예제로 올린 소스는
감사드립니다.
물론 원하는 코드인데요. 예제 소스는 자동으로 이벤트를 발생시키기 위해 또다른 버튼을 눌러야 하잖아요. 근데 그렇게 하지않고 소스 맨마지막에서 누르지 않고 위에 선언한 버튼을 자동으로 발생시키게 만드는 겁니다.
댓글 달기