CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate: Re: [srhadden] Anyone familiar with TCL/TK and DialogBoxes?: Edit Log



srhadden
Novice

Dec 29, 2011, 3:22 PM


Views: 1053
Re: [srhadden] Anyone familiar with TCL/TK and DialogBoxes?

I figured this out eventually. The second button in the dialogbox is referred to as "button1" internally. I wrote a routine to grab a reference to it, and then I could set the state of it however I wanted.




sub getDBButtonRef {

my($dialogBox,$nameOfButton) = @_;

foreach ($dialogBox->children) {

$name = $_->name; $diag_child = $_;

if($name =~ /bottom/) {

foreach $d ($diag_child->children) {

print $d->name;

if($d->name =~ /$nameOfButton/){

return $d;

} } } } return undef; }


(This post was edited by srhadden on Dec 29, 2011, 3:23 PM)


Edit Log:
Post edited by srhadden (Novice) on Dec 29, 2011, 3:23 PM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives