1. Creating a Menu using tab
--------------Boundary-00=3D_KRO7G6G0000000000000
Content-Type: Multipart/Alternative;
boundary=3D"------------Boundary-00=3D_LRO7BHK0000000000000"
--------------Boundary-00=3D_LRO7BHK0000000000000
Content-Type: Text/Plain;
charset=3D"iso-8859-1"
Content-Transfer-Encoding: 8bit
I down loaded the Euphoria package 4 days ago, so I'am very green.=0D
I'am trying to create a "main menu" program using tab that will execute
other programs.=0D
I modifiied some code Ifound in "EX05,EXW" to the procedure below=0D
=0D
=0D
global procedure onClick_MakeTable(integer self, integer event, sequence
parms)=0D
shellExecute("open","work.exw",SW_NORMAL)=0D
end procedure =0D
=0D
This works.=0D
QUESTION:=0D
=0D
Is there a way to execute a procedure by clicking on a tab??=0D
=0D
Thanks for any help.
--------------Boundary-00=3D_LRO7BHK0000000000000
Content-Type: Text/HTML;
charset=3D"iso-8859-1"
Content-Transfer-Encoding: 8bit
<meta http-equiv=3D"Content-Type" content=3D"text/html; charset=3Diso-8859-=
1"><html>
<head>
<meta name=3D"GENERATOR" content=3D"IncrediMail 1.0">=0D
<!--IncrdiXMLRemarkStart>
<IncrdiX-Info>
<X-FID>BA285063-5BCE-11D4-AF8D-0050DAC67E11</X-FID>
<X-FVER>2.0</X-FVER>
<X-FIT>Letter</X-FIT>
<X-FCOL>Elegant Paper</X-FCOL>
<X-FCAT>Stationery</X-FCAT>
<X-FDIS>Rice Fields</X-FDIS>
<X-Extensions>SU1CTDEsNDEsgUmBSTAkkcGNgZmVTY0wNCxNhYUoiU0kOMEoTYGBjYEoJDSZn=
SyFhUksSU1CTDIsMCwsSU1CTDMsMCws</X-Extensions>
<X-BG>D32287DF-A8ED-4241-A449-36604A896FEB</X-BG>
<X-BGT>repeat</X-BGT>
<X-BGC>#dce0e3</X-BGC>
<X-BGPX>0px</X-BGPX>
<X-BGPY>0px</X-BGPY>
<X-ASN>ANIM3D00-NONE-0000-0000-000000000000</X-ASN>
<X-ASNF>0</X-ASNF>
<X-ASH>ANIM3D00-NONE-0000-0000-000000000000</X-ASH>
<X-ASHF>1</X-ASHF>
<X-AN>6486DDE0-3EFD-11D4-BA3D-0050DAC68030</X-AN>
<X-ANF>0</X-ANF>
<X-AP>6486DDE0-3EFD-11D4-BA3D-0050DAC68030</X-AP>
<X-APF>1</X-APF>
<X-AD>C3C52140-4147-11D4-BA3D-0050DAC68030</X-AD>
<X-ADF>0</X-ADF>
<X-AUTO>X-ASN,X-ASH,X-AN,X-AP,X-AD</X-AUTO>
<X-CNT>;</X-CNT>
</IncrdiX-Info>
<IncrdiXMLRemarkEnd-->
</head>
<BODY style=3D"BACKGROUND-POSITION: 0px 0px; FONT-SIZE: 12pt; MARGIN: 0px 1=
0px 10px; BACKGROUND-REPEAT: repeat; FONT-FAMILY: Comic Sans MS" text=3D#00=
0040 bgColor=3D#dce0e3 background=3Dcid:D32287DF-A8ED-4241-A449-36604A896FE=
B scroll=3D"yes" X-FIT=3D"Letter" X-FCAT=3D"Elegant Paper" X-FCOL=3D"Elegan=
t Paper" X-FDIS=3D"Rice Fields" X-FID=3D"BA285063-5BCE-11D4-AF8D-0050DAC67E=
11" X-FVER=3D"2.0" X-ASN=3D"ANIM3D00-NONE-0000-0000-000000000000" X-ASNF=
=3D"0" X-ASH =3D"ANIM3D00-NONE-0000-0000-000000000000" X-ASHF =3D"1" X-AN =
=3D"6486DDE0-3EFD-11D4-BA3D-0050DAC68030" X-ANF=3D"0" X-AP=3D"6486DDE0-3EFD=
-11D4-BA3D-0050DAC68030" X-APF=3D"1" X-AD=3D"C3C52140-4147-11D4-BA3D-0050DA=
C68030" X-ADF=3D"0" SIGCOLOR=3D"0" ORGYPOS=3D"0"><TABLE id=3DINCREDIMAINTAB=
LE cellSpacing=3D0 cellPadding=3D2 width=3D"95%" border=3D0>
<TBODY>
<TR>
<TD id=3DINCREDITEXTREGION style=3D"PADDING-RIGHT: 7px; PADDING-LEFT: 7px; =
FONT-SIZE: 10pt; FONT-FAMILY: Comic Sans MS"=20
width=3D"100%">
<DIV>I down loaded the Euphoria package 4 days ago, so I'am very=20
green.</DIV>
<DIV>
<DIV>I'am trying to create a "main menu" program using tab that will=
=20
execute other programs.</DIV>
<DIV>I modifiied some code Ifound in "EX05,EXW" to the procedure=20
below</DIV></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>global procedure onClick_MakeTable(integer self, integer event,=
=20
sequence parms)<BR> =20
shellExecute("open","work.exw",SW_NORMAL)</DIV>
<DIV> end=20
procedure =
&nb=
sp; =
=20
<BR></DIV>
<DIV>This works.</DIV>
<DIV>QUESTION:</DIV>
<DIV> </DIV>
<DIV>Is there a way to execute a procedure by clicking on a tab??</DI=
V>
<DIV> </DIV>
<DIV>Thanks for any help.</DIV></TD></TR>
<TR>
<TD id=3DINCREDIFOOTER width=3D"100%">
<TABLE cellSpacing=3D0 cellPadding=3D0 width=3D"100%">
<TBODY>
<TR>
<TD width=3D"100%"></TD>
<TD id=3DINCREDISOUND vAlign=3Dbottom align=3Dmiddle></TD>
<TD id=3DINCREDIANIM vAlign=3Dbottom align=3Dmiddle></TD></TR></TBODY></TAB=
LE></TD></TR></TBODY></TABLE><SPAN=20
id=3DIncrediStamp><SPAN dir=3Dltr><FONT face=3D"Arial, Helvetica, sans-seri=
f"=20
size=3D2>____________________________________________________<BR><FONT=20
face=3D"Comic Sans MS" size=3D2><A=20
href=3D"http://www.incredimail.com/redir.asp?ad_id=3D309&lang=3D9"><IMG=
alt=3D""=20
hspace=3D0 src=3D"cid:CC19C25A-37A4-461F-8D0E-262DC2DFABA5" align=3Dbaselin=
e=20
border=3D0></A> <I>IncrediMail</I> - <B>Email has finally evolved</B>=
-=20
</FONT><A href=3D"http://www.incredimail.com/redir.asp?ad_id=3D309&lang=
=3D9"><FONT=20
face=3D"Times New Roman" size=3D3><B><U>Click=20
--------------Boundary-00=3D_LRO7BHK0000000000000--
--------------Boundary-00=3D_KRO7G6G0000000000000
Content-Type: image/gif
2. Re: Creating a Menu using tab
Don, you need to stop using Incredimail or send your mail text-only. I'm
getting a bright green background and your text is in a very narrow table
so it all
comes out
looking
like this.
Please! :)
Thanks.
----- Original Message -----
From: "Don Austin" <dgaustin at mchsi.com>
To: <EUforum at topica.com>
Sent: Thursday, October 23, 2003 8:14 AM
Subject: Creating a Menu using tab
> I down loaded the Euphoria package 4 days ago, so I'am very green.=0D
> I'am trying to create a "main menu" program using tab that will execute
> other programs.=0D
> I modifiied some code Ifound in "EX05,EXW" to the procedure below=0D
> =0D
> =0D
> global procedure onClick_MakeTable(integer self, integer event, sequence
> parms)=0D
> shellExecute("open","work.exw",SW_NORMAL)=0D
> end procedure =0D
> =0D
> This works.=0D
> QUESTION:=0D
> =0D
> Is there a way to execute a procedure by clicking on a tab??=0D
> =0D
> Thanks for any help.
3. Re: Creating a Menu using tab
----- Original Message -----
From: "C. K. Lester" <euphoric at cklester.com>
To: <EUforum at topica.com>
Subject: Re: Creating a Menu using tab
>
>
> Don, you need to stop using Incredimail or send your mail text-only. I'm
> getting a bright green background and your text is in a very narrow table
>
> so it all
> comes out
> looking
> like this.
>
> Please! :)
>
> Thanks.
I'm using Outlook Express and that client couldn't even render Don's email so
all I saw was a blank email! So I'm glad you posted his message below.
> ----- Original Message -----
> From: "Don Austin" <dgaustin at mchsi.com>
> To: <EUforum at topica.com>
> Sent: Thursday, October 23, 2003 8:14 AM
> Subject: Creating a Menu using tab
>
>
> > I down loaded the Euphoria package 4 days ago, so I'am very green.=0D
> > I'am trying to create a "main menu" program using tab that will execute
> > other programs.=0D
> > I modifiied some code Ifound in "EX05,EXW" to the procedure below=0D
> > =0D
> > =0D
> > global procedure onClick_MakeTable(integer self, integer event, sequence
> > parms)=0D
> > shellExecute("open","work.exw",SW_NORMAL)=0D
> > end procedure =0D
> > =0D
> > This works.=0D
> > QUESTION:=0D
> > =0D
> > Is there a way to execute a procedure by clicking on a tab??=0D
> > =0D
> > Thanks for any help.
What do you mean by 'tab'? Do you mean a TabItem control? If so, the w32HClick
event is invoked after a tabitem is selected.
--
Derek
