Hi
First off: HAPPY NEW YEAR!
I have the following sub-codes:
$mw->fontCreate(qw/C_NORM -family Courier -size 9 /);
$mw->fontCreate(qw/C_BOLD -family Courier -size 9 -weight bold/);
.
.
$frames{'data-r'} = $frames{'data'}->Scrolled ('ROText', ...)->pack(
-side => 'top', -expand => 1, -fill => 'both', );
$frames{'data-r'}->tag(qw/configure norm foreground #000000 -font
C_NORM/);
$frames{'data-r'}->tag(qw/configure misc foreground #000000 -font
C_NORM/);
$frames{'data-r'}->tag( 'bind', "T$i", '<Control-p>' => sub {
&addforPrinting($i); } );
All the while, I have been using "tag" to bind events (as per examples i
found somewhere);
today, I reviewed TK's HTML documents (that came with activeperl) and could
not find any
information on "tag".
Can anyone help me "convert" these into "bind", and "configure"?
$frames{'data-r'}->tag(qw/configure misc foreground #000000 -font
C_NORM/);
$frames{'data-r'}->tag( 'bind', "T$i", '<Control-p>' => sub {
&addforPrinting($i); } );
Lastly, after several loops, my script is corrupted with unwanted binds such
that even
if I do not want bind for "T1", I am getting it because it existed in
previous loops.
How do I remove these unwanted Binds? My mistake was I assumed that this
code:
$frames{'data-r'}->delete('1.0','end');
would eliminate any binds within $frames{'data-r'} but apparently it does
not and only
deletes the "scrolled text" contents..
thanks
Dan
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
