1. Jump2Web question
------=_NextPart_000_002C_01BF3EB6.90593A80
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Wolfgang,
=20
As I said in post to David, I made a "replacement" for the synopsis you =
removed from your new Tutorial (I liked the synopsis, & referenced to it =
a lot!), to go at the top of his html doc, with the eventual intention =
of amending his IDE to jump from the code editor (by right click) into =
the html doc with my abstracted synopsis "top end", like your Tutorial =
does. That would put info I usually need just one mouse click away =
while using David's IDE. =20
=20
So I lifted what I thought was relevant to that task from your Tutorial, =
& I'm just wondering if I got everything necessary. I'd like to put it =
all into an include, to avoid cluttering up David's IDE.
=20
Dan Moyer
=20
-- essentials (?) of Wolfgang Fritz's lift of DaJaRo's code out of
-- "Connect to a Web page"(shell2.zip)
=20
--Win_id is id of main window
=20
object tag
=20
-- from DaJaRo jumpto.ew
atom lib
integer jJumpto --id
if platform() =3D WIN32 then
lib =3D open_dll("shell32.dll")
jJumpto =3D define_c_func(lib,"ShellExecuteA",
{C_LONG,C_POINTER,C_POINTER,C_POINTER,C_POINTER,C_LONG},C_LONG)
if jJumpto =3D -1 then
puts(1,"couldn't find ShellExecuteA\n")
abort(1)
end if
end if
=20
-- from DaJaRo winstate.ew
procedure WindowState(integer id,integer MinNormMax)
atom okay, hw=20
hw=3D getHandle(id )
okay =3D c_func(xShowWindow,{hw,MinNormMax})
end procedure
=20
procedure Jump_to(integer id,sequence FileName,integer sz)
sequence Opn, Filenam, DefaultPath, Param
integer Nop
atom
Opn_ptr,=20
Fnm_ptr,
Prm_ptr,
Dfp_ptr,
hw
Opn =3D "Open"
Filenam=3D FileName
Param=3D" "
DefaultPath=3D{}
Opn_ptr =3D allocate_string(Opn)
Fnm_ptr =3D allocate_string(Filenam)
Prm_ptr =3D allocate_string(Param)
Dfp_ptr =3D allocate_string(DefaultPath)
hw=3D getHandle(id )
free(Opn_ptr)
free(Fnm_ptr)
free(Prm_ptr)
free(Dfp_ptr)
end procedure
=20
procedure Butt_kick1(integer Win_id,sequence tag)
sequence s=20
s=3Dtag & ".html"=20
Jump_to(Win_id,s,1)
WindowState(Win_id,5)
end procedure
=20
procedure synopsis()
tag=3D"synopsis"
Butt_kick1(Win_id,tag)=20
end procedure
=20
onClick[MenuSyn]=3Droutine_id("synopsis")
=20
=20
------=_NextPart_000_002C_01BF3EB6.90593A80
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type><!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 =
HTML//EN">
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 face=3D"Times New =
Roman">Wolfgang,</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">As I said in post to David, I made a =
"replacement" for the synopsis you removed from your new =
Tutorial (I=20
liked the synopsis, & referenced to it a lot!), to go at the top of =
his html=20
doc, </FONT><FONT face=3D"Times New Roman">with the eventual intention =
of amending=20
his IDE to jump from the code editor (by right click) into the html doc =
with my=20
abstracted synopsis "top end", like your Tutorial does. =
That=20
would put info I usually need just one mouse click away while using =
David's=20
IDE. </FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">So I lifted what I thought was =
relevant to=20
that task from your Tutorial, & I'm just wondering if I got =
everything=20
necessary. I'd like to put it all into an include, to avoid =
cluttering up=20
David's IDE.</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman"></FONT><FONT color=3D#000000=20
face=3D"Times New Roman">Dan Moyer</FONT></DIV>
<DIV><FONT color=3D#000000 face=3D"Times New Roman"></FONT> </DIV>
<DIV> </DIV>
<DIV><FONT face=3D"Times New Roman">-- essentials (?) of Wolfgang =
Fritz's lift of=20
DaJaRo's code out of<BR>-- "Connect to a Web=20
page"(shell2.zip)</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">--Win_id is id of main =
window</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">object tag</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">-- from DaJaRo jumpto.ew<BR>atom=20
lib<BR>integer jJumpto --id<BR>if platform() =3D WIN32 =
then<BR> lib =3D open_dll("shell32.dll")<BR> =
jJumpto =3D=20
nbsp;=20
if=20
jJumpto =3D -1 then<BR> puts(1,"couldn't find=20
ShellExecuteA\n")<BR> abort(1)<BR> end =
if<BR>end=20
if</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">-- from DaJaRo =
winstate.ew<BR>procedure=20
WindowState(integer id,integer MinNormMax)<BR> atom okay, hw =
<BR> hw=3D=20
getHandle(id )<BR> okay =3D =
c_func(xShowWindow,{hw,MinNormMax})<BR>end=20
procedure</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman">procedure Jump_to(integer =
id,sequence=20
FileName,integer sz)<BR>sequence Opn, Filenam, DefaultPath, =
Param<BR>integer=20
Nop<BR>atom<BR> Opn_ptr,=20
=3D=20
"Open"<BR>Filenam=3D FileName<BR>Param=3D"=20
"<BR>DefaultPath=3D{}<BR>Opn_ptr =3D =
allocate_string(Opn)<BR>Fnm_ptr =3D=20
allocate_string(Filenam)<BR>Prm_ptr =3D =
allocate_string(Param)<BR>Dfp_ptr =3D=20
allocate_string(DefaultPath)<BR>hw=3D getHandle(id=20
procedure</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman"><BR>procedure Butt_kick1(integer=20
Win_id,sequence tag)<BR> sequence s <BR> s=3Dtag & =
".html"=20
procedure</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT face=3D"Times New Roman"><BR>procedure=20
synopsis()<BR>tag=3D"synopsis"<BR> =
Butt_kick1(Win_id,tag) <BR>end=20
procedure</FONT></DIV>
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
<DIV><FONT=20
face=3D"Times New =
<DIV><FONT face=3D"Times New Roman"></FONT> </DIV>
------=_NextPart_000_002C_01BF3EB6.90593A80--
