RE: Forgetting and Recalling widgets
<[email protected]> Wed, 12 Sep 2007 09:03:18 -0600
| Newsgroups | gmane.comp.lang.perl.tk |
|---|---|
| Message-ID | <[email protected]> |
This is a multi-part message in MIME format.
--===============7743188539456322575==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C7F54E.0D6306BD"
This is a multi-part message in MIME format.
------_=_NextPart_001_01C7F54E.0D6306BD
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Henry, instead of creating a new Entry widget every time you want to
recall one, simple use the grid method on the existing widget to
re-display it:
=20
sub recall_CellA_cb() {
$CellA_Entry->grid( -row =3D> 0, -column =3D> 0);
}
=20
sub recall_CellB_cb() {
$CellB_Entry->grid( -row =3D> 0, -column =3D> 1);
}
-- Dave
=20
________________________________
From: [email protected]
[mailto:[email protected]] On Behalf Of Henry
Merryweather
Sent: Wednesday, September 12, 2007 3:04 AM
To: [email protected]
Subject: Forgetting and Recalling widgets
I want to selectively hide and then recall widgets and when I recall the
widget it would be good if the widget was exactly the same as when it
was hidden.
gridForget hides the widget. However, I cannot see a way of simply
recalling the widget with its contents the same as when it was
'forgotten'.
=20
I tested this with the Perl code below and attached. This gives two
columns where each column is:
1. an Entry box at the top=20
2. a Button to remove the Entry box at the top=20
3. a Button to recall the Entry box at the top.=20
=20
In both cases, the Button is recalled by using the same widget
definition as used when the GUI was created (but without setting the
contents of the Entry box). This seems to have the effect (as expected)
of overwriting the original definition so that the contents (when the
widget is 'forgotten') are lost. To overcome this:
1. I saved the contents of the Entry widget before using gridForget
for the first column - in sub forget_CellA_cb;=20
2. I retrieved the contents of the Entry widget after using
gridForget but before using the re-definition for the second column - in
sub recall_CellB_cb.=20
=20
Both worked. This also showed that the contents of the second Entry box
were available even though this had been forgotten.
=20
The question is, is there a way of recalling the 'forgotten' widget with
its contents intact without any additional code?
=20
# this tests the forget for a grid widget
=20
use Tk;
use strict "vars";
=20
my ($mw_Main, );
my ($CellA_Entry, $CellB_Entry, $CellC_Entry);
my ($CellA_Text, $CellB_Text, $CellC_Text);
=20
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
#
# forget call backs
#
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=20
sub forget_CellA_cb() {
=20
$CellA_Text =3D $CellA_Entry->get();
$CellA_Entry->gridForget();
=20
=20
}
=20
sub forget_CellB_cb() {
=20
$CellB_Entry->gridForget();
=20
}
=20
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
#
# recall call backs
#
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=20
sub recall_CellA_cb() {
=20
$CellA_Entry =3D $mw_Main->Entry(-width =3D> 6)->grid( -row =3D> 0, =
-column =3D>
0);
$CellA_Entry->configure(-text =3D> $CellA_Text);
}
=20
sub recall_CellB_cb() {
=20
my $CellB_OldText;
=20
$CellB_OldText =3D $CellB_Entry->get();
=20
$CellB_Entry =3D $mw_Main->Entry(-width =3D> 6)->grid( -row =3D> 0, =
-column =3D>
1);
$CellB_Entry->configure(-text =3D> $CellB_OldText);
}
=20
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D
#
# sub gui-set
#
# this sets up a gui with Entry boxes, forget buttons and recall buttons
=20
#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D=3D=3D=3D=3D=3D=3D=3D
=20
sub gui_set() {
=20
$mw_Main =3D MainWindow->new;
=20
$CellA_Entry =3D $mw_Main->Entry(-width =3D> 6, -text =3D> =
'AAA')->grid(-row
=3D> 0, -column =3D> 0);
$CellB_Entry =3D $mw_Main->Entry(-width =3D> 6, -text =3D> =
'BBB')->grid(-row
=3D> 0, -column =3D> 1);
=20
=20
$mw_Main->Button(-text =3D> "Forget Entry Box at Top", -command =3D>
\&forget_CellA_cb)->grid(-row =3D> 1, -column =3D> 0);
=20
$mw_Main->Button(-text =3D> "Forget Entry Box at Top", -command =3D>
\&forget_CellB_cb)->grid(-row =3D> 1, -column =3D> 1);
=20
=20
$mw_Main->Button(-text =3D> "Recall Entry Box at Top", -command =3D>
\&recall_CellA_cb)->grid(-row =3D> 2, -column =3D> 0);
=20
$mw_Main->Button(-text =3D> "Recall Entry Box at Top",-command =3D>
\&recall_CellB_cb)->grid(-row =3D> 2, -column =3D> 1);
=20
=20
MainLoop;
=20
}
=20
=20
############## in line code #########################
=20
gui_set()
=20
=20
=20
Best regards
=20
Henry Merryweather
=20
Telephone: +44 (0) 1225 859051
Web: www.merryweathersolutions.co.uk
=20
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.485 / Virus Database: 269.13.15/1002 - Release Date:
11/09/2007 17:46
------_=_NextPart_001_01C7F54E.0D6306BD
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<META content=3D"MSHTML 6.00.2900.3157" name=3DGENERATOR>
<STYLE>@font-face {
font-family: Franklin Gothic Book;
}
@page Section1 {size: 595.3pt 841.9pt; margin: 72.0pt 90.0pt 72.0pt =
90.0pt; }
P.MsoNormal {
FONT-SIZE: 10pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 10pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 10pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.EmailStyle17 {
FONT-WEIGHT: normal; COLOR: windowtext; FONT-STYLE: normal; =
FONT-FAMILY: "Franklin Gothic Book"; TEXT-DECORATION: none
}
DIV.Section1 {
page: Section1
}
OL {
MARGIN-BOTTOM: 0cm
}
UL {
MARGIN-BOTTOM: 0cm
}
</STYLE>
</HEAD>
<BODY lang=3DEN-GB vLink=3Dpurple link=3Dblue>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D089330015-12092007><FONT =
face=3DVerdana=20
color=3D#800000 size=3D2>Henry, instead of creating a new Entry widget =
every time=20
you want to recall one, simple use the grid method on the existing =
widget to=20
re-display it:</FONT></SPAN></DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D089330015-12092007><FONT =
face=3DVerdana=20
color=3D#800000 size=3D2></FONT></SPAN> </DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D089330015-12092007><FONT =
face=3DVerdana=20
color=3D#800000 size=3D2>sub recall_CellA_cb() {<BR> =20
$CellA_Entry->grid( -row =3D> 0, -column =3D> =
0);<BR>}</FONT></SPAN></DIV>
<DIV><FONT face=3DVerdana color=3D#800000 size=3D2></FONT> </DIV>
<DIV dir=3Dltr align=3Dleft><SPAN class=3D089330015-12092007><FONT =
face=3DVerdana=20
color=3D#800000 size=3D2>sub recall_CellB_cb() {<BR> =20
$CellB_Entry->grid( -row =3D> 0, -column =3D>=20
1);<BR>}<BR></FONT></SPAN></DIV>
<DIV><SPAN class=3D089330015-12092007><FONT face=3DVerdana =
color=3D#800000=20
size=3D2> -- Dave</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV class=3DOutlookMessageHeader lang=3Den-us dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
<FONT face=3DTahoma size=3D2><B>From:</B> =
[email protected]=20
[mailto:[email protected]] <B>On Behalf Of </B>Henry=20
Merryweather<BR><B>Sent:</B> Wednesday, September 12, 2007 3:04 =
AM<BR><B>To:</B>=20
[email protected]<BR><B>Subject:</B> Forgetting and Recalling=20
widgets<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV class=3DSection1>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">I want to =
selectively hide and then recall widgets and when I recall the widget it =
would=20
be good if the widget was exactly the same as when it was=20
hidden.</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">gridForget hides=20
the widget. However, I cannot see a way of simply recalling the =
widget=20
with its contents the same as when it was =
‘forgotten’.</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">I tested =
this with=20
the Perl code below and attached. This gives two columns where =
each column=20
is:</SPAN></FONT></P>
<OL type=3D1>
<LI class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">an =
Entry box at=20
the top</SPAN></FONT>=20
<LI class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">a =
Button to=20
remove the Entry box at the top</SPAN></FONT>=20
<LI class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">a =
Button to=20
recall the Entry box at the top.</SPAN></FONT> </LI></OL>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">In both =
cases, the=20
Button is recalled by using the same widget definition as used when the =
GUI was=20
created (but without setting the contents of the Entry box). This =
seems to=20
have the effect (as expected) of overwriting the original definition so =
that the=20
contents (when the widget is ‘forgotten’) are lost. To =
overcome=20
this:</SPAN></FONT></P>
<OL type=3D1>
<LI class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">I saved =
the=20
contents of the Entry widget before using gridForget for the first =
column=20
- in sub forget_CellA_cb;</SPAN></FONT>=20
<LI class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" =
size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">I =
retrieved the=20
contents of the Entry widget after using gridForget but before using =
the=20
re-definition for the second column – in sub =
recall_CellB_cb.</SPAN></FONT>=20
</LI></OL>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">Both =
worked. =20
This also showed that the contents of the second Entry box were =
available even=20
though this had been forgotten.</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">The =
question is, is=20
there a way of recalling the ‘forgotten’ widget with its =
contents intact without=20
any additional code?</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'"># this =
tests the=20
forget for a grid widget</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">use=20
Tk;</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">use =
strict=20
"vars";</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">my =
($mw_Main,=20
);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">my =
($CellA_Entry,=20
$CellB_Entry, $CellC_Entry);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">my =
($CellA_Text,=20
$CellB_Text, $CellC_Text);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'"># forget =
call=20
backs</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">sub=20
forget_CellA_cb() {</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellA_Text =3D=20
$CellA_Entry->get();</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellA_Entry->gridForget();</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">}</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">sub=20
forget_CellB_cb() {</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellB_Entry->gridForget();</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">}</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'"># recall =
call=20
backs</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">sub=20
recall_CellA_cb() {</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellA_Entry =3D=20
$mw_Main->Entry(-width =3D> 6)->grid( -row =3D> 0, -column =
=3D>=20
0);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellA_Entry->configure(-text=20
=3D> $CellA_Text);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">}</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">sub=20
recall_CellB_cb() {</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">my=20
$CellB_OldText;</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellB_OldText =3D=20
$CellB_Entry->get();</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellB_Entry =3D=20
$mw_Main->Entry(-width =3D> 6)->grid( -row =3D> 0, -column =
=3D>=20
1);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellB_Entry->configure(-text=20
=3D> $CellB_OldText);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">}</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'"># sub=20
gui-set</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'"># this =
sets up a=20
gui with Entry boxes, forget buttons and recall =
buttons</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">#=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">sub =
gui_set()=20
{</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic Book'">$mw_Main =
=3D=20
MainWindow->new;</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellA_Entry =3D=20
$mw_Main->Entry(-width =3D> 6, -text =3D> 'AAA')->grid(-row =
=3D> 0,=20
-column =3D> 0);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$CellB_Entry =3D=20
$mw_Main->Entry(-width =3D> 6, -text =3D> 'BBB')->grid(-row =
=3D> 0,=20
-column =3D> 1);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$mw_Main->Button(-text=20
=3D> "Forget Entry Box at Top", -command =3D>=20
\&forget_CellA_cb)->grid(-row =3D> 1, -column =3D>=20
0);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$mw_Main->Button(-text=20
=3D> "Forget Entry Box at Top", -command =3D>=20
\&forget_CellB_cb)->grid(-row =3D> 1, -column =3D>=20
1);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$mw_Main->Button(-text=20
=3D> "Recall Entry Box at Top", -command =3D>=20
\&recall_CellA_cb)->grid(-row =3D> 2, -column =3D>=20
0);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">$mw_Main->Button(-text=20
=3D> "Recall Entry Box at Top",-command =3D>=20
\&recall_CellB_cb)->grid(-row =3D> 2, -column =3D>=20
1);</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">MainLoop;</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">}</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">############## in=20
line code #########################</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'">gui_set()</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Franklin Gothic Book" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: 'Franklin Gothic =
Book'"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Best =
regards</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Henry =
Merryweather</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt"></SPAN></FONT> </P>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Telephone: +44 (0) 1225=20
859051</SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3DArial size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt; FONT-FAMILY: Arial">Web: <A=20
href=3D"http://www.merryweathersolutions.co.uk">www.merryweathersolutions=
.co.uk</A></SPAN></FONT></P>
<P class=3DMsoNormal><FONT face=3D"Times New Roman" size=3D2><SPAN=20
style=3D"FONT-SIZE: 10pt"></SPAN></FONT> </P></DIV><BR>
<P><FONT size=3D2>No virus found in this outgoing message.<BR>Checked by =
AVG Free=20
Edition.<BR>Version: 7.5.485 / Virus Database: 269.13.15/1002 - Release =
Date:=20
11/09/2007 17:46<BR></FONT></P>
<P><FONT face=3DArial size=3D2></FONT></P></BODY></HTML>
------_=_NextPart_001_01C7F54E.0D6306BD--
--===============7743188539456322575==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk
--===============7743188539456322575==--