Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared » !JFShared/Help/WimpLib
!JFShared/Help/WimpLib
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared |
| Filename: | !JFShared/Help/WimpLib |
| Read OK: | ✔ |
| File size: | 85A4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
HELP( � ����, ��� � $ DIR$� � G����aל PROC �< G����k�� FN r G��� �-
!Root H| G����kI� menucontrol Ԁ F���_��AA toggleflag � F������AU helpformat p� G���)6��3 info DIR$� � � F���Mp�M� initlibrary L F����q�M� notemessage � F����M� error � F������ML ibmenu F������M� menu � F���0��M� recreatemenu `
F������MR closewin �
F�����MP openwin F�����M� openwinat � F�����Ml openwincentre 4 F�����M forceredraw P G���C��� winsetextent 4 F����M� openwinto � F���_��M| releasefontmenu H F���{��M� menutick F���{��M� menushade � F�����/�� setmenutext � F���J��MF deleteicon F����{O� readhelp � G���q��� sendhelp � F�����Ma openmessages F������Mo closemessages � F������M� releaseftmenu $ F���-��M� iconshade � F����M� iconstate � G������ seticonbit � F���G�M} redrawicon < F���"�M� seticontext 0! F����H � dragicon �! G�����~ windowtitle `# F���i,�M� readtaskarea T$ F����e�M� setcaretend % F����m�M� setcaretpos �% F����A:R� getcaretpos �& F���Ӆ�M� getptrpos P' G���l��� writecmos ( F����vO� menuuntick ) F���_�M� seticonvalid �) G���?� � makestatusfile �+ F�����M~ closestatusfile D, F���⪋O� statusput $- F����O� statusoption . F����O� statusnext �. F���_��M� release �/ F���%�M� pressicon x0 F���ô�O statusflag |1 F���b25SC showfree �3 F������S� eerror �5 G������� dragsave �7 F�����V resizewinto �8 G�����> 3 embedwin : G�������2 3 unembedwin P; G���� �x 3 embedwinwith DATA� PROCinitlibrary
#Parent !Root
Initialises library variables.
Call this routine at the start of any program that uses the WimpLib file.
DATA� PROCnotemessage(number)
#Parent !Root
=> {/}number{/} message number
Mark the given message as receiveable. Used for RISC OS 3 applications.
DATA� PROCerror
#Parent !Root
Called at any basic error. eg {fCode}ON ERROR PROCerror:GOTO ????{f}
ERROR numbers &800+
#Indent 2
0 = OK
1 = Cancel
2 = OK and Cancel (to quit)
#Indent
Cancel only sets the {/}quit%{/} variable to TRUE and the calling routine will therefore need to exit if this is set, however holding Shift-Ctrl-Q whilst clicking a button will exit the program. If Cancel is clicked, then the system variable Error$ will be set to the error message.
DATAL PROCibmenu
#Parent !Root
Create an iconbar menu from {/}ibmenu%{/}.
DATA� PROCmenu(menu,x,y)
#Parent !Root
=> {/}menu{/} pointer to menu
{/}x{/} x co-ordinate, or -1 for mouse position
{/}y{/} y co-ordinate
Create a menu at co-ords given.
DATA� PROCrecreatemenu
#Parent !Root
Recreate the previous menu created in its previous location. Only works if PROCmenu or PROCibmenu has been called previously.
DATAR PROCclosewin(win)
#Parent !Root
=> {/}win{/} window handle
Close window.
DATAP PROCopenwin(win)
#Parent !Root
=> {/}win{/} window handle
Open window.
DATA� PROCopenwinat(win,x,y)
#Parent !Root
#Wrap Off
=> {/}win{/} window handle
{/}x{/} left of window on screen
{/}y{/} top of window on screen
Open window positioning top-left corner.
DATAl PROCopenwincentre(win)
#Parent !Root
=> {/}win{/} window handle
Open window centred on the screen.
DATA PROCforceredraw(win,l,t,r,b)
#Parent !Root
=> {/}win{/} window handle, or -1 for whole screen
{/}l{/} left of redraw box
{/}t{/} top of redraw box
{/}r{/} right of redraw box
{/}b{/} bottom of redraw box
Redraw the specified window within the specified co-ordinates. DATA� PROCwinsetextent(win,l,t,r,b)
#Parent !Root
=> {/}win{/} window handle
{/}l{/} left of extent
{/}t{/} top of extent
{/}r{/} right of extent
{/}b{/} bottom of extent
Set the maximum extent of window (TWA). If any of the variables are -1 then they are not changed.
In WimpLib2 this uses <Wimp_GetWindowInfo=>Wimp:Wimp_GetWindowInfo> which returns the entire window block including icons to b%, therefore it is vital that the block has sufficient space to store them.
DATA� PROCopenwinto(win,l,t,r,b)
#Parent !Root
=> {/}win{/} window handle
{/}l{/} left of VWA in TWA
{/}t{/} top of VWA in TWA.
{/}r{/} right of VWA in TWA
{/}b{/} bottom of VWA in TWA.
Open window at position within TWA.
Window does not move, but its size is altered to difference between l&r and t&b. Top-left of VWA is positioned to tl.
If rb = -1 then no actual size change, just position.
DATA| PROCreleasefontmenu
#Parent !Root
Release memory used by <FNgetfontmenu>.
This must be done before a program exits.DATA� PROCmenutick(menu,number,toggle)
#Parent !Root
=> {/}menu{/} pointer to menu block
{/}number{/} option to change
{/}toggle{/} <flag=>toggleflag> for whether to tick
Tick/untick option on menu.
DATA� PROCmenushade(menu,number,toggle)
#Parent !Root
=> {/}menu{/} pointer to menu block
{/}number{/} option to alter
{/}toggle{/} <flag=>toggleflag> for whether to shade
Shade/unshade option on menu.
DATA� PROCsetmenutext(menu,number,text$)
#Parent !Root
=> {/}menu{/} pointer to menu block
{/}number{/} option number
{/}text${/} new text
Set the text for option on menu. Text must fit into space allocated - no checks are performed.
DATAF PROCdeleteicon(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
Delete icon from window.
Note: The icon is deleted, but space is still allocated to it in the window block, hence if a new icon is created the new icon will take the space allocated to the previous icon and hence it's handle.
DATA� PROCreadhelp(win,icon,to)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
{/}to{/} task handle to send message to
Read help from application and send it back.
Usually called with
{fCode}RESTORE datastatements: PROCreadhelp(b%!32,b%!36,b%!4){f}.
Menus are responded to correctly and give messages under RO3. See <PROCsendhelp> for more information.
WimpLib2 has no support for menu help.
Click <here=>helpformat> for DATA format.
DATA� PROCsendhelp(help$,to)
#Parent !Root
=> {/}help${/} Message to send
{/}to{/} task to send to
Send help to application.
<Special codes=>Wimp:Wimp_UM503Codes> may be used under RO3 !Help or !QuickHlp. In addition to the !Help codes :
�String$� will include string {/}string${/}
>token[:subst1[:subst2[:subst3]]] will look-up the token in the MessageTrans file.
If the is no full stop at the end of the line (or before |M) then one will be added.
DATAa PROCopenmessages
#Parent !Root
Open a MessageTrans file (Appdir$+".Messages") for input.
DATAo PROCclosemessages
#Parent !Root
Close the MessageTrans file previously opened with <PROCopenmessages>.
DATA� PROCreleaseftmenu
#Parent !Root
Releases the space used by the filetype menu as created by <FNcreateftmenu>.
This must be done before a program exits.
DATA� PROCiconshade(win,icon,toggle)
#Parent !Root
=> {/}window{/} window handle
{/}icon{/} icon handle
{/}toggle{/} <flag=>toggleflag> for whether to shade
Shade, unshade or toggle an icon.
DATA� PROCiconstate(win,icon,toggle)
#Parent !Root
=> {/}window{/} window handle
{/}icon{/} icon handle
{/}toggle{/} <flag=>toggleflag> for whether to select
Select, unselect or toggle an icon.
DATA PROCseticonbit(win,icon,bit,toggle)
#Parent !Root
=> {/}window{/} window handle
{/}icon{/} icon handle
{/}bit{/} <bit=>Wimp:Wimp_iconflags> to change
{/}toggle{/} <flag=>toggleflag> for whether to shade
Set/unset/toggle a particular bit in an icon's flags
DATA} PROCredrawicon(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
Redraw the specified icon. DATA� PROCseticontext(win,icon,text$)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
{/}text${/} new text
Set icon's text string (only for indirected sprites).
Note: Do not overrun maximum length of indirection buffer.
DATA� PROCdragicon(window,icon,flag)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
{/}flag{/} TRUE to restrict to the window
Start a drag of an icon.
DATA~ PROCwindowtitle(win,title$)
#Parent !Root
=> {/}win{/} window handle
{/}title${/} new title of window
Set title of window. Indirection must be used for title bar.
In WimpLib2 this uses <Wimp_GetWindowInfo=>Wimp:Wimp_GetWindowInfo> which returns the entire window block including icons to {/}b%{/}, therefore it is vital that the block has sufficient space to store them.
DATA� PROCreadtaskarea(task,loc,to,len)
#Parent !Root
=> {/}task{/} source application's handle
{/}loc{/} address in source
{/}to{/} address in our application
{/}len{/} length to read
Read a block from given task into application space.
DATA� PROCsetcaretend(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
Set the carets location as the end of the text in the specified icon.
DATA� PROCsetcaretpos(win,icon,chars)
#Parent !Root
=> {/}win{/} window handle, or -1 to lose
{/}icon{/} icon handle
{/}chars{/} number of characters
Set the carets location as the specified number of characters into the icon.
DATA� PROCgetcaretpos(win,icon,chars)
#Parent !Root
<= {/}win{/} window handle
{/}icon{/} icon handle
{/}chars{/} character offset into string
Return the location of the caret.
DATA� PROCgetptrpos(x,y,win,icon)
#Parent !Root
<= {/}x{/} mouse x
{/}y{/} mouse y
{/}win{/} window handle
{/}icon{/} icon handle
Return the location of the pointer.
DATA� PROCwritecmos(byte,value)
#Parent !Root
#Wrap off
=> {/}byte{/} <CMOS byte to change=>OS:OS_bytecmos>
{/}value{/} new value of byte
#Wrap
Write a byte of configuration info into CMOS RAM.
DATA� PROCmenuuntick(menu,start,end)
#Parent !Root
=> {/}menu{/} pointer to menu block
{/}start{/} option to start at
{/}end{/} option to end at, or -1 for end of menu
Unticks all the options between those specified (inclusive).
DATA� PROCseticonvalid(win,icon,valid$)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
{/}valid${/} new validation string
Set icon's validation string. Do not overrun validation strings buffer.
DATA� PROCmakestatusfile(file$)
#Parent !Root
=> {/}file${/} file to create
Begin making a status file for use by this program alone (or <!Config+=>ConfigPlus:info> if supported).
The file is created with type text and headed with {/}Appname${/} to mark it as belonging to this application.
Related commands :
#Tab;Indent 2
<PROCstatusput> stores a string
<PROCstatusoption> stores a variable
<PROCstatusflag> stores a flag
<PROCclosestatusfile> finishes making the file.
#Indent
DATA~ PROCclosestatusfile
#Parent !Root
Close a status file previously opened by <PROCmakestatusfile> or <FNreadstatusfile>
DATA� PROCstatusput(tag$,value$)
#Parent !Root
=> {/}tag${/} tag code
{/}value${/} value to store
Store a string in the status file with reference tag.
This will be stored in the file as :
{fCode}\<tag$>:\<value$>{f}
DATA� PROCstatusoption(tag$,value)
#Parent !Root
=> {/}tag${/} tag code
{/}value{/} value to store
Store a variable in the status file with reference tag.
This will be stored in the file as :
{fCode}\<tag$>:%\<value>{f}
DATA� PROCstatusnext(tag$,value$)
#Parent !Root
#Wrap off
<= {/}tag${/} tag code, or *E*N*D* if EOF
{/}value${/} value
#Wrap
This returns the next tag and value in the file. Comment lines preceeded by # will be ignored.
DATA� PROCrelease(pointer) - WimpLib version
#Parent !Root
=> {/}pointer{/} pointer to block
<= -1 to indicate to block.
Release a claimed block of RMA.
Note: This call is replaced in HeapLib by a Heap claim <PROCrelease=>HeapLib:PROCrelease> call. DATA� PROCpressicon(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
Press an icon for about � second and release. DATA PROCstatusflag(tag$,flag)
#Parent !Root
=> {/}tag${/} tag code
{/}flag{/} flag to store
Store a flag in the status file with reference tag.
This will be stored in the file as :
#Tab
{fCode}\<tag$>:%On{f} if TRUE
{fCode}\<tag$>:%Off{f} if FALSE
DATAC PROCshowfree
#Parent !Root
This call displays on the window {/}infobox%{/} the amount of space taken up by the program, variables and free space. If the <Heap Library=>HeapLib:!Root> is installed, then information on the heap will also be displayed. Note that any libraries installed will be included in the variable usage entry.
This is best used during testing if the user clicks on the {/}infobox%{/} window
Note: The window should really be one from the Skeleton application as this has the correct number of icons in the correct places with the correct validation. DATA� PROCeerror
#Parent !Root
This is the single tasking version of PROCerror for running (strangely) in the desktop environment. Mostly it is used for debugging purposes.
Usually there are numerous variables you need to initialise before the Wimp is set up for use and therefore a different error handler is required. Usage is usually :
{fCode}ON ERROR PROCeerror:END{f}
The Error$ and Error$Task variables are set up correctly and the error is displayed in a standard Wimp error box. DATA� PROCdragsave(window,icon,type,size)
#Parent !Root
=> {/}win{/} window handle of save box we came from
{/}icon{/} icon handle of filename icon (usually 2)
{/}type{/} <filetype=>Filetypes:!Root>
{/}size{/} estimated size of the file (or -1 if unknown)
Initiates the DataSave protocol after a drag has been completed. You should listen for a <DataSaveAck=>Wimp:Wimp_UM2> message for success, or a acknowledged (reason 19) <DataSave=>Wimp:Wimp_UM1> for failure.
DATAV PROCresizewinto(win,l,t,r,b)
#Parent !Root
=> {/}win{/} window handle
{/}l{/} left of TWA
{/}t{/} top of TWA
{/}r{/} right of TWA
{/}b{/} bottom of TWA
Resizes window on screen to the size given.
Window will not change in size, unless it is currently at full size in which case it will change to the new size of the window.
DATA> PROCembedwin(parent,child,flags)
#Parent !Root
=> {/}parent{/} parent window handle
{/}child{/} child window handle
{/}flags{/} <nesting flags=>Wimp:Wimp_OpenWindow.flags>
Embed a window within another. Most of the time you'll want to use flags = 0.
Note: This will only work on the nested window manager.
DATA2 PROCunembedwin(parent,child)
#Parent !Root
=> {/}parent{/} parent window handle
{/}child{/} child window handle
Unembeds a window from within another. This closes the window within it's parent and allows it to be opened outside once more.
Note: This will only work on the nested window manager.
DATAx PROCembedwinwith(parent,child,flags,winflags)
#Parent !Root
=> {/}parent{/} parent window handle
{/}child{/} child window handle
{/}flags{/} <nesting flags=>Wimp:Wimp_OpenWindow.flags>
{/}winflags{/} <window flags=>Wimp:Wimp_WindowFlags>
Embed a window within another, setting it's flags to {/}winflags{/}.
Note: This will only work on the nested window manager.
DIR$� � �C G������ decodemenu �E F�����M getfontmenu �F F���T��M� menuticked \G F����M� menushaded H F������M� getmenutext �H G���K��u createicon (K G�������A CreateIconBarIcon lN F���V��M� indirect $O F���Ev�M
loadtemplate 0P F���K{�M� loadsprites �P G����s? msgtoken �Q F���P��M createftmenu �R F���i �M� msgtext �T F����QU� createmenu �U F���y��M� systemvar 4V F����)� string0 �V F������M� geticonstate tW F����M� geticontext $X F�����M� geticonvalid �X F���UH�Mq lower XY F����J�Mn upper �Y F���mL�MN tidy [ F���~�M� GetEnv \ F��� �{O� filetype �\ F����r�M� filelength @] G������ errorbox D^ F���}�_N� claim ,_ G������ taskname ,` F������M� windowtask �` F���&� readtaskstring `a F���bC�M� backofwinstack 4b F����Z�M� winstacknext �b F���m�M� leafname `c F����a�M� pathname �c G������ longfilename e G���� readcmos �e F����j�M� swinumber 8f F����N�M� stripspaces �f F���}Q�M substvars �h F���&Z�M� substvarsp �j G���C� gstrans Lk F����O readstatusfile lm F����ЋO� statusget $n F���$�O� statusgetv �n F���j�{O basetype �o G������& findtask �p F����O� statusgetflag �q G����
��� 3 parentwin DATA FNdecodemenu(menu)
#Parent !Root
=> {/}menu{/} pointer to menu block
<= string created from menu entries
Return menu string from data stored at b%, using menu as template. Font menus are handled correctly and will return strings for use in <Font_FindFont=>OS:Font_FindFont>. Keyboard shortcuts will be removed if they are recognised. This includes all the keys prefixed by ^ or the up arrow, plus those described in <FNcreatemenu=>menucontrol>.
Use curmenu% if created using <PROCibmenu> or <PROCmenu>.
DATA FNgetfontmenu
#Parent !Root
#Wrap off
\<= pointer to menu block of font menu
or -1 if not enough space
#Wrap
Return location of font menu. Block is stored in RMA (unless <HeapLib=>HeapLib:!Root> installed) and must be released with <PROCreleasefontmenu>.
DATA� FNmenuticked(menu,item)
#Parent !Root
=> {/}menu{/} pointer to menu block
{/}item{/} option to check
\<= TRUE if item is ticked
Check if menu item is ticked.
DATA� FNmenushaded(menu,item)
#Parent !Root
=> {/}menu{/} pointer to menu block
{/}item{/} option to check
\<= TRUE if item is shaded
Check if menu item is shaded.
DATA� FNgetmenutext(menu,number)
#Parent !Root
=> {/}menu{/} pointer to menu
{/}number{/} option number to read
\<= text of option
Read the text from option on menu.
DATAu FNcreateicon(win,x,y,width,height,title$,valid$,col,esg,but,flags)
#Parent !Root
=> {/}win{/} window handle
{/}x{/} left of icon
{/}y{/} top of icon
{/}width{/} width of icon across
{/}height{/} height of icon down
{/}title${/} text string, or CHR$(0) for a full path name
{/}valid${/} validation string or null for none
{/}col{/} colour of icon &BF (B=background, F=foreground) or font handle
{/}ESG{/} Exculsive Selection Group or 0 for none
{/}but{/} <button type=>Wimp:Wimp_iconbutton> (0-15)
{/}flags{/} other <flags=>Wimp:Wimp_iconflags> {fCode}%AFVHB00{f} (A=Font, F=Filled, B=Border)
Create an icon.
DATAA FNCreateIconBarIcon(sprite$,name$,position)
#Parent !Root
=> {/}sprite${/} sprite to use (from wimp pool)
{/}name${/} text to appear under icon (or null)
{/}position{/} <iconbar position=>.position>
Create an icon for the icon bar.
#Subpage position
FNCreateIconBarIcon postion
This is a masked byte to indicate the position you wish the icon to take on the iconbar. The low byte is the absolute <position as given to Wimp_CreateIcon=>Wimp:Wimp_CreateIcon.position>, and the next byte(s) up the parameter. For <priorities=>Wimp:Wimp_CreateIcon.priorities>, this will be shifted up by 16 bits; for icons, this is the icon number.
Therefore to create an icon to the right of icon 7 on the iconbar you would use a value of &0704, and to create an icon on the left of the icon bar with priority &78000000 you would use &7807. DATA� FNindirect(text$)
#Parent !Root
=> {/}text${/} string to indirect
\<= pointer to string, 0 if null string
Place string in indirection buffer. Generate errors if no more room.
DATA
FNloadtemplate(name$,spriteblock)
#Parent !Root
=> {/}name${/} name of template to load
{/}spriteblock{/} pointer to block, or 1 for wimp pool
<= pointer to window block
Load named template and create window. (File to be accessed is Appdir$+".Templates")
DATA� FNloadsprites(file$)
#Parent !Root
=> {/}file${/} name of file
<= pointer to sprite area
Load sprite file into a new area.
DATA? FNmsgtoken(token$)
#Parent !Root
=> {/}token${/} token to look up
Translate a token to a message. Parameters for substitution are passed using :'s between them. If you wish to supply a parameter with :'s in, then you should prefix it with a | character. This will cause the rest of the line to be substituted.
DATA FNcreateftmenu
#Parent !Root
\<= pointer to menu block of filetype menu
Creates a filetype menu and returns a pointer to its structure. Block is stored in RMA (unless <HeapLib=>HeapLib:!Root> is installed) and must be released with <PROCreleaseftmenu>.
DATA� FNmsgtext(text$)
#Parent !Root
=> {/}text${/} text to process
\<= text string
Process text and return string from Messages file if appropriate.
If prefixed by a > symbol the rest of the line will be passed on to <FNmsgtoken> and processed by the MessageTrans module. This is usually used where it is possible for a text entry to be literal or taken from a messages file. The <FNerrorbox> routine is a good example.
DATA� FNcreatemenu(menu$)
#Parent !Root
#Wrap Off
=> {/}menu${/} <control string=>menucontrol>
\<= pointer to menu block
{/}options%{/} number of options on menu
#Wrap On
Create a menu given a control string.
DATA� FNsystemvar(variable$)
#Parent !Root
#Wrap Off
=> {/}variable${/} system variable name
<= value or null if non-existant.
Return the value of a system variable as a string.DATA� FNstring0(location)
#Parent !Root
=> {/}location{/} pointer to string to return
<= string at location
Return 0-terminated (or ctrl-terminated) string at location.
DATA� FNgeticonstate(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
\<= TRUE if icon selected
Is the icon selected ? DATA� FNgeticontext(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
\<= text string for icon (or sprite if only sprite)
Return text from icon.
DATA� FNgeticonvalid(win,icon)
#Parent !Root
=> {/}win{/} window handle
{/}icon{/} icon handle
\<= validation string
Return icon's validation string. An error will occur if direct string.
DATAq FNlower(a$)
#Parent !Root
=> {/}a${/} string
<= string in lower case
Return given string in lower case.
DATAn FNupper(a$)
#Parent !Root
=> {/}a${/} string
<= upper case string
Return given string in upper case.
DATAN FNtidy(a$)
#Parent !Root
=> {/}a${/} string
<= tidied string
Return given string in tidy format. All characters are lower case, except the first and those succeeding non-alphabetic characters, which are upper case. Apostrophes are considered to be alphabetic characters and therefore "THERE'S" will be returned as "There's".
DATA� FNGetEnv
#Parent !Root
<= environment string stripped of loader
This is the string which is used to load the application. It may contain any string which is be acted upon on startup, eg. a file to load or options to set.
DATA� FNfiletype(file$)
#Parent !Root
=> {/}file${/} filename
<= -2 if not found
-1 if untyped
0-&FFF if typed
&1000 if directory or image
Return the file type of a file.
DATA� FNfilelength(file$)
#Parent !Root
=> {/}file${/} file to check
<= length of file, or -1 if not found
Return the length of a file.
DATA FNerrorbox(title$,message$,flags)
#Parent !Root
=> {/}title${/} title of window
{/}message${/} message within window
{/}flags{/} Wimp_ReportError <flags=>Wimp:Wimp_ReportError0>
<= 1 for OK
2 for Cancel
Create an error box with up to 2 buttons.
DATA� FNclaim(size) - WimpLib version
#Parent !Root
=> {/}size{/} size of block
<= pointer to block, or -1 if no room
Claim a block of RMA.
Note: This call is replaced in HeapLib by a Heap claim <FNclaim=>HeapLib:FNclaim> call.
DATA� FNtaskname(task)
#Parent !Root
=> {/}task{/} task handle
<= tasks name, or "None" if invalid
Return a given tasks name.
WimpLib2 always returns "Unknown", as <TaskManager_TaskNameFromHandle=>Wimp:TaskManager_TaskNameFromHandle> is not supported. DATA� FNwindowtask(win)
#Parent !Root
=> {/}win{/} window handle
<= task handle of owner
Return task handle who owns window.
DATA� FNreadtaskstring(task,loc)
#Parent !Root
=> {/}task{/} task handle to read
{/}loc{/} location of string in task
Read a ctrl-terminated string from task at location loc.
DATA� FNbackofwinstack
#Parent !Root
<= handle of back at back of stack
Return window handle of back of window stack.
Note: infobox% must be a valid window for this to work, (preferable a sub-menu window).
DATA� FNwinstacknext(win)
#Parent !Root
=> {/}win{/} window handle
<= window handle, or -1 if at front
Return window handle of next window in front of specified.
DATA� FNleafname(file$)
#Parent !Root
=> {/}file${/} file
<= leaf of filename
Return the leafname of the specified file path.
DATA� FNpathname(file$)
#Parent !Root
=> {/}file${/} filename
<= pathname of filename, or @ if none
Return the pathname of the specified file path.
DATA FNlongfilename(file$)
#Parent !Root
=> {/}file${/} file to change
<= full filename
Return the full pathname of the file. This performs canonicalisation of the filename.
WimpLib2 returns {/}file${/}, because <OS_FSControl,37=>OS:OS_fscontrol37> is not supported. DATA� FNreadcmos(byte)
#Parent !Root
#Wrap off
=> {/}byte{/} <CMOS byte to read=>OS:os_bytecmos>
<= value of byte
#Wrap
Read a byte of configuration info from CMOS RAM.
DATA� FNswinumber(swi$)
#Parent !Root
=> {/}swi${/} SWI name
<= SWI number
Return SWI number code of the specified SWI string.
DATA� FNstripspaces(text$)
#Parent !Root
=> {/}text${/} string to strip
<= string without any padding spaces
Returns string without any spaces on either the left or right sides.DATA FNsubstvars(text$)
#Parent !Root
=> {/}text${/} string to process
<= substituted text
Performs variable substitution on a string. Variable names are delimited by � symbols and may be either strings or values.
For example :
{fCode}FNsubstvars("�city$� is the capital of France"){f} => {fCode}"Paris is the capital of France"{f}
if city$ = {fCode}"Paris"{f}.
{fCode}FNsubstvars("�city$� has �pop� people in it"){f} => {fCode}"Paris has 61000 people in it"{f}
if city$ = {fCode}"Paris"{f} and pop = {fCode}61000{f} DATA� FNsubstvarsp(text$,prefix$)
#Parent !Root
=> {/}text${/} string to process
<= substituted string
Performs variable substitution on string using a prefix. Substitution is as in <FNsubstvars>, except that variable substituted is prefixed by the string {/}prefix${/}
So {fCode}FNsubstvarsp("Hello �name$�","your"){f} would return {fCode}"Hello Justin"{f} if yourname$ contained {fCode}"Justin"{f} DATA� FNgstrans(text$)
#Parent !Root
=> {/}text${/} string to process
<= GSTrans'ed string
Performs a <OS_GSTrans=>OS:OS_GSTrans> call on string to convert '|' control codes to real codes. DATA FNreadstatusfile(file$)
#Parent !Root
=> {/}file${/} filename to open
<= TRUE = all ok, FALSE = error occured
Opens a status file and returns its success in doing so. Reasons for errors include the file not existing, being a directory or belonging to another application. Usually the file should have the leaf Options.
Related commands :
#Tab;Indent 2
<PROCstatusnext> reads the next entry
<FNstatusget> reads a string
<FNstatusgetv> reads a variable
<FNstatusgetflag> reads a flag
<PROCclosestatusfile> finishes reading the file.
DATA� FNstatusget(code$)
#Parent !Root
=> {/}tag${/} tag code
<= string under tag code, or *E*N*D* if not found
This function returns the string value of tag from the status file.
DATA� FNstatusgetv(tag$)
#Parent !Root
#Wrap off
=> {/}tag${/} tag code
<= value of tag, or 0 if not found.
#Wrap
Return a tagged value from status file.
DATA FNbasetype(file$)
#Parent !Root
=> {/}file${/} filename
<= -2 if not found
-1 if file
0-&FFF if image
&1000 if directory
Return the file type of an image file or directory
In WimpLib2 this does not return the image type because images are not supported. DATA& FNfindtask(task$)
#Parent !Root
=> {/}task${/} task name
<= task handle, or -1 if not found
Search for a given task and return the first tasks handle whose name matches.
WimpLib2 will always return -1, as <TaskManager_EnumerateTasks=>Wimp:TaskManager_EnumerateTasks> is not supported. DATA� FNstatusgetflag(tag$)
#Parent !Root
#Wrap off
=> {/}tag${/} tag code
<= TRUE or FALSE
#Wrap
Return a tagged flag from status file.
DATA� FNparentwin(child)
#Parent !Root
=> {/}child{/} child window handle, or -1 if invalid
Reads the window in which {/}child{/} is embedded.
DATA-
WimpLib routines
#Parent StrongHelp:!Menu
Main application
#Indent 2
#Table Columns 3
<PROCinitlibrary>
<PROCnotemessage>
<FNloadtemplate>
<FNloadsprites>
<FNGetEnv>
<FNsystemvar>
<PROCerror>
<PROCeerror>
<FNerrorbox>
<PROCshowfree>
#EndTable
#Indent
Menu manipulation
#Indent 2
#Table Columns 3
<FNcreatemenu>
<FNindirect>
<PROCibmenu>
<PROCmenu>
<PROCrecreatemenu>
<PROCmenuuntick>
<PROCmenutick>
<PROCmenushade>
<FNmenuticked>
<FNmenushaded>
<PROCsetmenutext>
<FNgetmenutext>
<FNdecodemenu>
<FNgetfontmenu>
<PROCreleasefontmenu>
<FNcreateftmenu>
<PROCreleaseftmenu>
#EndTable
#Indent
Window manipulation
#Indent 2
#Table Columns 3
<PROCclosewin>
<PROCopenwin>
<PROCopenwinat>
<PROCopenwincentre>
<PROCopenwinto>
<PROCresizewinto>
<PROCwinsetextent>
<PROCforceredraw>
<PROCwindowtitle>
<PROCembedwin>
<PROCembedwinwith>
<PROCunembedwin>
<FNparentwin>
#EndTable
#Indent
Icon manipulation
#Indent 2
#Table Columns 3
<FNcreateicon>
<PROCdeleteicon>
<FNCreateIconBarIcon>
<PROCiconshade>
<PROCiconstate>
<PROCseticonbit>
<FNgeticonstate>
<PROCredrawicon>
<FNgeticontext>
<PROCseticontext>
<FNgeticonvalid>
<PROCseticonvalid>
<PROCdragicon>
<PROCdragsave>
<PROCpressicon>
#EndTable
#Indent
!Help responsive routines
#Indent 2
#Table Columns 3
<PROCreadhelp>
<PROCsendhelp>
#EndTable
#Indent
MessageTrans interface routines
#Indent 2
#Table Columns 2
<PROCopenmessages>
<PROCclosemessages>
<FNmsgtoken>
<FNmsgtext>
#EndTable
#Indent
String manipulation
#Indent 2
#Table Columns 3
<FNstring0>
<FNlower>
<FNupper>
<FNtidy>
<FNstripspaces>
<FNsubstvars>
<FNsubstvarsp>
<FNgstrans>
<FNswinumber>
#EndTable
#Indent
File information routines
#Indent 2
#Table Columns 3
<FNfiletype>
<FNbasetype>
<FNfilelength>
<FNleafname>
<FNpathname>
<FNlongfilename>
#EndTable
#Indent
Module workspace manipulation
#Indent 2
#Table Columns 2
<FNclaim>
<PROCrelease>
#EndTable
#Indent
Task interaction routines
#Indent 2
#Table Columns 3
<FNtaskname>
<FNwindowtask>
<FNfindtask>
<FNreadtaskstring>
<PROCreadtaskarea>
<FNbackofwinstack>
<FNwinstacknext>
#EndTable
#Indent
Caret and pointer control routines
#Indent 2
#Table Columns 2
<PROCsetcaretend>
<PROCsetcaretpos>
<PROCgetcaretpos>
<PROCgetptrpos>
#EndTable
#Indent
Configuration settings control
#Indent 2
#Table Columns 2
<FNreadcmos>
<PROCwritecmos>
#EndTable
#Indent
Status file control routines
#Indent 2
#Table Columns 3
<PROCmakestatusfile>
<PROCclosestatusfile>
<FNreadstatusfile>
<PROCstatusput>
<PROCstatusoption>
<PROCstatusflag>
<PROCstatusnext>
<FNstatusget>
<FNstatusgetv>
<FNstatusgetflag>
#EndTable
#Indent
<Information=>info> on WimpLib
DATA� Menu control strings
BNF defines as (/ is OR, | is |) :
Menu ::= \<Title>/\<Option>
Option ::= \<Item>/\<Item>{fCode}|{f}\<Option>
Item ::= \<Name>/\<Name>{fCode}]{f}\<Flags>
Flags ::= \<Flag>/\<Flag>{fCode},{f}\<Flags>
Flag ::= {fCode}T{f}/{fCode}D{f}/{fCode}W{f}/{fCode}M{f}/{fCode}S{f}/{fCode}K{f}<\<key\>=>.keys>/{fCode}>{f}\<Menu%>/{fCode}}{f}\<Sprite>
Comma is not required if single letter flags used. Sprite is in Wimp pool and if it does not start with sm then is shrunk to half size.
Example : {fCode}Applic|Info]>infobox%|Quit{f}
Menu% is pointer to window/menu structure.
T for ticked
D for dotted underneath
W for writable
M for message when opening
S for shaded
K for keyboard shortcut (following)
\> followed by variable for sub-menu ({fCode}Item]>submenu%|{f})
} followed by a sprite name ({fCode}Item]}sprite|{f})
#Subpage keys
FNcreatemenu key short-cuts
Keys may be :
#Indent 2;Table Columns 4
F1-F12
Esc
Del
Ins
End
Hom
Cpy
Prt
Tab
Ret
#EndTable
#Indent
Anything prefixed by ^, � or �^. The up arrow will be substituted for � when creating menus. When you decode menus keystrokes will be removed from the <FNdecodemenu> string.
DATAA Toggle values
Value Meaning
#Line
0 Unset
1 Set
2 Toggle
DATAU PROCreadhelp format
#Wrap Off
Main windows :
#Indent 2
\{ window, help message for no icon
\{ icon number, message } repeated
} repeated
-2, message for icon bar }
-1,-1 to end
#Indent
Format for menu help :
#Indent 2
\{ menu, -1,-1,-1
\{ opt1,opt2,opt3,help
or -1,string,-1,help } repeated
} repeated
-2,-2,-2,-2 to end
#Indent
DATA3 WimpLib help
#Align Centre
{fh3}JFShared WimpLib v1.71{f}
#Align Left
The Wimp Library is a Basic Library file which provides simple procedure calls to implement Wimp operations. In conjunction with the JFShared skeleton application this provides a very simple way of creating applications. This help file details the routines provided in WimpLib with descriptions of the implementation of them.
The WimpLibrary is referenced by \<BasicLibrary$File> and should be loaded with :
{fCode}LIBRARY "\<BasicLibrary$File>":PROCinitlibrary{f}
The JFShared application is � <Justin Fletcher=>Filetypes:Authors_JustinFletcher>, 1997 and is released into the Public Domain with the same restrictions as subsist in most PD software. This includes the fact that when distributed the entire application must remain intact. 00000000 48 45 4c 50 28 00 00 00 fa 00 00 00 ff ff ff ff |HELP(...........|
00000010 2c 00 00 00 00 fd ff ff 00 00 00 00 ec 00 00 00 |,...............|
00000020 00 01 00 00 00 00 00 00 24 00 00 00 44 49 52 24 |........$...DIR$|
00000030 f4 00 00 00 f4 00 00 00 20 01 00 00 47 fd ff ff |........ ...G...|
00000040 e5 61 06 d7 9c 07 00 00 13 01 00 00 00 00 00 00 |.a..............|
00000050 50 52 4f 43 00 00 00 00 c8 3c 00 00 47 fd ff ff |PROC.....<..G...|
00000060 96 6b 06 d7 dc 06 00 00 13 01 00 00 00 00 00 00 |.k..............|
00000070 46 4e 00 00 18 72 00 00 47 fd ff ff 1e 19 03 d7 |FN...r..G.......|
00000080 2d 0a 00 00 13 00 00 00 00 00 00 00 21 52 6f 6f |-...........!Roo|
00000090 74 00 00 00 48 7c 00 00 47 fd ff ff dd 6b 49 02 |t...H|..G....kI.|
000000a0 89 04 00 00 13 00 00 00 00 00 00 00 6d 65 6e 75 |............menu|
000000b0 63 6f 6e 74 72 6f 6c 00 d4 80 00 00 46 fd ff ff |control.....F...|
000000c0 5f a6 ae 41 41 00 00 00 13 00 00 00 00 00 00 00 |_..AA...........|
000000d0 74 6f 67 67 6c 65 66 6c 61 67 00 00 18 81 00 00 |toggleflag......|
000000e0 46 fd ff ff a2 a6 b4 41 55 01 00 00 13 00 00 00 |F......AU.......|
000000f0 00 00 00 00 68 65 6c 70 66 6f 72 6d 61 74 00 00 |....helpformat..|
00000100 70 82 00 00 47 fd ff ff 29 36 ff 92 33 03 00 00 |p...G...)6..3...|
00000110 13 00 00 00 00 00 00 00 69 6e 66 6f 00 00 00 00 |........info....|
00000120 44 49 52 24 9c 07 00 00 9c 07 00 00 bc 08 00 00 |DIR$............|
00000130 46 ff ff ff 4d 70 f6 4d 90 00 00 00 13 00 00 00 |F...Mp.M........|
00000140 00 00 00 00 69 6e 69 74 6c 69 62 72 61 72 79 00 |....initlibrary.|
00000150 4c 09 00 00 46 ff ff ff e9 71 f6 4d 96 00 00 00 |L...F....q.M....|
00000160 13 00 00 00 00 00 00 00 6e 6f 74 65 6d 65 73 73 |........notemess|
00000170 61 67 65 00 e4 09 00 00 46 ff ff ff e7 83 f6 4d |age.....F......M|
00000180 d4 01 00 00 13 00 00 00 00 00 00 00 65 72 72 6f |............erro|
00000190 72 00 00 00 b8 0b 00 00 46 ff ff ff 90 8f f6 4d |r.......F......M|
000001a0 4c 00 00 00 13 00 00 00 00 00 00 00 69 62 6d 65 |L...........ibme|
000001b0 6e 75 00 00 04 0c 00 00 46 ff ff ff 85 91 f6 4d |nu......F......M|
000001c0 b3 00 00 00 13 00 00 00 00 00 00 00 6d 65 6e 75 |............menu|
000001d0 00 00 00 00 b8 0c 00 00 46 ff ff ff 30 93 f6 4d |........F...0..M|
000001e0 a5 00 00 00 13 00 00 00 00 00 00 00 72 65 63 72 |............recr|
000001f0 65 61 74 65 6d 65 6e 75 00 00 00 00 60 0d 00 00 |eatemenu....`...|
00000200 46 ff ff ff aa be f6 4d 52 00 00 00 13 00 00 00 |F......MR.......|
00000210 00 00 00 00 63 6c 6f 73 65 77 69 6e 00 00 00 00 |....closewin....|
00000220 b4 0d 00 00 46 ff ff ff d6 c0 f6 4d 50 00 00 00 |....F......MP...|
00000230 13 00 00 00 00 00 00 00 6f 70 65 6e 77 69 6e 00 |........openwin.|
00000240 04 0e 00 00 46 ff ff ff eb c3 f6 4d c1 00 00 00 |....F......M....|
00000250 13 00 00 00 00 00 00 00 6f 70 65 6e 77 69 6e 61 |........openwina|
00000260 74 00 00 00 c8 0e 00 00 46 ff ff ff b8 c5 f6 4d |t.......F......M|
00000270 6c 00 00 00 13 00 00 00 00 00 00 00 6f 70 65 6e |l...........open|
00000280 77 69 6e 63 65 6e 74 72 65 00 00 00 34 0f 00 00 |wincentre...4...|
00000290 46 ff ff ff 0e a5 f8 4d 1b 01 00 00 13 00 00 00 |F......M........|
000002a0 00 00 00 00 66 6f 72 63 65 72 65 64 72 61 77 00 |....forceredraw.|
000002b0 50 10 00 00 47 ff ff ff 43 e1 03 d7 e4 01 00 00 |P...G...C.......|
000002c0 13 00 00 00 00 00 00 00 77 69 6e 73 65 74 65 78 |........winsetex|
000002d0 74 65 6e 74 00 00 00 00 34 12 00 00 46 ff ff ff |tent....4...F...|
000002e0 07 c7 f6 4d 96 01 00 00 13 00 00 00 00 00 00 00 |...M............|
000002f0 6f 70 65 6e 77 69 6e 74 6f 00 00 00 cc 13 00 00 |openwinto.......|
00000300 46 ff ff ff 5f b4 f6 4d 7c 00 00 00 13 00 00 00 |F..._..M|.......|
00000310 00 00 00 00 72 65 6c 65 61 73 65 66 6f 6e 74 6d |....releasefontm|
00000320 65 6e 75 00 48 14 00 00 46 ff ff ff 7b a1 f6 4d |enu.H...F...{..M|
00000330 cc 00 00 00 13 00 00 00 00 00 00 00 6d 65 6e 75 |............menu|
00000340 74 69 63 6b 00 00 00 00 14 15 00 00 46 ff ff ff |tick........F...|
00000350 7b a3 f6 4d cf 00 00 00 13 00 00 00 00 00 00 00 |{..M............|
00000360 6d 65 6e 75 73 68 61 64 65 00 00 00 e4 15 00 00 |menushade.......|
00000370 46 ff ff ff 81 ce 2f b7 ef 00 00 00 13 00 00 00 |F...../.........|
00000380 00 00 00 00 73 65 74 6d 65 6e 75 74 65 78 74 00 |....setmenutext.|
00000390 d4 16 00 00 46 ff ff ff 4a b3 f8 4d 46 01 00 00 |....F...J..MF...|
000003a0 13 00 00 00 00 00 00 00 64 65 6c 65 74 65 69 63 |........deleteic|
000003b0 6f 6e 00 00 1c 18 00 00 46 ff ff ff f5 13 7b 4f |on......F.....{O|
000003c0 cb 01 00 00 13 00 00 00 00 00 00 00 72 65 61 64 |............read|
000003d0 68 65 6c 70 00 00 00 00 e8 19 00 00 47 ff ff ff |help........G...|
000003e0 71 e0 03 d7 c8 01 00 00 13 00 00 00 00 00 00 00 |q...............|
000003f0 73 65 6e 64 68 65 6c 70 00 00 00 00 b0 1b 00 00 |sendhelp........|
00000400 46 ff ff ff 16 fd f8 4d 61 00 00 00 13 00 00 00 |F......Ma.......|
00000410 00 00 00 00 6f 70 65 6e 6d 65 73 73 61 67 65 73 |....openmessages|
00000420 00 00 00 00 14 1c 00 00 46 ff ff ff a9 ff f8 4d |........F......M|
00000430 6f 00 00 00 13 00 00 00 00 00 00 00 63 6c 6f 73 |o...........clos|
00000440 65 6d 65 73 73 61 67 65 73 00 00 00 84 1c 00 00 |emessages.......|
00000450 46 ff ff ff fe bc f6 4d a0 00 00 00 13 00 00 00 |F......M........|
00000460 00 00 00 00 72 65 6c 65 61 73 65 66 74 6d 65 6e |....releaseftmen|
00000470 75 00 00 00 24 1d 00 00 46 ff ff ff 2d b9 f8 4d |u...$...F...-..M|
00000480 c4 00 00 00 13 00 00 00 00 00 00 00 69 63 6f 6e |............icon|
00000490 73 68 61 64 65 00 00 00 e8 1d 00 00 46 ff ff ff |shade.......F...|
000004a0 f2 ba f8 4d c7 00 00 00 13 00 00 00 00 00 00 00 |...M............|
000004b0 69 63 6f 6e 73 74 61 74 65 00 00 00 b0 1e 00 00 |iconstate.......|
000004c0 47 ff ff ff a6 df 03 d7 0c 01 00 00 13 00 00 00 |G...............|
000004d0 00 00 00 00 73 65 74 69 63 6f 6e 62 69 74 00 00 |....seticonbit..|
000004e0 bc 1f 00 00 46 ff ff ff 47 c6 f8 4d 7d 00 00 00 |....F...G..M}...|
000004f0 13 00 00 00 00 00 00 00 72 65 64 72 61 77 69 63 |........redrawic|
00000500 6f 6e 00 00 3c 20 00 00 46 ff ff ff 22 cc f8 4d |on..< ..F..."..M|
00000510 f2 00 00 00 13 00 00 00 00 00 00 00 73 65 74 69 |............seti|
00000520 63 6f 6e 74 65 78 74 00 30 21 00 00 46 ff ff ff |context.0!..F...|
00000530 c0 48 09 eb ad 00 00 00 13 00 00 00 00 00 00 00 |.H..............|
00000540 64 72 61 67 69 63 6f 6e 00 00 00 00 e0 21 00 00 |dragicon.....!..|
00000550 47 ff ff ff 14 df 03 d7 7e 01 00 00 13 00 00 00 |G.......~.......|
00000560 00 00 00 00 77 69 6e 64 6f 77 74 69 74 6c 65 00 |....windowtitle.|
00000570 60 23 00 00 46 ff ff ff 69 2c f5 4d f4 00 00 00 |`#..F...i,.M....|
00000580 13 00 00 00 00 00 00 00 72 65 61 64 74 61 73 6b |........readtask|
00000590 61 72 65 61 00 00 00 00 54 24 00 00 46 ff ff ff |area....T$..F...|
000005a0 bb 65 f5 4d aa 00 00 00 13 00 00 00 00 00 00 00 |.e.M............|
000005b0 73 65 74 63 61 72 65 74 65 6e 64 00 00 25 00 00 |setcaretend..%..|
000005c0 46 ff ff ff f7 6d f5 4d e8 00 00 00 13 00 00 00 |F....m.M........|
000005d0 00 00 00 00 73 65 74 63 61 72 65 74 70 6f 73 00 |....setcaretpos.|
000005e0 e8 25 00 00 46 ff ff ff fb 41 3a 52 b6 00 00 00 |.%..F....A:R....|
000005f0 13 00 00 00 00 00 00 00 67 65 74 63 61 72 65 74 |........getcaret|
00000600 70 6f 73 00 a0 26 00 00 46 ff ff ff d3 85 f5 4d |pos..&..F......M|
00000610 ae 00 00 00 13 00 00 00 00 00 00 00 67 65 74 70 |............getp|
00000620 74 72 70 6f 73 00 00 00 50 27 00 00 47 ff ff ff |trpos...P'..G...|
00000630 6c de 03 d7 c6 00 00 00 13 00 00 00 00 00 00 00 |l...............|
00000640 77 72 69 74 65 63 6d 6f 73 00 00 00 18 28 00 00 |writecmos....(..|
00000650 46 ff ff ff 02 fd 76 4f ea 00 00 00 13 00 00 00 |F.....vO........|
00000660 00 00 00 00 6d 65 6e 75 75 6e 74 69 63 6b 00 00 |....menuuntick..|
00000670 04 29 00 00 46 ff ff ff 5f d7 f8 4d d8 00 00 00 |.)..F..._..M....|
00000680 13 00 00 00 00 00 00 00 73 65 74 69 63 6f 6e 76 |........seticonv|
00000690 61 6c 69 64 00 00 00 00 dc 29 00 00 47 ff ff ff |alid.....)..G...|
000006a0 3f 16 c3 1e e6 01 00 00 13 00 00 00 00 00 00 00 |?...............|
000006b0 6d 61 6b 65 73 74 61 74 75 73 66 69 6c 65 00 00 |makestatusfile..|
000006c0 c4 2b 00 00 46 ff ff ff ff c3 f5 4d 7e 00 00 00 |.+..F......M~...|
000006d0 13 00 00 00 00 00 00 00 63 6c 6f 73 65 73 74 61 |........closesta|
000006e0 74 75 73 66 69 6c 65 00 44 2c 00 00 46 ff ff ff |tusfile.D,..F...|
000006f0 e2 aa 8b 4f e0 00 00 00 13 00 00 00 00 00 00 00 |...O............|
00000700 73 74 61 74 75 73 70 75 74 00 00 00 24 2d 00 00 |statusput...$-..|
00000710 46 ff ff ff f3 9c 8b 4f e3 00 00 00 13 00 00 00 |F......O........|
00000720 00 00 00 00 73 74 61 74 75 73 6f 70 74 69 6f 6e |....statusoption|
00000730 00 00 00 00 08 2e 00 00 46 ff ff ff a3 c2 8b 4f |........F......O|
00000740 e0 00 00 00 13 00 00 00 00 00 00 00 73 74 61 74 |............stat|
00000750 75 73 6e 65 78 74 00 00 e8 2e 00 00 46 ff ff ff |usnext......F...|
00000760 5f 9a f4 4d fd 00 00 00 13 00 00 00 00 00 00 00 |_..M............|
00000770 72 65 6c 65 61 73 65 00 e8 2f 00 00 46 ff ff ff |release../..F...|
00000780 25 e0 f8 4d 8f 00 00 00 13 00 00 00 00 00 00 00 |%..M............|
00000790 70 72 65 73 73 69 63 6f 6e 00 00 00 78 30 00 00 |pressicon...x0..|
000007a0 46 ff ff ff c3 b4 8b 4f 04 01 00 00 13 00 00 00 |F......O........|
000007b0 00 00 00 00 73 74 61 74 75 73 66 6c 61 67 00 00 |....statusflag..|
000007c0 7c 31 00 00 46 ff ff ff 62 32 35 53 43 02 00 00 ||1..F...b25SC...|
000007d0 13 00 00 00 00 00 00 00 73 68 6f 77 66 72 65 65 |........showfree|
000007e0 00 00 00 00 c0 33 00 00 46 ff ff ff e4 e4 cb 53 |.....3..F......S|
000007f0 eb 01 00 00 13 00 00 00 00 00 00 00 65 65 72 72 |............eerr|
00000800 6f 72 00 00 ac 35 00 00 47 ff ff ff 90 dd 03 d7 |or...5..G.......|
00000810 d6 01 00 00 13 00 00 00 00 00 00 00 64 72 61 67 |............drag|
00000820 73 61 76 65 00 00 00 00 84 37 00 00 46 ff ff ff |save.....7..F...|
00000830 ec 91 fe fa 56 01 00 00 13 00 00 00 00 00 00 00 |....V...........|
00000840 72 65 73 69 7a 65 77 69 6e 74 6f 00 dc 38 00 00 |resizewinto..8..|
00000850 47 ff ff ff a4 0e 03 d7 3e 01 00 00 33 00 00 00 |G.......>...3...|
00000860 00 00 00 00 65 6d 62 65 64 77 69 6e 00 00 00 00 |....embedwin....|
00000870 1c 3a 00 00 47 ff ff ff 98 f9 fe 92 32 01 00 00 |.:..G.......2...|
00000880 33 00 00 00 00 00 00 00 75 6e 65 6d 62 65 64 77 |3.......unembedw|
00000890 69 6e 00 00 50 3b 00 00 47 ff ff ff bd 00 03 d7 |in..P;..G.......|
000008a0 78 01 00 00 33 00 00 00 00 00 00 00 65 6d 62 65 |x...3.......embe|
000008b0 64 77 69 6e 77 69 74 68 00 00 00 00 44 41 54 41 |dwinwith....DATA|
000008c0 90 00 00 00 50 52 4f 43 69 6e 69 74 6c 69 62 72 |....PROCinitlibr|
000008d0 61 72 79 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |ary.#Parent !Roo|
000008e0 74 0a 49 6e 69 74 69 61 6c 69 73 65 73 20 6c 69 |t.Initialises li|
000008f0 62 72 61 72 79 20 76 61 72 69 61 62 6c 65 73 2e |brary variables.|
00000900 0a 0a 43 61 6c 6c 20 74 68 69 73 20 72 6f 75 74 |..Call this rout|
00000910 69 6e 65 20 61 74 20 74 68 65 20 73 74 61 72 74 |ine at the start|
00000920 20 6f 66 20 61 6e 79 20 70 72 6f 67 72 61 6d 20 | of any program |
00000930 74 68 61 74 20 75 73 65 73 20 74 68 65 20 57 69 |that uses the Wi|
00000940 6d 70 4c 69 62 20 66 69 6c 65 2e 0a 44 41 54 41 |mpLib file..DATA|
00000950 96 00 00 00 50 52 4f 43 6e 6f 74 65 6d 65 73 73 |....PROCnotemess|
00000960 61 67 65 28 6e 75 6d 62 65 72 29 0a 23 50 61 72 |age(number).#Par|
00000970 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00000980 6e 75 6d 62 65 72 7b 2f 7d 09 6d 65 73 73 61 67 |number{/}.messag|
00000990 65 20 6e 75 6d 62 65 72 0a 0a 4d 61 72 6b 20 74 |e number..Mark t|
000009a0 68 65 20 67 69 76 65 6e 20 6d 65 73 73 61 67 65 |he given message|
000009b0 20 61 73 20 72 65 63 65 69 76 65 61 62 6c 65 2e | as receiveable.|
000009c0 20 55 73 65 64 20 66 6f 72 20 52 49 53 43 20 4f | Used for RISC O|
000009d0 53 20 33 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 |S 3 applications|
000009e0 2e 0a 00 00 44 41 54 41 d4 01 00 00 50 52 4f 43 |....DATA....PROC|
000009f0 65 72 72 6f 72 0a 23 50 61 72 65 6e 74 20 21 52 |error.#Parent !R|
00000a00 6f 6f 74 0a 43 61 6c 6c 65 64 20 61 74 20 61 6e |oot.Called at an|
00000a10 79 20 62 61 73 69 63 20 65 72 72 6f 72 2e 20 65 |y basic error. e|
00000a20 67 20 7b 66 43 6f 64 65 7d 4f 4e 20 45 52 52 4f |g {fCode}ON ERRO|
00000a30 52 20 50 52 4f 43 65 72 72 6f 72 3a 47 4f 54 4f |R PROCerror:GOTO|
00000a40 20 3f 3f 3f 3f 7b 66 7d 0a 45 52 52 4f 52 20 6e | ????{f}.ERROR n|
00000a50 75 6d 62 65 72 73 20 26 38 30 30 2b 0a 23 49 6e |umbers &800+.#In|
00000a60 64 65 6e 74 20 32 0a 30 20 3d 20 4f 4b 0a 31 20 |dent 2.0 = OK.1 |
00000a70 3d 20 43 61 6e 63 65 6c 0a 32 20 3d 20 4f 4b 20 |= Cancel.2 = OK |
00000a80 61 6e 64 20 43 61 6e 63 65 6c 20 28 74 6f 20 71 |and Cancel (to q|
00000a90 75 69 74 29 0a 23 49 6e 64 65 6e 74 0a 43 61 6e |uit).#Indent.Can|
00000aa0 63 65 6c 20 6f 6e 6c 79 20 73 65 74 73 20 74 68 |cel only sets th|
00000ab0 65 20 7b 2f 7d 71 75 69 74 25 7b 2f 7d 20 76 61 |e {/}quit%{/} va|
00000ac0 72 69 61 62 6c 65 20 74 6f 20 54 52 55 45 20 61 |riable to TRUE a|
00000ad0 6e 64 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 72 |nd the calling r|
00000ae0 6f 75 74 69 6e 65 20 77 69 6c 6c 20 74 68 65 72 |outine will ther|
00000af0 65 66 6f 72 65 20 6e 65 65 64 20 74 6f 20 65 78 |efore need to ex|
00000b00 69 74 20 69 66 20 74 68 69 73 20 69 73 20 73 65 |it if this is se|
00000b10 74 2c 20 68 6f 77 65 76 65 72 20 68 6f 6c 64 69 |t, however holdi|
00000b20 6e 67 20 53 68 69 66 74 2d 43 74 72 6c 2d 51 20 |ng Shift-Ctrl-Q |
00000b30 77 68 69 6c 73 74 20 63 6c 69 63 6b 69 6e 67 20 |whilst clicking |
00000b40 61 20 62 75 74 74 6f 6e 20 77 69 6c 6c 20 65 78 |a button will ex|
00000b50 69 74 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 20 |it the program. |
00000b60 49 66 20 43 61 6e 63 65 6c 20 69 73 20 63 6c 69 |If Cancel is cli|
00000b70 63 6b 65 64 2c 20 74 68 65 6e 20 74 68 65 20 73 |cked, then the s|
00000b80 79 73 74 65 6d 20 76 61 72 69 61 62 6c 65 20 45 |ystem variable E|
00000b90 72 72 6f 72 24 20 77 69 6c 6c 20 62 65 20 73 65 |rror$ will be se|
00000ba0 74 20 74 6f 20 74 68 65 20 65 72 72 6f 72 20 6d |t to the error m|
00000bb0 65 73 73 61 67 65 2e 0a 44 41 54 41 4c 00 00 00 |essage..DATAL...|
00000bc0 50 52 4f 43 69 62 6d 65 6e 75 0a 23 50 61 72 65 |PROCibmenu.#Pare|
00000bd0 6e 74 20 21 52 6f 6f 74 0a 43 72 65 61 74 65 20 |nt !Root.Create |
00000be0 61 6e 20 69 63 6f 6e 62 61 72 20 6d 65 6e 75 20 |an iconbar menu |
00000bf0 66 72 6f 6d 20 7b 2f 7d 69 62 6d 65 6e 75 25 7b |from {/}ibmenu%{|
00000c00 2f 7d 2e 0a 44 41 54 41 b3 00 00 00 50 52 4f 43 |/}..DATA....PROC|
00000c10 6d 65 6e 75 28 6d 65 6e 75 2c 78 2c 79 29 0a 23 |menu(menu,x,y).#|
00000c20 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
00000c30 7b 2f 7d 6d 65 6e 75 7b 2f 7d 09 70 6f 69 6e 74 |{/}menu{/}.point|
00000c40 65 72 20 74 6f 20 6d 65 6e 75 0a 09 7b 2f 7d 78 |er to menu..{/}x|
00000c50 7b 2f 7d 09 09 78 20 63 6f 2d 6f 72 64 69 6e 61 |{/}..x co-ordina|
00000c60 74 65 2c 20 6f 72 20 2d 31 20 66 6f 72 20 6d 6f |te, or -1 for mo|
00000c70 75 73 65 20 70 6f 73 69 74 69 6f 6e 0a 09 7b 2f |use position..{/|
00000c80 7d 79 7b 2f 7d 09 09 79 20 63 6f 2d 6f 72 64 69 |}y{/}..y co-ordi|
00000c90 6e 61 74 65 0a 09 0a 43 72 65 61 74 65 20 61 20 |nate...Create a |
00000ca0 6d 65 6e 75 20 61 74 20 63 6f 2d 6f 72 64 73 20 |menu at co-ords |
00000cb0 67 69 76 65 6e 2e 0a 00 44 41 54 41 a5 00 00 00 |given...DATA....|
00000cc0 50 52 4f 43 72 65 63 72 65 61 74 65 6d 65 6e 75 |PROCrecreatemenu|
00000cd0 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 52 |.#Parent !Root.R|
00000ce0 65 63 72 65 61 74 65 20 74 68 65 20 70 72 65 76 |ecreate the prev|
00000cf0 69 6f 75 73 20 6d 65 6e 75 20 63 72 65 61 74 65 |ious menu create|
00000d00 64 20 69 6e 20 69 74 73 20 70 72 65 76 69 6f 75 |d in its previou|
00000d10 73 20 6c 6f 63 61 74 69 6f 6e 2e 20 4f 6e 6c 79 |s location. Only|
00000d20 20 77 6f 72 6b 73 20 69 66 20 50 52 4f 43 6d 65 | works if PROCme|
00000d30 6e 75 20 6f 72 20 50 52 4f 43 69 62 6d 65 6e 75 |nu or PROCibmenu|
00000d40 20 68 61 73 20 62 65 65 6e 20 63 61 6c 6c 65 64 | has been called|
00000d50 20 70 72 65 76 69 6f 75 73 6c 79 2e 0a 00 00 00 | previously.....|
00000d60 44 41 54 41 52 00 00 00 50 52 4f 43 63 6c 6f 73 |DATAR...PROCclos|
00000d70 65 77 69 6e 28 77 69 6e 29 0a 23 50 61 72 65 6e |ewin(win).#Paren|
00000d80 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 |t !Root.=>.{/}wi|
00000d90 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 |n{/}.window hand|
00000da0 6c 65 0a 0a 43 6c 6f 73 65 20 77 69 6e 64 6f 77 |le..Close window|
00000db0 2e 0a 00 00 44 41 54 41 50 00 00 00 50 52 4f 43 |....DATAP...PROC|
00000dc0 6f 70 65 6e 77 69 6e 28 77 69 6e 29 0a 23 50 61 |openwin(win).#Pa|
00000dd0 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f |rent !Root.=>.{/|
00000de0 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 |}win{/}.window h|
00000df0 61 6e 64 6c 65 0a 0a 4f 70 65 6e 20 77 69 6e 64 |andle..Open wind|
00000e00 6f 77 2e 0a 44 41 54 41 c1 00 00 00 50 52 4f 43 |ow..DATA....PROC|
00000e10 6f 70 65 6e 77 69 6e 61 74 28 77 69 6e 2c 78 2c |openwinat(win,x,|
00000e20 79 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 |y).#Parent !Root|
00000e30 0a 23 57 72 61 70 20 4f 66 66 0a 3d 3e 09 7b 2f |.#Wrap Off.=>.{/|
00000e40 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 |}win{/}.window h|
00000e50 61 6e 64 6c 65 0a 09 7b 2f 7d 78 7b 2f 7d 09 09 |andle..{/}x{/}..|
00000e60 6c 65 66 74 20 6f 66 20 77 69 6e 64 6f 77 20 6f |left of window o|
00000e70 6e 20 73 63 72 65 65 6e 0a 09 7b 2f 7d 79 7b 2f |n screen..{/}y{/|
00000e80 7d 09 09 74 6f 70 20 6f 66 20 77 69 6e 64 6f 77 |}..top of window|
00000e90 20 6f 6e 20 73 63 72 65 65 6e 0a 0a 4f 70 65 6e | on screen..Open|
00000ea0 20 77 69 6e 64 6f 77 20 70 6f 73 69 74 69 6f 6e | window position|
00000eb0 69 6e 67 20 74 6f 70 2d 6c 65 66 74 20 63 6f 72 |ing top-left cor|
00000ec0 6e 65 72 2e 0a 00 00 00 44 41 54 41 6c 00 00 00 |ner.....DATAl...|
00000ed0 50 52 4f 43 6f 70 65 6e 77 69 6e 63 65 6e 74 72 |PROCopenwincentr|
00000ee0 65 28 77 69 6e 29 0a 23 50 61 72 65 6e 74 20 21 |e(win).#Parent !|
00000ef0 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f |Root.=>.{/}win{/|
00000f00 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a |}.window handle.|
00000f10 0a 4f 70 65 6e 20 77 69 6e 64 6f 77 20 63 65 6e |.Open window cen|
00000f20 74 72 65 64 20 6f 6e 20 74 68 65 20 73 63 72 65 |tred on the scre|
00000f30 65 6e 2e 0a 44 41 54 41 1b 01 00 00 50 52 4f 43 |en..DATA....PROC|
00000f40 66 6f 72 63 65 72 65 64 72 61 77 28 77 69 6e 2c |forceredraw(win,|
00000f50 6c 2c 74 2c 72 2c 62 29 0a 23 50 61 72 65 6e 74 |l,t,r,b).#Parent|
00000f60 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e | !Root.=>.{/}win|
00000f70 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c |{/}.window handl|
00000f80 65 2c 20 6f 72 20 2d 31 20 66 6f 72 20 77 68 6f |e, or -1 for who|
00000f90 6c 65 20 73 63 72 65 65 6e 0a 09 7b 2f 7d 6c 7b |le screen..{/}l{|
00000fa0 2f 7d 09 09 6c 65 66 74 20 6f 66 20 72 65 64 72 |/}..left of redr|
00000fb0 61 77 20 62 6f 78 0a 09 7b 2f 7d 74 7b 2f 7d 09 |aw box..{/}t{/}.|
00000fc0 09 74 6f 70 20 6f 66 20 72 65 64 72 61 77 20 62 |.top of redraw b|
00000fd0 6f 78 0a 09 7b 2f 7d 72 7b 2f 7d 09 09 72 69 67 |ox..{/}r{/}..rig|
00000fe0 68 74 20 6f 66 20 72 65 64 72 61 77 20 62 6f 78 |ht of redraw box|
00000ff0 0a 09 7b 2f 7d 62 7b 2f 7d 09 09 62 6f 74 74 6f |..{/}b{/}..botto|
00001000 6d 20 6f 66 20 72 65 64 72 61 77 20 62 6f 78 0a |m of redraw box.|
00001010 0a 52 65 64 72 61 77 20 74 68 65 20 73 70 65 63 |.Redraw the spec|
00001020 69 66 69 65 64 20 77 69 6e 64 6f 77 20 77 69 74 |ified window wit|
00001030 68 69 6e 20 74 68 65 20 73 70 65 63 69 66 69 65 |hin the specifie|
00001040 64 20 63 6f 2d 6f 72 64 69 6e 61 74 65 73 2e 00 |d co-ordinates..|
00001050 44 41 54 41 e4 01 00 00 50 52 4f 43 77 69 6e 73 |DATA....PROCwins|
00001060 65 74 65 78 74 65 6e 74 28 77 69 6e 2c 6c 2c 74 |etextent(win,l,t|
00001070 2c 72 2c 62 29 0a 23 50 61 72 65 6e 74 20 21 52 |,r,b).#Parent !R|
00001080 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d |oot.=>.{/}win{/}|
00001090 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 |.window handle..|
000010a0 7b 2f 7d 6c 7b 2f 7d 09 09 6c 65 66 74 20 6f 66 |{/}l{/}..left of|
000010b0 20 65 78 74 65 6e 74 0a 09 7b 2f 7d 74 7b 2f 7d | extent..{/}t{/}|
000010c0 09 09 74 6f 70 20 6f 66 20 65 78 74 65 6e 74 0a |..top of extent.|
000010d0 09 7b 2f 7d 72 7b 2f 7d 09 09 72 69 67 68 74 20 |.{/}r{/}..right |
000010e0 6f 66 20 65 78 74 65 6e 74 0a 09 7b 2f 7d 62 7b |of extent..{/}b{|
000010f0 2f 7d 09 09 62 6f 74 74 6f 6d 20 6f 66 20 65 78 |/}..bottom of ex|
00001100 74 65 6e 74 0a 09 0a 53 65 74 20 74 68 65 20 6d |tent...Set the m|
00001110 61 78 69 6d 75 6d 20 65 78 74 65 6e 74 20 6f 66 |aximum extent of|
00001120 20 77 69 6e 64 6f 77 20 28 54 57 41 29 2e 20 49 | window (TWA). I|
00001130 66 20 61 6e 79 20 6f 66 20 74 68 65 20 76 61 72 |f any of the var|
00001140 69 61 62 6c 65 73 20 61 72 65 20 2d 31 20 74 68 |iables are -1 th|
00001150 65 6e 20 74 68 65 79 20 61 72 65 20 6e 6f 74 20 |en they are not |
00001160 63 68 61 6e 67 65 64 2e 0a 0a 49 6e 20 57 69 6d |changed...In Wim|
00001170 70 4c 69 62 32 20 74 68 69 73 20 75 73 65 73 20 |pLib2 this uses |
00001180 3c 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 |<Wimp_GetWindowI|
00001190 6e 66 6f 3d 3e 57 69 6d 70 3a 57 69 6d 70 5f 47 |nfo=>Wimp:Wimp_G|
000011a0 65 74 57 69 6e 64 6f 77 49 6e 66 6f 3e 20 77 68 |etWindowInfo> wh|
000011b0 69 63 68 20 72 65 74 75 72 6e 73 20 74 68 65 20 |ich returns the |
000011c0 65 6e 74 69 72 65 20 77 69 6e 64 6f 77 20 62 6c |entire window bl|
000011d0 6f 63 6b 20 69 6e 63 6c 75 64 69 6e 67 20 69 63 |ock including ic|
000011e0 6f 6e 73 20 74 6f 20 62 25 2c 20 74 68 65 72 65 |ons to b%, there|
000011f0 66 6f 72 65 20 69 74 20 69 73 20 76 69 74 61 6c |fore it is vital|
00001200 20 74 68 61 74 20 74 68 65 20 62 6c 6f 63 6b 20 | that the block |
00001210 68 61 73 20 73 75 66 66 69 63 69 65 6e 74 20 73 |has sufficient s|
00001220 70 61 63 65 20 74 6f 20 73 74 6f 72 65 20 74 68 |pace to store th|
00001230 65 6d 2e 0a 44 41 54 41 96 01 00 00 50 52 4f 43 |em..DATA....PROC|
00001240 6f 70 65 6e 77 69 6e 74 6f 28 77 69 6e 2c 6c 2c |openwinto(win,l,|
00001250 74 2c 72 2c 62 29 0a 23 50 61 72 65 6e 74 20 21 |t,r,b).#Parent !|
00001260 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f |Root.=>.{/}win{/|
00001270 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a |}.window handle.|
00001280 09 7b 2f 7d 6c 7b 2f 7d 09 09 6c 65 66 74 20 6f |.{/}l{/}..left o|
00001290 66 20 56 57 41 20 69 6e 20 54 57 41 0a 09 7b 2f |f VWA in TWA..{/|
000012a0 7d 74 7b 2f 7d 09 09 74 6f 70 20 6f 66 20 56 57 |}t{/}..top of VW|
000012b0 41 20 69 6e 20 54 57 41 2e 0a 09 7b 2f 7d 72 7b |A in TWA...{/}r{|
000012c0 2f 7d 09 09 72 69 67 68 74 20 6f 66 20 56 57 41 |/}..right of VWA|
000012d0 20 69 6e 20 54 57 41 0a 09 7b 2f 7d 62 7b 2f 7d | in TWA..{/}b{/}|
000012e0 09 09 62 6f 74 74 6f 6d 20 6f 66 20 56 57 41 20 |..bottom of VWA |
000012f0 69 6e 20 54 57 41 2e 0a 0a 4f 70 65 6e 20 77 69 |in TWA...Open wi|
00001300 6e 64 6f 77 20 61 74 20 70 6f 73 69 74 69 6f 6e |ndow at position|
00001310 20 77 69 74 68 69 6e 20 54 57 41 2e 0a 0a 57 69 | within TWA...Wi|
00001320 6e 64 6f 77 20 64 6f 65 73 20 6e 6f 74 20 6d 6f |ndow does not mo|
00001330 76 65 2c 20 62 75 74 20 69 74 73 20 73 69 7a 65 |ve, but its size|
00001340 20 69 73 20 61 6c 74 65 72 65 64 20 74 6f 20 64 | is altered to d|
00001350 69 66 66 65 72 65 6e 63 65 20 62 65 74 77 65 65 |ifference betwee|
00001360 6e 20 6c 26 72 20 61 6e 64 20 74 26 62 2e 20 54 |n l&r and t&b. T|
00001370 6f 70 2d 6c 65 66 74 20 6f 66 20 56 57 41 20 69 |op-left of VWA i|
00001380 73 20 70 6f 73 69 74 69 6f 6e 65 64 20 74 6f 20 |s positioned to |
00001390 74 6c 2e 0a 49 66 20 72 62 20 3d 20 2d 31 20 74 |tl..If rb = -1 t|
000013a0 68 65 6e 20 6e 6f 20 61 63 74 75 61 6c 20 73 69 |hen no actual si|
000013b0 7a 65 20 63 68 61 6e 67 65 2c 20 6a 75 73 74 20 |ze change, just |
000013c0 70 6f 73 69 74 69 6f 6e 2e 0a 00 00 44 41 54 41 |position....DATA|
000013d0 7c 00 00 00 50 52 4f 43 72 65 6c 65 61 73 65 66 ||...PROCreleasef|
000013e0 6f 6e 74 6d 65 6e 75 0a 23 50 61 72 65 6e 74 20 |ontmenu.#Parent |
000013f0 21 52 6f 6f 74 0a 52 65 6c 65 61 73 65 20 6d 65 |!Root.Release me|
00001400 6d 6f 72 79 20 75 73 65 64 20 62 79 20 3c 46 4e |mory used by <FN|
00001410 67 65 74 66 6f 6e 74 6d 65 6e 75 3e 2e 0a 0a 54 |getfontmenu>...T|
00001420 68 69 73 20 6d 75 73 74 20 62 65 20 64 6f 6e 65 |his must be done|
00001430 20 62 65 66 6f 72 65 20 61 20 70 72 6f 67 72 61 | before a progra|
00001440 6d 20 65 78 69 74 73 2e 44 41 54 41 cc 00 00 00 |m exits.DATA....|
00001450 50 52 4f 43 6d 65 6e 75 74 69 63 6b 28 6d 65 6e |PROCmenutick(men|
00001460 75 2c 6e 75 6d 62 65 72 2c 74 6f 67 67 6c 65 29 |u,number,toggle)|
00001470 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d |.#Parent !Root.=|
00001480 3e 09 7b 2f 7d 6d 65 6e 75 7b 2f 7d 09 70 6f 69 |>.{/}menu{/}.poi|
00001490 6e 74 65 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f |nter to menu blo|
000014a0 63 6b 0a 09 7b 2f 7d 6e 75 6d 62 65 72 7b 2f 7d |ck..{/}number{/}|
000014b0 09 6f 70 74 69 6f 6e 20 74 6f 20 63 68 61 6e 67 |.option to chang|
000014c0 65 0a 09 7b 2f 7d 74 6f 67 67 6c 65 7b 2f 7d 09 |e..{/}toggle{/}.|
000014d0 3c 66 6c 61 67 3d 3e 74 6f 67 67 6c 65 66 6c 61 |<flag=>togglefla|
000014e0 67 3e 20 66 6f 72 20 77 68 65 74 68 65 72 20 74 |g> for whether t|
000014f0 6f 20 74 69 63 6b 0a 0a 54 69 63 6b 2f 75 6e 74 |o tick..Tick/unt|
00001500 69 63 6b 20 6f 70 74 69 6f 6e 20 6f 6e 20 6d 65 |ick option on me|
00001510 6e 75 2e 0a 44 41 54 41 cf 00 00 00 50 52 4f 43 |nu..DATA....PROC|
00001520 6d 65 6e 75 73 68 61 64 65 28 6d 65 6e 75 2c 6e |menushade(menu,n|
00001530 75 6d 62 65 72 2c 74 6f 67 67 6c 65 29 0a 23 50 |umber,toggle).#P|
00001540 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
00001550 2f 7d 6d 65 6e 75 7b 2f 7d 09 70 6f 69 6e 74 65 |/}menu{/}.pointe|
00001560 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f 63 6b 0a |r to menu block.|
00001570 09 7b 2f 7d 6e 75 6d 62 65 72 7b 2f 7d 09 6f 70 |.{/}number{/}.op|
00001580 74 69 6f 6e 20 74 6f 20 61 6c 74 65 72 0a 09 7b |tion to alter..{|
00001590 2f 7d 74 6f 67 67 6c 65 7b 2f 7d 09 3c 66 6c 61 |/}toggle{/}.<fla|
000015a0 67 3d 3e 74 6f 67 67 6c 65 66 6c 61 67 3e 20 66 |g=>toggleflag> f|
000015b0 6f 72 20 77 68 65 74 68 65 72 20 74 6f 20 73 68 |or whether to sh|
000015c0 61 64 65 0a 0a 53 68 61 64 65 2f 75 6e 73 68 61 |ade..Shade/unsha|
000015d0 64 65 20 6f 70 74 69 6f 6e 20 6f 6e 20 6d 65 6e |de option on men|
000015e0 75 2e 0a 00 44 41 54 41 ef 00 00 00 50 52 4f 43 |u...DATA....PROC|
000015f0 73 65 74 6d 65 6e 75 74 65 78 74 28 6d 65 6e 75 |setmenutext(menu|
00001600 2c 6e 75 6d 62 65 72 2c 74 65 78 74 24 29 0a 23 |,number,text$).#|
00001610 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
00001620 7b 2f 7d 6d 65 6e 75 7b 2f 7d 09 70 6f 69 6e 74 |{/}menu{/}.point|
00001630 65 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f 63 6b |er to menu block|
00001640 0a 09 7b 2f 7d 6e 75 6d 62 65 72 7b 2f 7d 09 6f |..{/}number{/}.o|
00001650 70 74 69 6f 6e 20 6e 75 6d 62 65 72 0a 09 7b 2f |ption number..{/|
00001660 7d 74 65 78 74 24 7b 2f 7d 09 6e 65 77 20 74 65 |}text${/}.new te|
00001670 78 74 0a 0a 53 65 74 20 74 68 65 20 74 65 78 74 |xt..Set the text|
00001680 20 66 6f 72 20 6f 70 74 69 6f 6e 20 6f 6e 20 6d | for option on m|
00001690 65 6e 75 2e 20 54 65 78 74 20 6d 75 73 74 20 66 |enu. Text must f|
000016a0 69 74 20 69 6e 74 6f 20 73 70 61 63 65 20 61 6c |it into space al|
000016b0 6c 6f 63 61 74 65 64 20 2d 20 6e 6f 20 63 68 65 |located - no che|
000016c0 63 6b 73 20 61 72 65 20 70 65 72 66 6f 72 6d 65 |cks are performe|
000016d0 64 2e 0a 00 44 41 54 41 46 01 00 00 50 52 4f 43 |d...DATAF...PROC|
000016e0 64 65 6c 65 74 65 69 63 6f 6e 28 77 69 6e 2c 69 |deleteicon(win,i|
000016f0 63 6f 6e 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |con).#Parent !Ro|
00001700 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 |ot.=>.{/}win{/}.|
00001710 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 7b |window handle..{|
00001720 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 |/}icon{/}.icon h|
00001730 61 6e 64 6c 65 0a 0a 44 65 6c 65 74 65 20 69 63 |andle..Delete ic|
00001740 6f 6e 20 66 72 6f 6d 20 77 69 6e 64 6f 77 2e 0a |on from window..|
00001750 0a 4e 6f 74 65 3a 20 54 68 65 20 69 63 6f 6e 20 |.Note: The icon |
00001760 69 73 20 64 65 6c 65 74 65 64 2c 20 62 75 74 20 |is deleted, but |
00001770 73 70 61 63 65 20 69 73 20 73 74 69 6c 6c 20 61 |space is still a|
00001780 6c 6c 6f 63 61 74 65 64 20 74 6f 20 69 74 20 69 |llocated to it i|
00001790 6e 20 74 68 65 20 77 69 6e 64 6f 77 20 62 6c 6f |n the window blo|
000017a0 63 6b 2c 20 68 65 6e 63 65 20 69 66 20 61 20 6e |ck, hence if a n|
000017b0 65 77 20 69 63 6f 6e 20 69 73 20 63 72 65 61 74 |ew icon is creat|
000017c0 65 64 20 74 68 65 20 6e 65 77 20 69 63 6f 6e 20 |ed the new icon |
000017d0 77 69 6c 6c 20 74 61 6b 65 20 74 68 65 20 73 70 |will take the sp|
000017e0 61 63 65 20 61 6c 6c 6f 63 61 74 65 64 20 74 6f |ace allocated to|
000017f0 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 69 63 | the previous ic|
00001800 6f 6e 20 61 6e 64 20 68 65 6e 63 65 20 69 74 27 |on and hence it'|
00001810 73 20 68 61 6e 64 6c 65 2e 0a 00 00 44 41 54 41 |s handle....DATA|
00001820 cb 01 00 00 50 52 4f 43 72 65 61 64 68 65 6c 70 |....PROCreadhelp|
00001830 28 77 69 6e 2c 69 63 6f 6e 2c 74 6f 29 0a 23 50 |(win,icon,to).#P|
00001840 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
00001850 2f 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 |/}win{/}.window |
00001860 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 6f 6e 7b |handle..{/}icon{|
00001870 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c 65 0a 09 |/}.icon handle..|
00001880 7b 2f 7d 74 6f 7b 2f 7d 09 74 61 73 6b 20 68 61 |{/}to{/}.task ha|
00001890 6e 64 6c 65 20 74 6f 20 73 65 6e 64 20 6d 65 73 |ndle to send mes|
000018a0 73 61 67 65 20 74 6f 0a 0a 52 65 61 64 20 68 65 |sage to..Read he|
000018b0 6c 70 20 66 72 6f 6d 20 61 70 70 6c 69 63 61 74 |lp from applicat|
000018c0 69 6f 6e 20 61 6e 64 20 73 65 6e 64 20 69 74 20 |ion and send it |
000018d0 62 61 63 6b 2e 0a 0a 55 73 75 61 6c 6c 79 20 63 |back...Usually c|
000018e0 61 6c 6c 65 64 20 77 69 74 68 20 0a 7b 66 43 6f |alled with .{fCo|
000018f0 64 65 7d 52 45 53 54 4f 52 45 20 64 61 74 61 73 |de}RESTORE datas|
00001900 74 61 74 65 6d 65 6e 74 73 3a 20 50 52 4f 43 72 |tatements: PROCr|
00001910 65 61 64 68 65 6c 70 28 62 25 21 33 32 2c 62 25 |eadhelp(b%!32,b%|
00001920 21 33 36 2c 62 25 21 34 29 7b 66 7d 2e 0a 4d 65 |!36,b%!4){f}..Me|
00001930 6e 75 73 20 61 72 65 20 72 65 73 70 6f 6e 64 65 |nus are responde|
00001940 64 20 74 6f 20 63 6f 72 72 65 63 74 6c 79 20 61 |d to correctly a|
00001950 6e 64 20 67 69 76 65 20 6d 65 73 73 61 67 65 73 |nd give messages|
00001960 20 75 6e 64 65 72 20 52 4f 33 2e 20 53 65 65 20 | under RO3. See |
00001970 3c 50 52 4f 43 73 65 6e 64 68 65 6c 70 3e 20 66 |<PROCsendhelp> f|
00001980 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 |or more informat|
00001990 69 6f 6e 2e 0a 57 69 6d 70 4c 69 62 32 20 68 61 |ion..WimpLib2 ha|
000019a0 73 20 6e 6f 20 73 75 70 70 6f 72 74 20 66 6f 72 |s no support for|
000019b0 20 6d 65 6e 75 20 68 65 6c 70 2e 0a 0a 43 6c 69 | menu help...Cli|
000019c0 63 6b 20 3c 68 65 72 65 3d 3e 68 65 6c 70 66 6f |ck <here=>helpfo|
000019d0 72 6d 61 74 3e 20 66 6f 72 20 44 41 54 41 20 66 |rmat> for DATA f|
000019e0 6f 72 6d 61 74 2e 0a 00 44 41 54 41 c8 01 00 00 |ormat...DATA....|
000019f0 50 52 4f 43 73 65 6e 64 68 65 6c 70 28 68 65 6c |PROCsendhelp(hel|
00001a00 70 24 2c 74 6f 29 0a 23 50 61 72 65 6e 74 20 21 |p$,to).#Parent !|
00001a10 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 68 65 6c 70 24 |Root.=>.{/}help$|
00001a20 7b 2f 7d 09 4d 65 73 73 61 67 65 20 74 6f 20 73 |{/}.Message to s|
00001a30 65 6e 64 0a 09 7b 2f 7d 74 6f 7b 2f 7d 09 74 61 |end..{/}to{/}.ta|
00001a40 73 6b 20 74 6f 20 73 65 6e 64 20 74 6f 0a 0a 53 |sk to send to..S|
00001a50 65 6e 64 20 68 65 6c 70 20 74 6f 20 61 70 70 6c |end help to appl|
00001a60 69 63 61 74 69 6f 6e 2e 0a 0a 3c 53 70 65 63 69 |ication...<Speci|
00001a70 61 6c 20 63 6f 64 65 73 3d 3e 57 69 6d 70 3a 57 |al codes=>Wimp:W|
00001a80 69 6d 70 5f 55 4d 35 30 33 43 6f 64 65 73 3e 20 |imp_UM503Codes> |
00001a90 6d 61 79 20 62 65 20 75 73 65 64 20 75 6e 64 65 |may be used unde|
00001aa0 72 20 52 4f 33 20 21 48 65 6c 70 20 6f 72 20 21 |r RO3 !Help or !|
00001ab0 51 75 69 63 6b 48 6c 70 2e 20 49 6e 20 61 64 64 |QuickHlp. In add|
00001ac0 69 74 69 6f 6e 20 74 6f 20 74 68 65 20 21 48 65 |ition to the !He|
00001ad0 6c 70 20 63 6f 64 65 73 20 3a 0a a4 53 74 72 69 |lp codes :..Stri|
00001ae0 6e 67 24 a4 20 77 69 6c 6c 20 69 6e 63 6c 75 64 |ng$. will includ|
00001af0 65 20 73 74 72 69 6e 67 20 7b 2f 7d 73 74 72 69 |e string {/}stri|
00001b00 6e 67 24 7b 2f 7d 0a 3e 74 6f 6b 65 6e 5b 3a 73 |ng${/}.>token[:s|
00001b10 75 62 73 74 31 5b 3a 73 75 62 73 74 32 5b 3a 73 |ubst1[:subst2[:s|
00001b20 75 62 73 74 33 5d 5d 5d 20 77 69 6c 6c 20 6c 6f |ubst3]]] will lo|
00001b30 6f 6b 2d 75 70 20 74 68 65 20 74 6f 6b 65 6e 20 |ok-up the token |
00001b40 69 6e 20 74 68 65 20 4d 65 73 73 61 67 65 54 72 |in the MessageTr|
00001b50 61 6e 73 20 66 69 6c 65 2e 0a 0a 49 66 20 74 68 |ans file...If th|
00001b60 65 20 69 73 20 6e 6f 20 66 75 6c 6c 20 73 74 6f |e is no full sto|
00001b70 70 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 |p at the end of |
00001b80 74 68 65 20 6c 69 6e 65 20 28 6f 72 20 62 65 66 |the line (or bef|
00001b90 6f 72 65 20 7c 4d 29 20 74 68 65 6e 20 6f 6e 65 |ore |M) then one|
00001ba0 20 77 69 6c 6c 20 62 65 20 61 64 64 65 64 2e 0a | will be added..|
00001bb0 44 41 54 41 61 00 00 00 50 52 4f 43 6f 70 65 6e |DATAa...PROCopen|
00001bc0 6d 65 73 73 61 67 65 73 0a 23 50 61 72 65 6e 74 |messages.#Parent|
00001bd0 20 21 52 6f 6f 74 0a 4f 70 65 6e 20 61 20 4d 65 | !Root.Open a Me|
00001be0 73 73 61 67 65 54 72 61 6e 73 20 66 69 6c 65 20 |ssageTrans file |
00001bf0 28 41 70 70 64 69 72 24 2b 22 2e 4d 65 73 73 61 |(Appdir$+".Messa|
00001c00 67 65 73 22 29 20 66 6f 72 20 69 6e 70 75 74 2e |ges") for input.|
00001c10 0a 00 00 00 44 41 54 41 6f 00 00 00 50 52 4f 43 |....DATAo...PROC|
00001c20 63 6c 6f 73 65 6d 65 73 73 61 67 65 73 0a 23 50 |closemessages.#P|
00001c30 61 72 65 6e 74 20 21 52 6f 6f 74 0a 43 6c 6f 73 |arent !Root.Clos|
00001c40 65 20 74 68 65 20 4d 65 73 73 61 67 65 54 72 61 |e the MessageTra|
00001c50 6e 73 20 66 69 6c 65 20 70 72 65 76 69 6f 75 73 |ns file previous|
00001c60 6c 79 20 6f 70 65 6e 65 64 20 77 69 74 68 20 3c |ly opened with <|
00001c70 50 52 4f 43 6f 70 65 6e 6d 65 73 73 61 67 65 73 |PROCopenmessages|
00001c80 3e 2e 0a 00 44 41 54 41 a0 00 00 00 50 52 4f 43 |>...DATA....PROC|
00001c90 72 65 6c 65 61 73 65 66 74 6d 65 6e 75 0a 23 50 |releaseftmenu.#P|
00001ca0 61 72 65 6e 74 20 21 52 6f 6f 74 0a 52 65 6c 65 |arent !Root.Rele|
00001cb0 61 73 65 73 20 74 68 65 20 73 70 61 63 65 20 75 |ases the space u|
00001cc0 73 65 64 20 62 79 20 74 68 65 20 66 69 6c 65 74 |sed by the filet|
00001cd0 79 70 65 20 6d 65 6e 75 20 61 73 20 63 72 65 61 |ype menu as crea|
00001ce0 74 65 64 20 62 79 20 3c 46 4e 63 72 65 61 74 65 |ted by <FNcreate|
00001cf0 66 74 6d 65 6e 75 3e 2e 0a 0a 54 68 69 73 20 6d |ftmenu>...This m|
00001d00 75 73 74 20 62 65 20 64 6f 6e 65 20 62 65 66 6f |ust be done befo|
00001d10 72 65 20 61 20 70 72 6f 67 72 61 6d 20 65 78 69 |re a program exi|
00001d20 74 73 2e 0a 44 41 54 41 c4 00 00 00 50 52 4f 43 |ts..DATA....PROC|
00001d30 69 63 6f 6e 73 68 61 64 65 28 77 69 6e 2c 69 63 |iconshade(win,ic|
00001d40 6f 6e 2c 74 6f 67 67 6c 65 29 0a 23 50 61 72 65 |on,toggle).#Pare|
00001d50 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 |nt !Root.=>.{/}w|
00001d60 69 6e 64 6f 77 7b 2f 7d 09 77 69 6e 64 6f 77 20 |indow{/}.window |
00001d70 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 6f 6e 7b |handle..{/}icon{|
00001d80 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c 65 0a 09 |/}.icon handle..|
00001d90 7b 2f 7d 74 6f 67 67 6c 65 7b 2f 7d 09 3c 66 6c |{/}toggle{/}.<fl|
00001da0 61 67 3d 3e 74 6f 67 67 6c 65 66 6c 61 67 3e 20 |ag=>toggleflag> |
00001db0 66 6f 72 20 77 68 65 74 68 65 72 20 74 6f 20 73 |for whether to s|
00001dc0 68 61 64 65 0a 0a 53 68 61 64 65 2c 20 75 6e 73 |hade..Shade, uns|
00001dd0 68 61 64 65 20 6f 72 20 74 6f 67 67 6c 65 20 61 |hade or toggle a|
00001de0 6e 20 69 63 6f 6e 2e 0a 44 41 54 41 c7 00 00 00 |n icon..DATA....|
00001df0 50 52 4f 43 69 63 6f 6e 73 74 61 74 65 28 77 69 |PROCiconstate(wi|
00001e00 6e 2c 69 63 6f 6e 2c 74 6f 67 67 6c 65 29 0a 23 |n,icon,toggle).#|
00001e10 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
00001e20 7b 2f 7d 77 69 6e 64 6f 77 7b 2f 7d 09 77 69 6e |{/}window{/}.win|
00001e30 64 6f 77 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 |dow handle..{/}i|
00001e40 63 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 |con{/}.icon hand|
00001e50 6c 65 0a 09 7b 2f 7d 74 6f 67 67 6c 65 7b 2f 7d |le..{/}toggle{/}|
00001e60 09 3c 66 6c 61 67 3d 3e 74 6f 67 67 6c 65 66 6c |.<flag=>togglefl|
00001e70 61 67 3e 20 66 6f 72 20 77 68 65 74 68 65 72 20 |ag> for whether |
00001e80 74 6f 20 73 65 6c 65 63 74 0a 0a 53 65 6c 65 63 |to select..Selec|
00001e90 74 2c 20 75 6e 73 65 6c 65 63 74 20 6f 72 20 74 |t, unselect or t|
00001ea0 6f 67 67 6c 65 20 61 6e 20 69 63 6f 6e 2e 0a 00 |oggle an icon...|
00001eb0 44 41 54 41 0c 01 00 00 50 52 4f 43 73 65 74 69 |DATA....PROCseti|
00001ec0 63 6f 6e 62 69 74 28 77 69 6e 2c 69 63 6f 6e 2c |conbit(win,icon,|
00001ed0 62 69 74 2c 74 6f 67 67 6c 65 29 0a 23 50 61 72 |bit,toggle).#Par|
00001ee0 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00001ef0 77 69 6e 64 6f 77 7b 2f 7d 09 77 69 6e 64 6f 77 |window{/}.window|
00001f00 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 6f 6e | handle..{/}icon|
00001f10 7b 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c 65 0a |{/}.icon handle.|
00001f20 09 7b 2f 7d 62 69 74 7b 2f 7d 09 3c 62 69 74 3d |.{/}bit{/}.<bit=|
00001f30 3e 57 69 6d 70 3a 57 69 6d 70 5f 69 63 6f 6e 66 |>Wimp:Wimp_iconf|
00001f40 6c 61 67 73 3e 20 74 6f 20 63 68 61 6e 67 65 0a |lags> to change.|
00001f50 09 7b 2f 7d 74 6f 67 67 6c 65 7b 2f 7d 09 3c 66 |.{/}toggle{/}.<f|
00001f60 6c 61 67 3d 3e 74 6f 67 67 6c 65 66 6c 61 67 3e |lag=>toggleflag>|
00001f70 20 66 6f 72 20 77 68 65 74 68 65 72 20 74 6f 20 | for whether to |
00001f80 73 68 61 64 65 0a 0a 53 65 74 2f 75 6e 73 65 74 |shade..Set/unset|
00001f90 2f 74 6f 67 67 6c 65 20 61 20 70 61 72 74 69 63 |/toggle a partic|
00001fa0 75 6c 61 72 20 62 69 74 20 69 6e 20 61 6e 20 69 |ular bit in an i|
00001fb0 63 6f 6e 27 73 20 66 6c 61 67 73 0a 44 41 54 41 |con's flags.DATA|
00001fc0 7d 00 00 00 50 52 4f 43 72 65 64 72 61 77 69 63 |}...PROCredrawic|
00001fd0 6f 6e 28 77 69 6e 2c 69 63 6f 6e 29 0a 23 50 61 |on(win,icon).#Pa|
00001fe0 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f |rent !Root.=>.{/|
00001ff0 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 |}win{/}.window h|
00002000 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 6f 6e 7b 2f |andle..{/}icon{/|
00002010 7d 09 69 63 6f 6e 20 68 61 6e 64 6c 65 0a 0a 52 |}.icon handle..R|
00002020 65 64 72 61 77 20 74 68 65 20 73 70 65 63 69 66 |edraw the specif|
00002030 69 65 64 20 69 63 6f 6e 2e 00 00 00 44 41 54 41 |ied icon....DATA|
00002040 f2 00 00 00 50 52 4f 43 73 65 74 69 63 6f 6e 74 |....PROCseticont|
00002050 65 78 74 28 77 69 6e 2c 69 63 6f 6e 2c 74 65 78 |ext(win,icon,tex|
00002060 74 24 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |t$).#Parent !Roo|
00002070 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 77 |t.=>.{/}win{/}.w|
00002080 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 7b 2f |indow handle..{/|
00002090 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 61 |}icon{/}.icon ha|
000020a0 6e 64 6c 65 0a 09 7b 2f 7d 74 65 78 74 24 7b 2f |ndle..{/}text${/|
000020b0 7d 09 6e 65 77 20 74 65 78 74 0a 0a 53 65 74 20 |}.new text..Set |
000020c0 69 63 6f 6e 27 73 20 74 65 78 74 20 73 74 72 69 |icon's text stri|
000020d0 6e 67 20 28 6f 6e 6c 79 20 66 6f 72 20 69 6e 64 |ng (only for ind|
000020e0 69 72 65 63 74 65 64 20 73 70 72 69 74 65 73 29 |irected sprites)|
000020f0 2e 0a 0a 4e 6f 74 65 3a 20 44 6f 20 6e 6f 74 20 |...Note: Do not |
00002100 6f 76 65 72 72 75 6e 20 6d 61 78 69 6d 75 6d 20 |overrun maximum |
00002110 6c 65 6e 67 74 68 20 6f 66 20 69 6e 64 69 72 65 |length of indire|
00002120 63 74 69 6f 6e 20 62 75 66 66 65 72 2e 0a 00 00 |ction buffer....|
00002130 44 41 54 41 ad 00 00 00 50 52 4f 43 64 72 61 67 |DATA....PROCdrag|
00002140 69 63 6f 6e 28 77 69 6e 64 6f 77 2c 69 63 6f 6e |icon(window,icon|
00002150 2c 66 6c 61 67 29 0a 23 50 61 72 65 6e 74 20 21 |,flag).#Parent !|
00002160 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f |Root.=>.{/}win{/|
00002170 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a |}.window handle.|
00002180 09 7b 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e |.{/}icon{/}.icon|
00002190 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 66 6c 61 67 | handle..{/}flag|
000021a0 7b 2f 7d 09 54 52 55 45 20 74 6f 20 72 65 73 74 |{/}.TRUE to rest|
000021b0 72 69 63 74 20 74 6f 20 74 68 65 20 77 69 6e 64 |rict to the wind|
000021c0 6f 77 0a 0a 53 74 61 72 74 20 61 20 64 72 61 67 |ow..Start a drag|
000021d0 20 6f 66 20 61 6e 20 69 63 6f 6e 2e 0a 00 00 00 | of an icon.....|
000021e0 44 41 54 41 7e 01 00 00 50 52 4f 43 77 69 6e 64 |DATA~...PROCwind|
000021f0 6f 77 74 69 74 6c 65 28 77 69 6e 2c 74 69 74 6c |owtitle(win,titl|
00002200 65 24 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |e$).#Parent !Roo|
00002210 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 77 |t.=>.{/}win{/}.w|
00002220 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 7b 2f |indow handle..{/|
00002230 7d 74 69 74 6c 65 24 7b 2f 7d 09 6e 65 77 20 74 |}title${/}.new t|
00002240 69 74 6c 65 20 6f 66 20 77 69 6e 64 6f 77 0a 0a |itle of window..|
00002250 53 65 74 20 74 69 74 6c 65 20 6f 66 20 77 69 6e |Set title of win|
00002260 64 6f 77 2e 20 49 6e 64 69 72 65 63 74 69 6f 6e |dow. Indirection|
00002270 20 6d 75 73 74 20 62 65 20 75 73 65 64 20 66 6f | must be used fo|
00002280 72 20 74 69 74 6c 65 20 62 61 72 2e 0a 0a 49 6e |r title bar...In|
00002290 20 57 69 6d 70 4c 69 62 32 20 74 68 69 73 20 75 | WimpLib2 this u|
000022a0 73 65 73 20 3c 57 69 6d 70 5f 47 65 74 57 69 6e |ses <Wimp_GetWin|
000022b0 64 6f 77 49 6e 66 6f 3d 3e 57 69 6d 70 3a 57 69 |dowInfo=>Wimp:Wi|
000022c0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f |mp_GetWindowInfo|
000022d0 3e 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 20 |> which returns |
000022e0 74 68 65 20 65 6e 74 69 72 65 20 77 69 6e 64 6f |the entire windo|
000022f0 77 20 62 6c 6f 63 6b 20 69 6e 63 6c 75 64 69 6e |w block includin|
00002300 67 20 69 63 6f 6e 73 20 74 6f 20 7b 2f 7d 62 25 |g icons to {/}b%|
00002310 7b 2f 7d 2c 20 74 68 65 72 65 66 6f 72 65 20 69 |{/}, therefore i|
00002320 74 20 69 73 20 76 69 74 61 6c 20 74 68 61 74 20 |t is vital that |
00002330 74 68 65 20 62 6c 6f 63 6b 20 68 61 73 20 73 75 |the block has su|
00002340 66 66 69 63 69 65 6e 74 20 73 70 61 63 65 20 74 |fficient space t|
00002350 6f 20 73 74 6f 72 65 20 74 68 65 6d 2e 0a 00 00 |o store them....|
00002360 44 41 54 41 f4 00 00 00 50 52 4f 43 72 65 61 64 |DATA....PROCread|
00002370 74 61 73 6b 61 72 65 61 28 74 61 73 6b 2c 6c 6f |taskarea(task,lo|
00002380 63 2c 74 6f 2c 6c 65 6e 29 0a 23 50 61 72 65 6e |c,to,len).#Paren|
00002390 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 |t !Root.=>.{/}ta|
000023a0 73 6b 7b 2f 7d 09 73 6f 75 72 63 65 20 61 70 70 |sk{/}.source app|
000023b0 6c 69 63 61 74 69 6f 6e 27 73 20 68 61 6e 64 6c |lication's handl|
000023c0 65 0a 09 7b 2f 7d 6c 6f 63 7b 2f 7d 09 61 64 64 |e..{/}loc{/}.add|
000023d0 72 65 73 73 20 69 6e 20 73 6f 75 72 63 65 0a 09 |ress in source..|
000023e0 7b 2f 7d 74 6f 7b 2f 7d 09 61 64 64 72 65 73 73 |{/}to{/}.address|
000023f0 20 69 6e 20 6f 75 72 20 61 70 70 6c 69 63 61 74 | in our applicat|
00002400 69 6f 6e 0a 09 7b 2f 7d 6c 65 6e 7b 2f 7d 09 6c |ion..{/}len{/}.l|
00002410 65 6e 67 74 68 20 74 6f 20 72 65 61 64 0a 0a 52 |ength to read..R|
00002420 65 61 64 20 61 20 62 6c 6f 63 6b 20 66 72 6f 6d |ead a block from|
00002430 20 67 69 76 65 6e 20 74 61 73 6b 20 69 6e 74 6f | given task into|
00002440 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 73 70 61 | application spa|
00002450 63 65 2e 0a 44 41 54 41 aa 00 00 00 50 52 4f 43 |ce..DATA....PROC|
00002460 73 65 74 63 61 72 65 74 65 6e 64 28 77 69 6e 2c |setcaretend(win,|
00002470 69 63 6f 6e 29 0a 23 50 61 72 65 6e 74 20 21 52 |icon).#Parent !R|
00002480 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d |oot.=>.{/}win{/}|
00002490 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 |.window handle..|
000024a0 7b 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 |{/}icon{/}.icon |
000024b0 68 61 6e 64 6c 65 0a 0a 53 65 74 20 74 68 65 20 |handle..Set the |
000024c0 63 61 72 65 74 73 20 6c 6f 63 61 74 69 6f 6e 20 |carets location |
000024d0 61 73 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 |as the end of th|
000024e0 65 20 74 65 78 74 20 69 6e 20 74 68 65 20 73 70 |e text in the sp|
000024f0 65 63 69 66 69 65 64 20 69 63 6f 6e 2e 0a 00 00 |ecified icon....|
00002500 44 41 54 41 e8 00 00 00 50 52 4f 43 73 65 74 63 |DATA....PROCsetc|
00002510 61 72 65 74 70 6f 73 28 77 69 6e 2c 69 63 6f 6e |aretpos(win,icon|
00002520 2c 63 68 61 72 73 29 0a 23 50 61 72 65 6e 74 20 |,chars).#Parent |
00002530 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b |!Root.=>.{/}win{|
00002540 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 |/}.window handle|
00002550 2c 20 6f 72 20 2d 31 20 74 6f 20 6c 6f 73 65 0a |, or -1 to lose.|
00002560 09 7b 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e |.{/}icon{/}.icon|
00002570 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 63 68 61 72 | handle..{/}char|
00002580 73 7b 2f 7d 09 6e 75 6d 62 65 72 20 6f 66 20 63 |s{/}.number of c|
00002590 68 61 72 61 63 74 65 72 73 0a 0a 53 65 74 20 74 |haracters..Set t|
000025a0 68 65 20 63 61 72 65 74 73 20 6c 6f 63 61 74 69 |he carets locati|
000025b0 6f 6e 20 61 73 20 74 68 65 20 73 70 65 63 69 66 |on as the specif|
000025c0 69 65 64 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 |ied number of ch|
000025d0 61 72 61 63 74 65 72 73 20 69 6e 74 6f 20 74 68 |aracters into th|
000025e0 65 20 69 63 6f 6e 2e 0a 44 41 54 41 b6 00 00 00 |e icon..DATA....|
000025f0 50 52 4f 43 67 65 74 63 61 72 65 74 70 6f 73 28 |PROCgetcaretpos(|
00002600 77 69 6e 2c 69 63 6f 6e 2c 63 68 61 72 73 29 0a |win,icon,chars).|
00002610 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3c 3d |#Parent !Root.<=|
00002620 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f |.{/}win{/}.windo|
00002630 77 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 6f |w handle..{/}ico|
00002640 6e 7b 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c 65 |n{/}.icon handle|
00002650 0a 09 7b 2f 7d 63 68 61 72 73 7b 2f 7d 09 63 68 |..{/}chars{/}.ch|
00002660 61 72 61 63 74 65 72 20 6f 66 66 73 65 74 20 69 |aracter offset i|
00002670 6e 74 6f 20 73 74 72 69 6e 67 0a 0a 52 65 74 75 |nto string..Retu|
00002680 72 6e 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 |rn the location |
00002690 6f 66 20 74 68 65 20 63 61 72 65 74 2e 0a 00 00 |of the caret....|
000026a0 44 41 54 41 ae 00 00 00 50 52 4f 43 67 65 74 70 |DATA....PROCgetp|
000026b0 74 72 70 6f 73 28 78 2c 79 2c 77 69 6e 2c 69 63 |trpos(x,y,win,ic|
000026c0 6f 6e 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |on).#Parent !Roo|
000026d0 74 0a 3c 3d 09 7b 2f 7d 78 7b 2f 7d 09 09 6d 6f |t.<=.{/}x{/}..mo|
000026e0 75 73 65 20 78 0a 09 7b 2f 7d 79 7b 2f 7d 09 09 |use x..{/}y{/}..|
000026f0 6d 6f 75 73 65 20 79 0a 09 7b 2f 7d 77 69 6e 7b |mouse y..{/}win{|
00002700 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 |/}.window handle|
00002710 0a 09 7b 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f |..{/}icon{/}.ico|
00002720 6e 20 68 61 6e 64 6c 65 0a 0a 52 65 74 75 72 6e |n handle..Return|
00002730 20 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 | the location of|
00002740 20 74 68 65 20 70 6f 69 6e 74 65 72 2e 0a 00 00 | the pointer....|
00002750 44 41 54 41 c6 00 00 00 50 52 4f 43 77 72 69 74 |DATA....PROCwrit|
00002760 65 63 6d 6f 73 28 62 79 74 65 2c 76 61 6c 75 65 |ecmos(byte,value|
00002770 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a |).#Parent !Root.|
00002780 23 57 72 61 70 20 6f 66 66 0a 3d 3e 09 7b 2f 7d |#Wrap off.=>.{/}|
00002790 62 79 74 65 7b 2f 7d 09 3c 43 4d 4f 53 20 62 79 |byte{/}.<CMOS by|
000027a0 74 65 20 74 6f 20 63 68 61 6e 67 65 3d 3e 4f 53 |te to change=>OS|
000027b0 3a 4f 53 5f 62 79 74 65 63 6d 6f 73 3e 0a 09 7b |:OS_bytecmos>..{|
000027c0 2f 7d 76 61 6c 75 65 7b 2f 7d 09 6e 65 77 20 76 |/}value{/}.new v|
000027d0 61 6c 75 65 20 6f 66 20 62 79 74 65 0a 23 57 72 |alue of byte.#Wr|
000027e0 61 70 0a 0a 57 72 69 74 65 20 61 20 62 79 74 65 |ap..Write a byte|
000027f0 20 6f 66 20 63 6f 6e 66 69 67 75 72 61 74 69 6f | of configuratio|
00002800 6e 20 69 6e 66 6f 20 69 6e 74 6f 20 43 4d 4f 53 |n info into CMOS|
00002810 20 52 41 4d 2e 0a 00 00 44 41 54 41 ea 00 00 00 | RAM....DATA....|
00002820 50 52 4f 43 6d 65 6e 75 75 6e 74 69 63 6b 28 6d |PROCmenuuntick(m|
00002830 65 6e 75 2c 73 74 61 72 74 2c 65 6e 64 29 0a 23 |enu,start,end).#|
00002840 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
00002850 7b 2f 7d 6d 65 6e 75 7b 2f 7d 09 70 6f 69 6e 74 |{/}menu{/}.point|
00002860 65 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f 63 6b |er to menu block|
00002870 0a 09 7b 2f 7d 73 74 61 72 74 7b 2f 7d 09 6f 70 |..{/}start{/}.op|
00002880 74 69 6f 6e 20 74 6f 20 73 74 61 72 74 20 61 74 |tion to start at|
00002890 0a 09 7b 2f 7d 65 6e 64 7b 2f 7d 09 6f 70 74 69 |..{/}end{/}.opti|
000028a0 6f 6e 20 74 6f 20 65 6e 64 20 61 74 2c 20 6f 72 |on to end at, or|
000028b0 20 2d 31 20 66 6f 72 20 65 6e 64 20 6f 66 20 6d | -1 for end of m|
000028c0 65 6e 75 0a 0a 55 6e 74 69 63 6b 73 20 61 6c 6c |enu..Unticks all|
000028d0 20 74 68 65 20 6f 70 74 69 6f 6e 73 20 62 65 74 | the options bet|
000028e0 77 65 65 6e 20 74 68 6f 73 65 20 73 70 65 63 69 |ween those speci|
000028f0 66 69 65 64 20 28 69 6e 63 6c 75 73 69 76 65 29 |fied (inclusive)|
00002900 2e 0a 00 00 44 41 54 41 d8 00 00 00 50 52 4f 43 |....DATA....PROC|
00002910 73 65 74 69 63 6f 6e 76 61 6c 69 64 28 77 69 6e |seticonvalid(win|
00002920 2c 69 63 6f 6e 2c 76 61 6c 69 64 24 29 0a 23 50 |,icon,valid$).#P|
00002930 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
00002940 2f 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 |/}win{/}.window |
00002950 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 6f 6e 7b |handle..{/}icon{|
00002960 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c 65 0a 09 |/}.icon handle..|
00002970 7b 2f 7d 76 61 6c 69 64 24 7b 2f 7d 09 6e 65 77 |{/}valid${/}.new|
00002980 20 76 61 6c 69 64 61 74 69 6f 6e 20 73 74 72 69 | validation stri|
00002990 6e 67 0a 0a 53 65 74 20 69 63 6f 6e 27 73 20 76 |ng..Set icon's v|
000029a0 61 6c 69 64 61 74 69 6f 6e 20 73 74 72 69 6e 67 |alidation string|
000029b0 2e 20 44 6f 20 6e 6f 74 20 6f 76 65 72 72 75 6e |. Do not overrun|
000029c0 20 76 61 6c 69 64 61 74 69 6f 6e 20 73 74 72 69 | validation stri|
000029d0 6e 67 73 20 62 75 66 66 65 72 2e 0a 44 41 54 41 |ngs buffer..DATA|
000029e0 e6 01 00 00 50 52 4f 43 6d 61 6b 65 73 74 61 74 |....PROCmakestat|
000029f0 75 73 66 69 6c 65 28 66 69 6c 65 24 29 0a 23 50 |usfile(file$).#P|
00002a00 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
00002a10 2f 7d 66 69 6c 65 24 7b 2f 7d 09 66 69 6c 65 20 |/}file${/}.file |
00002a20 74 6f 20 63 72 65 61 74 65 0a 0a 42 65 67 69 6e |to create..Begin|
00002a30 20 6d 61 6b 69 6e 67 20 61 20 73 74 61 74 75 73 | making a status|
00002a40 20 66 69 6c 65 20 66 6f 72 20 75 73 65 20 62 79 | file for use by|
00002a50 20 74 68 69 73 20 70 72 6f 67 72 61 6d 20 61 6c | this program al|
00002a60 6f 6e 65 20 28 6f 72 20 3c 21 43 6f 6e 66 69 67 |one (or <!Config|
00002a70 2b 3d 3e 43 6f 6e 66 69 67 50 6c 75 73 3a 69 6e |+=>ConfigPlus:in|
00002a80 66 6f 3e 20 69 66 20 73 75 70 70 6f 72 74 65 64 |fo> if supported|
00002a90 29 2e 0a 0a 54 68 65 20 66 69 6c 65 20 69 73 20 |)...The file is |
00002aa0 63 72 65 61 74 65 64 20 77 69 74 68 20 74 79 70 |created with typ|
00002ab0 65 20 74 65 78 74 20 61 6e 64 20 68 65 61 64 65 |e text and heade|
00002ac0 64 20 77 69 74 68 20 7b 2f 7d 41 70 70 6e 61 6d |d with {/}Appnam|
00002ad0 65 24 7b 2f 7d 20 74 6f 20 6d 61 72 6b 20 69 74 |e${/} to mark it|
00002ae0 20 61 73 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f | as belonging to|
00002af0 20 74 68 69 73 20 61 70 70 6c 69 63 61 74 69 6f | this applicatio|
00002b00 6e 2e 0a 0a 52 65 6c 61 74 65 64 20 63 6f 6d 6d |n...Related comm|
00002b10 61 6e 64 73 20 3a 0a 23 54 61 62 3b 49 6e 64 65 |ands :.#Tab;Inde|
00002b20 6e 74 20 32 0a 3c 50 52 4f 43 73 74 61 74 75 73 |nt 2.<PROCstatus|
00002b30 70 75 74 3e 09 09 73 74 6f 72 65 73 20 61 20 73 |put>..stores a s|
00002b40 74 72 69 6e 67 0a 3c 50 52 4f 43 73 74 61 74 75 |tring.<PROCstatu|
00002b50 73 6f 70 74 69 6f 6e 3e 09 73 74 6f 72 65 73 20 |soption>.stores |
00002b60 61 20 76 61 72 69 61 62 6c 65 0a 3c 50 52 4f 43 |a variable.<PROC|
00002b70 73 74 61 74 75 73 66 6c 61 67 3e 09 73 74 6f 72 |statusflag>.stor|
00002b80 65 73 20 61 20 66 6c 61 67 0a 3c 50 52 4f 43 63 |es a flag.<PROCc|
00002b90 6c 6f 73 65 73 74 61 74 75 73 66 69 6c 65 3e 09 |losestatusfile>.|
00002ba0 66 69 6e 69 73 68 65 73 20 6d 61 6b 69 6e 67 20 |finishes making |
00002bb0 74 68 65 20 66 69 6c 65 2e 0a 23 49 6e 64 65 6e |the file..#Inden|
00002bc0 74 0a 00 00 44 41 54 41 7e 00 00 00 50 52 4f 43 |t...DATA~...PROC|
00002bd0 63 6c 6f 73 65 73 74 61 74 75 73 66 69 6c 65 0a |closestatusfile.|
00002be0 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 43 6c |#Parent !Root.Cl|
00002bf0 6f 73 65 20 61 20 73 74 61 74 75 73 20 66 69 6c |ose a status fil|
00002c00 65 20 70 72 65 76 69 6f 75 73 6c 79 20 6f 70 65 |e previously ope|
00002c10 6e 65 64 20 62 79 20 3c 50 52 4f 43 6d 61 6b 65 |ned by <PROCmake|
00002c20 73 74 61 74 75 73 66 69 6c 65 3e 20 6f 72 20 3c |statusfile> or <|
00002c30 46 4e 72 65 61 64 73 74 61 74 75 73 66 69 6c 65 |FNreadstatusfile|
00002c40 3e 0a 00 00 44 41 54 41 e0 00 00 00 50 52 4f 43 |>...DATA....PROC|
00002c50 73 74 61 74 75 73 70 75 74 28 74 61 67 24 2c 76 |statusput(tag$,v|
00002c60 61 6c 75 65 24 29 0a 23 50 61 72 65 6e 74 20 21 |alue$).#Parent !|
00002c70 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 67 24 7b |Root.=>.{/}tag${|
00002c80 2f 7d 09 74 61 67 20 63 6f 64 65 0a 09 7b 2f 7d |/}.tag code..{/}|
00002c90 76 61 6c 75 65 24 7b 2f 7d 09 76 61 6c 75 65 20 |value${/}.value |
00002ca0 74 6f 20 73 74 6f 72 65 0a 0a 53 74 6f 72 65 20 |to store..Store |
00002cb0 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 |a string in the |
00002cc0 73 74 61 74 75 73 20 66 69 6c 65 20 77 69 74 68 |status file with|
00002cd0 20 72 65 66 65 72 65 6e 63 65 20 74 61 67 2e 0a | reference tag..|
00002ce0 0a 54 68 69 73 20 77 69 6c 6c 20 62 65 20 73 74 |.This will be st|
00002cf0 6f 72 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 |ored in the file|
00002d00 20 61 73 20 3a 0a 20 20 7b 66 43 6f 64 65 7d 5c | as :. {fCode}\|
00002d10 3c 74 61 67 24 3e 3a 5c 3c 76 61 6c 75 65 24 3e |<tag$>:\<value$>|
00002d20 7b 66 7d 0a 44 41 54 41 e3 00 00 00 50 52 4f 43 |{f}.DATA....PROC|
00002d30 73 74 61 74 75 73 6f 70 74 69 6f 6e 28 74 61 67 |statusoption(tag|
00002d40 24 2c 76 61 6c 75 65 29 0a 23 50 61 72 65 6e 74 |$,value).#Parent|
00002d50 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 67 | !Root.=>.{/}tag|
00002d60 24 7b 2f 7d 09 74 61 67 20 63 6f 64 65 0a 09 7b |${/}.tag code..{|
00002d70 2f 7d 76 61 6c 75 65 7b 2f 7d 09 76 61 6c 75 65 |/}value{/}.value|
00002d80 20 74 6f 20 73 74 6f 72 65 0a 0a 53 74 6f 72 65 | to store..Store|
00002d90 20 61 20 76 61 72 69 61 62 6c 65 20 69 6e 20 74 | a variable in t|
00002da0 68 65 20 73 74 61 74 75 73 20 66 69 6c 65 20 77 |he status file w|
00002db0 69 74 68 20 72 65 66 65 72 65 6e 63 65 20 74 61 |ith reference ta|
00002dc0 67 2e 0a 0a 54 68 69 73 20 77 69 6c 6c 20 62 65 |g...This will be|
00002dd0 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20 66 | stored in the f|
00002de0 69 6c 65 20 61 73 20 3a 0a 20 20 7b 66 43 6f 64 |ile as :. {fCod|
00002df0 65 7d 5c 3c 74 61 67 24 3e 3a 25 5c 3c 76 61 6c |e}\<tag$>:%\<val|
00002e00 75 65 3e 7b 66 7d 0a 00 44 41 54 41 e0 00 00 00 |ue>{f}..DATA....|
00002e10 50 52 4f 43 73 74 61 74 75 73 6e 65 78 74 28 74 |PROCstatusnext(t|
00002e20 61 67 24 2c 76 61 6c 75 65 24 29 0a 23 50 61 72 |ag$,value$).#Par|
00002e30 65 6e 74 20 21 52 6f 6f 74 0a 23 57 72 61 70 20 |ent !Root.#Wrap |
00002e40 6f 66 66 0a 3c 3d 09 7b 2f 7d 74 61 67 24 7b 2f |off.<=.{/}tag${/|
00002e50 7d 09 74 61 67 20 63 6f 64 65 2c 20 6f 72 20 2a |}.tag code, or *|
00002e60 45 2a 4e 2a 44 2a 20 69 66 20 45 4f 46 0a 09 7b |E*N*D* if EOF..{|
00002e70 2f 7d 76 61 6c 75 65 24 7b 2f 7d 09 76 61 6c 75 |/}value${/}.valu|
00002e80 65 0a 23 57 72 61 70 0a 0a 54 68 69 73 20 72 65 |e.#Wrap..This re|
00002e90 74 75 72 6e 73 20 74 68 65 20 6e 65 78 74 20 74 |turns the next t|
00002ea0 61 67 20 61 6e 64 20 76 61 6c 75 65 20 69 6e 20 |ag and value in |
00002eb0 74 68 65 20 66 69 6c 65 2e 20 43 6f 6d 6d 65 6e |the file. Commen|
00002ec0 74 20 6c 69 6e 65 73 20 70 72 65 63 65 65 64 65 |t lines preceede|
00002ed0 64 20 62 79 20 23 20 77 69 6c 6c 20 62 65 20 69 |d by # will be i|
00002ee0 67 6e 6f 72 65 64 2e 0a 44 41 54 41 fd 00 00 00 |gnored..DATA....|
00002ef0 50 52 4f 43 72 65 6c 65 61 73 65 28 70 6f 69 6e |PROCrelease(poin|
00002f00 74 65 72 29 20 2d 20 57 69 6d 70 4c 69 62 20 76 |ter) - WimpLib v|
00002f10 65 72 73 69 6f 6e 0a 23 50 61 72 65 6e 74 20 21 |ersion.#Parent !|
00002f20 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 70 6f 69 6e 74 |Root.=>.{/}point|
00002f30 65 72 7b 2f 7d 09 70 6f 69 6e 74 65 72 20 74 6f |er{/}.pointer to|
00002f40 20 62 6c 6f 63 6b 0a 3c 3d 09 2d 31 20 74 6f 20 | block.<=.-1 to |
00002f50 69 6e 64 69 63 61 74 65 20 74 6f 20 62 6c 6f 63 |indicate to bloc|
00002f60 6b 2e 0a 0a 52 65 6c 65 61 73 65 20 61 20 63 6c |k...Release a cl|
00002f70 61 69 6d 65 64 20 62 6c 6f 63 6b 20 6f 66 20 52 |aimed block of R|
00002f80 4d 41 2e 20 0a 0a 4e 6f 74 65 3a 20 54 68 69 73 |MA. ..Note: This|
00002f90 20 63 61 6c 6c 20 69 73 20 72 65 70 6c 61 63 65 | call is replace|
00002fa0 64 20 69 6e 20 48 65 61 70 4c 69 62 20 62 79 20 |d in HeapLib by |
00002fb0 61 20 48 65 61 70 20 63 6c 61 69 6d 20 3c 50 52 |a Heap claim <PR|
00002fc0 4f 43 72 65 6c 65 61 73 65 3d 3e 48 65 61 70 4c |OCrelease=>HeapL|
00002fd0 69 62 3a 50 52 4f 43 72 65 6c 65 61 73 65 3e 20 |ib:PROCrelease> |
00002fe0 63 61 6c 6c 2e 00 00 00 44 41 54 41 8f 00 00 00 |call....DATA....|
00002ff0 50 52 4f 43 70 72 65 73 73 69 63 6f 6e 28 77 69 |PROCpressicon(wi|
00003000 6e 2c 69 63 6f 6e 29 0a 23 50 61 72 65 6e 74 20 |n,icon).#Parent |
00003010 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b |!Root.=>.{/}win{|
00003020 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 |/}.window handle|
00003030 0a 09 7b 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f |..{/}icon{/}.ico|
00003040 6e 20 68 61 6e 64 6c 65 0a 0a 50 72 65 73 73 20 |n handle..Press |
00003050 61 6e 20 69 63 6f 6e 20 66 6f 72 20 61 62 6f 75 |an icon for abou|
00003060 74 20 bc 20 73 65 63 6f 6e 64 20 61 6e 64 20 72 |t . second and r|
00003070 65 6c 65 61 73 65 2e 00 44 41 54 41 04 01 00 00 |elease..DATA....|
00003080 50 52 4f 43 73 74 61 74 75 73 66 6c 61 67 28 74 |PROCstatusflag(t|
00003090 61 67 24 2c 66 6c 61 67 29 0a 23 50 61 72 65 6e |ag$,flag).#Paren|
000030a0 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 |t !Root.=>.{/}ta|
000030b0 67 24 7b 2f 7d 09 74 61 67 20 63 6f 64 65 0a 09 |g${/}.tag code..|
000030c0 7b 2f 7d 66 6c 61 67 7b 2f 7d 09 66 6c 61 67 20 |{/}flag{/}.flag |
000030d0 74 6f 20 73 74 6f 72 65 0a 0a 53 74 6f 72 65 20 |to store..Store |
000030e0 61 20 66 6c 61 67 20 69 6e 20 74 68 65 20 73 74 |a flag in the st|
000030f0 61 74 75 73 20 66 69 6c 65 20 77 69 74 68 20 72 |atus file with r|
00003100 65 66 65 72 65 6e 63 65 20 74 61 67 2e 0a 0a 54 |eference tag...T|
00003110 68 69 73 20 77 69 6c 6c 20 62 65 20 73 74 6f 72 |his will be stor|
00003120 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20 61 |ed in the file a|
00003130 73 20 3a 0a 23 54 61 62 0a 20 20 7b 66 43 6f 64 |s :.#Tab. {fCod|
00003140 65 7d 5c 3c 74 61 67 24 3e 3a 25 4f 6e 7b 66 7d |e}\<tag$>:%On{f}|
00003150 09 09 69 66 20 54 52 55 45 0a 20 20 7b 66 43 6f |..if TRUE. {fCo|
00003160 64 65 7d 5c 3c 74 61 67 24 3e 3a 25 4f 66 66 7b |de}\<tag$>:%Off{|
00003170 66 7d 09 69 66 20 46 41 4c 53 45 0a 44 41 54 41 |f}.if FALSE.DATA|
00003180 43 02 00 00 50 52 4f 43 73 68 6f 77 66 72 65 65 |C...PROCshowfree|
00003190 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 54 |.#Parent !Root.T|
000031a0 68 69 73 20 63 61 6c 6c 20 64 69 73 70 6c 61 79 |his call display|
000031b0 73 20 6f 6e 20 74 68 65 20 77 69 6e 64 6f 77 20 |s on the window |
000031c0 7b 2f 7d 69 6e 66 6f 62 6f 78 25 7b 2f 7d 20 74 |{/}infobox%{/} t|
000031d0 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 73 70 61 |he amount of spa|
000031e0 63 65 20 74 61 6b 65 6e 20 75 70 20 62 79 20 74 |ce taken up by t|
000031f0 68 65 20 70 72 6f 67 72 61 6d 2c 20 76 61 72 69 |he program, vari|
00003200 61 62 6c 65 73 20 61 6e 64 20 66 72 65 65 20 73 |ables and free s|
00003210 70 61 63 65 2e 20 49 66 20 74 68 65 20 3c 48 65 |pace. If the <He|
00003220 61 70 20 4c 69 62 72 61 72 79 3d 3e 48 65 61 70 |ap Library=>Heap|
00003230 4c 69 62 3a 21 52 6f 6f 74 3e 20 69 73 20 69 6e |Lib:!Root> is in|
00003240 73 74 61 6c 6c 65 64 2c 20 74 68 65 6e 20 69 6e |stalled, then in|
00003250 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 74 68 65 |formation on the|
00003260 20 68 65 61 70 20 77 69 6c 6c 20 61 6c 73 6f 20 | heap will also |
00003270 62 65 20 64 69 73 70 6c 61 79 65 64 2e 20 4e 6f |be displayed. No|
00003280 74 65 20 74 68 61 74 20 61 6e 79 20 6c 69 62 72 |te that any libr|
00003290 61 72 69 65 73 20 69 6e 73 74 61 6c 6c 65 64 20 |aries installed |
000032a0 77 69 6c 6c 20 62 65 20 69 6e 63 6c 75 64 65 64 |will be included|
000032b0 20 69 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 | in the variable|
000032c0 20 75 73 61 67 65 20 65 6e 74 72 79 2e 0a 0a 54 | usage entry...T|
000032d0 68 69 73 20 69 73 20 62 65 73 74 20 75 73 65 64 |his is best used|
000032e0 20 64 75 72 69 6e 67 20 74 65 73 74 69 6e 67 20 | during testing |
000032f0 69 66 20 74 68 65 20 75 73 65 72 20 63 6c 69 63 |if the user clic|
00003300 6b 73 20 6f 6e 20 74 68 65 20 7b 2f 7d 69 6e 66 |ks on the {/}inf|
00003310 6f 62 6f 78 25 7b 2f 7d 20 77 69 6e 64 6f 77 0a |obox%{/} window.|
00003320 0a 4e 6f 74 65 3a 20 54 68 65 20 77 69 6e 64 6f |.Note: The windo|
00003330 77 20 73 68 6f 75 6c 64 20 72 65 61 6c 6c 79 20 |w should really |
00003340 62 65 20 6f 6e 65 20 66 72 6f 6d 20 74 68 65 20 |be one from the |
00003350 53 6b 65 6c 65 74 6f 6e 20 61 70 70 6c 69 63 61 |Skeleton applica|
00003360 74 69 6f 6e 20 61 73 20 74 68 69 73 20 68 61 73 |tion as this has|
00003370 20 74 68 65 20 63 6f 72 72 65 63 74 20 6e 75 6d | the correct num|
00003380 62 65 72 20 6f 66 20 69 63 6f 6e 73 20 69 6e 20 |ber of icons in |
00003390 74 68 65 20 63 6f 72 72 65 63 74 20 70 6c 61 63 |the correct plac|
000033a0 65 73 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 |es with the corr|
000033b0 65 63 74 20 76 61 6c 69 64 61 74 69 6f 6e 2e 00 |ect validation..|
000033c0 44 41 54 41 eb 01 00 00 50 52 4f 43 65 65 72 72 |DATA....PROCeerr|
000033d0 6f 72 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 |or.#Parent !Root|
000033e0 0a 54 68 69 73 20 69 73 20 74 68 65 20 73 69 6e |.This is the sin|
000033f0 67 6c 65 20 74 61 73 6b 69 6e 67 20 76 65 72 73 |gle tasking vers|
00003400 69 6f 6e 20 6f 66 20 50 52 4f 43 65 72 72 6f 72 |ion of PROCerror|
00003410 20 66 6f 72 20 72 75 6e 6e 69 6e 67 20 28 73 74 | for running (st|
00003420 72 61 6e 67 65 6c 79 29 20 69 6e 20 74 68 65 20 |rangely) in the |
00003430 64 65 73 6b 74 6f 70 20 65 6e 76 69 72 6f 6e 6d |desktop environm|
00003440 65 6e 74 2e 20 4d 6f 73 74 6c 79 20 69 74 20 69 |ent. Mostly it i|
00003450 73 20 75 73 65 64 20 66 6f 72 20 64 65 62 75 67 |s used for debug|
00003460 67 69 6e 67 20 70 75 72 70 6f 73 65 73 2e 0a 0a |ging purposes...|
00003470 55 73 75 61 6c 6c 79 20 74 68 65 72 65 20 61 72 |Usually there ar|
00003480 65 20 6e 75 6d 65 72 6f 75 73 20 76 61 72 69 61 |e numerous varia|
00003490 62 6c 65 73 20 79 6f 75 20 6e 65 65 64 20 74 6f |bles you need to|
000034a0 20 69 6e 69 74 69 61 6c 69 73 65 20 62 65 66 6f | initialise befo|
000034b0 72 65 20 74 68 65 20 57 69 6d 70 20 69 73 20 73 |re the Wimp is s|
000034c0 65 74 20 75 70 20 66 6f 72 20 75 73 65 20 61 6e |et up for use an|
000034d0 64 20 74 68 65 72 65 66 6f 72 65 20 61 20 64 69 |d therefore a di|
000034e0 66 66 65 72 65 6e 74 20 65 72 72 6f 72 20 68 61 |fferent error ha|
000034f0 6e 64 6c 65 72 20 69 73 20 72 65 71 75 69 72 65 |ndler is require|
00003500 64 2e 20 55 73 61 67 65 20 69 73 20 75 73 75 61 |d. Usage is usua|
00003510 6c 6c 79 20 3a 0a 0a 7b 66 43 6f 64 65 7d 4f 4e |lly :..{fCode}ON|
00003520 20 45 52 52 4f 52 20 50 52 4f 43 65 65 72 72 6f | ERROR PROCeerro|
00003530 72 3a 45 4e 44 7b 66 7d 0a 0a 54 68 65 20 45 72 |r:END{f}..The Er|
00003540 72 6f 72 24 20 61 6e 64 20 45 72 72 6f 72 24 54 |ror$ and Error$T|
00003550 61 73 6b 20 76 61 72 69 61 62 6c 65 73 20 61 72 |ask variables ar|
00003560 65 20 73 65 74 20 75 70 20 63 6f 72 72 65 63 74 |e set up correct|
00003570 6c 79 20 61 6e 64 20 74 68 65 20 65 72 72 6f 72 |ly and the error|
00003580 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 69 6e | is displayed in|
00003590 20 61 20 73 74 61 6e 64 61 72 64 20 57 69 6d 70 | a standard Wimp|
000035a0 20 65 72 72 6f 72 20 62 6f 78 2e 00 44 41 54 41 | error box..DATA|
000035b0 d6 01 00 00 50 52 4f 43 64 72 61 67 73 61 76 65 |....PROCdragsave|
000035c0 28 77 69 6e 64 6f 77 2c 69 63 6f 6e 2c 74 79 70 |(window,icon,typ|
000035d0 65 2c 73 69 7a 65 29 0a 23 50 61 72 65 6e 74 20 |e,size).#Parent |
000035e0 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b |!Root.=>.{/}win{|
000035f0 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 |/}.window handle|
00003600 20 6f 66 20 73 61 76 65 20 62 6f 78 20 77 65 20 | of save box we |
00003610 63 61 6d 65 20 66 72 6f 6d 0a 09 7b 2f 7d 69 63 |came from..{/}ic|
00003620 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c |on{/}.icon handl|
00003630 65 20 6f 66 20 66 69 6c 65 6e 61 6d 65 20 69 63 |e of filename ic|
00003640 6f 6e 20 28 75 73 75 61 6c 6c 79 20 32 29 0a 09 |on (usually 2)..|
00003650 7b 2f 7d 74 79 70 65 7b 2f 7d 09 3c 66 69 6c 65 |{/}type{/}.<file|
00003660 74 79 70 65 3d 3e 46 69 6c 65 74 79 70 65 73 3a |type=>Filetypes:|
00003670 21 52 6f 6f 74 3e 0a 09 7b 2f 7d 73 69 7a 65 7b |!Root>..{/}size{|
00003680 2f 7d 09 65 73 74 69 6d 61 74 65 64 20 73 69 7a |/}.estimated siz|
00003690 65 20 6f 66 20 74 68 65 20 66 69 6c 65 20 28 6f |e of the file (o|
000036a0 72 20 2d 31 20 69 66 20 75 6e 6b 6e 6f 77 6e 29 |r -1 if unknown)|
000036b0 0a 0a 49 6e 69 74 69 61 74 65 73 20 74 68 65 20 |..Initiates the |
000036c0 44 61 74 61 53 61 76 65 20 70 72 6f 74 6f 63 6f |DataSave protoco|
000036d0 6c 20 61 66 74 65 72 20 61 20 64 72 61 67 20 68 |l after a drag h|
000036e0 61 73 20 62 65 65 6e 20 63 6f 6d 70 6c 65 74 65 |as been complete|
000036f0 64 2e 20 59 6f 75 20 73 68 6f 75 6c 64 20 6c 69 |d. You should li|
00003700 73 74 65 6e 20 66 6f 72 20 61 20 3c 44 61 74 61 |sten for a <Data|
00003710 53 61 76 65 41 63 6b 3d 3e 57 69 6d 70 3a 57 69 |SaveAck=>Wimp:Wi|
00003720 6d 70 5f 55 4d 32 3e 20 6d 65 73 73 61 67 65 20 |mp_UM2> message |
00003730 66 6f 72 20 73 75 63 63 65 73 73 2c 20 6f 72 20 |for success, or |
00003740 61 20 61 63 6b 6e 6f 77 6c 65 64 67 65 64 20 28 |a acknowledged (|
00003750 72 65 61 73 6f 6e 20 31 39 29 20 3c 44 61 74 61 |reason 19) <Data|
00003760 53 61 76 65 3d 3e 57 69 6d 70 3a 57 69 6d 70 5f |Save=>Wimp:Wimp_|
00003770 55 4d 31 3e 20 66 6f 72 20 66 61 69 6c 75 72 65 |UM1> for failure|
00003780 2e 0a 00 00 44 41 54 41 56 01 00 00 50 52 4f 43 |....DATAV...PROC|
00003790 72 65 73 69 7a 65 77 69 6e 74 6f 28 77 69 6e 2c |resizewinto(win,|
000037a0 6c 2c 74 2c 72 2c 62 29 0a 23 50 61 72 65 6e 74 |l,t,r,b).#Parent|
000037b0 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e | !Root.=>.{/}win|
000037c0 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c |{/}.window handl|
000037d0 65 0a 09 7b 2f 7d 6c 7b 2f 7d 09 09 6c 65 66 74 |e..{/}l{/}..left|
000037e0 20 6f 66 20 54 57 41 0a 09 7b 2f 7d 74 7b 2f 7d | of TWA..{/}t{/}|
000037f0 09 09 74 6f 70 20 6f 66 20 54 57 41 0a 09 7b 2f |..top of TWA..{/|
00003800 7d 72 7b 2f 7d 09 09 72 69 67 68 74 20 6f 66 20 |}r{/}..right of |
00003810 54 57 41 0a 09 7b 2f 7d 62 7b 2f 7d 09 09 62 6f |TWA..{/}b{/}..bo|
00003820 74 74 6f 6d 20 6f 66 20 54 57 41 0a 0a 52 65 73 |ttom of TWA..Res|
00003830 69 7a 65 73 20 77 69 6e 64 6f 77 20 6f 6e 20 73 |izes window on s|
00003840 63 72 65 65 6e 20 74 6f 20 74 68 65 20 73 69 7a |creen to the siz|
00003850 65 20 67 69 76 65 6e 2e 0a 0a 57 69 6e 64 6f 77 |e given...Window|
00003860 20 77 69 6c 6c 20 6e 6f 74 20 63 68 61 6e 67 65 | will not change|
00003870 20 69 6e 20 73 69 7a 65 2c 20 75 6e 6c 65 73 73 | in size, unless|
00003880 20 69 74 20 69 73 20 63 75 72 72 65 6e 74 6c 79 | it is currently|
00003890 20 61 74 20 66 75 6c 6c 20 73 69 7a 65 20 69 6e | at full size in|
000038a0 20 77 68 69 63 68 20 63 61 73 65 20 69 74 20 77 | which case it w|
000038b0 69 6c 6c 20 63 68 61 6e 67 65 20 74 6f 20 74 68 |ill change to th|
000038c0 65 20 6e 65 77 20 73 69 7a 65 20 6f 66 20 74 68 |e new size of th|
000038d0 65 20 77 69 6e 64 6f 77 2e 0a 00 00 44 41 54 41 |e window....DATA|
000038e0 3e 01 00 00 50 52 4f 43 65 6d 62 65 64 77 69 6e |>...PROCembedwin|
000038f0 28 70 61 72 65 6e 74 2c 63 68 69 6c 64 2c 66 6c |(parent,child,fl|
00003900 61 67 73 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |ags).#Parent !Ro|
00003910 6f 74 0a 3d 3e 09 7b 2f 7d 70 61 72 65 6e 74 7b |ot.=>.{/}parent{|
00003920 2f 7d 09 70 61 72 65 6e 74 20 77 69 6e 64 6f 77 |/}.parent window|
00003930 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 63 68 69 6c | handle..{/}chil|
00003940 64 7b 2f 7d 09 63 68 69 6c 64 20 77 69 6e 64 6f |d{/}.child windo|
00003950 77 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 66 6c 61 |w handle..{/}fla|
00003960 67 73 7b 2f 7d 09 3c 6e 65 73 74 69 6e 67 20 66 |gs{/}.<nesting f|
00003970 6c 61 67 73 3d 3e 57 69 6d 70 3a 57 69 6d 70 5f |lags=>Wimp:Wimp_|
00003980 4f 70 65 6e 57 69 6e 64 6f 77 2e 66 6c 61 67 73 |OpenWindow.flags|
00003990 3e 0a 0a 45 6d 62 65 64 20 61 20 77 69 6e 64 6f |>..Embed a windo|
000039a0 77 20 77 69 74 68 69 6e 20 61 6e 6f 74 68 65 72 |w within another|
000039b0 2e 20 4d 6f 73 74 20 6f 66 20 74 68 65 20 74 69 |. Most of the ti|
000039c0 6d 65 20 79 6f 75 27 6c 6c 20 77 61 6e 74 20 74 |me you'll want t|
000039d0 6f 20 75 73 65 20 66 6c 61 67 73 20 3d 20 30 2e |o use flags = 0.|
000039e0 0a 0a 4e 6f 74 65 3a 20 54 68 69 73 20 77 69 6c |..Note: This wil|
000039f0 6c 20 6f 6e 6c 79 20 77 6f 72 6b 20 6f 6e 20 74 |l only work on t|
00003a00 68 65 20 6e 65 73 74 65 64 20 77 69 6e 64 6f 77 |he nested window|
00003a10 20 6d 61 6e 61 67 65 72 2e 0a 00 00 44 41 54 41 | manager....DATA|
00003a20 32 01 00 00 50 52 4f 43 75 6e 65 6d 62 65 64 77 |2...PROCunembedw|
00003a30 69 6e 28 70 61 72 65 6e 74 2c 63 68 69 6c 64 29 |in(parent,child)|
00003a40 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d |.#Parent !Root.=|
00003a50 3e 09 7b 2f 7d 70 61 72 65 6e 74 7b 2f 7d 09 70 |>.{/}parent{/}.p|
00003a60 61 72 65 6e 74 20 77 69 6e 64 6f 77 20 68 61 6e |arent window han|
00003a70 64 6c 65 0a 09 7b 2f 7d 63 68 69 6c 64 7b 2f 7d |dle..{/}child{/}|
00003a80 09 63 68 69 6c 64 20 77 69 6e 64 6f 77 20 68 61 |.child window ha|
00003a90 6e 64 6c 65 0a 0a 55 6e 65 6d 62 65 64 73 20 61 |ndle..Unembeds a|
00003aa0 20 77 69 6e 64 6f 77 20 66 72 6f 6d 20 77 69 74 | window from wit|
00003ab0 68 69 6e 20 61 6e 6f 74 68 65 72 2e 20 54 68 69 |hin another. Thi|
00003ac0 73 20 63 6c 6f 73 65 73 20 74 68 65 20 77 69 6e |s closes the win|
00003ad0 64 6f 77 20 77 69 74 68 69 6e 20 69 74 27 73 20 |dow within it's |
00003ae0 70 61 72 65 6e 74 20 61 6e 64 20 61 6c 6c 6f 77 |parent and allow|
00003af0 73 20 69 74 20 74 6f 20 62 65 20 6f 70 65 6e 65 |s it to be opene|
00003b00 64 20 6f 75 74 73 69 64 65 20 6f 6e 63 65 20 6d |d outside once m|
00003b10 6f 72 65 2e 0a 0a 4e 6f 74 65 3a 20 54 68 69 73 |ore...Note: This|
00003b20 20 77 69 6c 6c 20 6f 6e 6c 79 20 77 6f 72 6b 20 | will only work |
00003b30 6f 6e 20 74 68 65 20 6e 65 73 74 65 64 20 77 69 |on the nested wi|
00003b40 6e 64 6f 77 20 6d 61 6e 61 67 65 72 2e 0a 00 00 |ndow manager....|
00003b50 44 41 54 41 78 01 00 00 50 52 4f 43 65 6d 62 65 |DATAx...PROCembe|
00003b60 64 77 69 6e 77 69 74 68 28 70 61 72 65 6e 74 2c |dwinwith(parent,|
00003b70 63 68 69 6c 64 2c 66 6c 61 67 73 2c 77 69 6e 66 |child,flags,winf|
00003b80 6c 61 67 73 29 0a 23 50 61 72 65 6e 74 20 21 52 |lags).#Parent !R|
00003b90 6f 6f 74 0a 3d 3e 09 7b 2f 7d 70 61 72 65 6e 74 |oot.=>.{/}parent|
00003ba0 7b 2f 7d 09 70 61 72 65 6e 74 20 77 69 6e 64 6f |{/}.parent windo|
00003bb0 77 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 63 68 69 |w handle..{/}chi|
00003bc0 6c 64 7b 2f 7d 09 63 68 69 6c 64 20 77 69 6e 64 |ld{/}.child wind|
00003bd0 6f 77 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 66 6c |ow handle..{/}fl|
00003be0 61 67 73 7b 2f 7d 09 3c 6e 65 73 74 69 6e 67 20 |ags{/}.<nesting |
00003bf0 66 6c 61 67 73 3d 3e 57 69 6d 70 3a 57 69 6d 70 |flags=>Wimp:Wimp|
00003c00 5f 4f 70 65 6e 57 69 6e 64 6f 77 2e 66 6c 61 67 |_OpenWindow.flag|
00003c10 73 3e 0a 09 7b 2f 7d 77 69 6e 66 6c 61 67 73 7b |s>..{/}winflags{|
00003c20 2f 7d 09 3c 77 69 6e 64 6f 77 20 66 6c 61 67 73 |/}.<window flags|
00003c30 3d 3e 57 69 6d 70 3a 57 69 6d 70 5f 57 69 6e 64 |=>Wimp:Wimp_Wind|
00003c40 6f 77 46 6c 61 67 73 3e 0a 0a 45 6d 62 65 64 20 |owFlags>..Embed |
00003c50 61 20 77 69 6e 64 6f 77 20 77 69 74 68 69 6e 20 |a window within |
00003c60 61 6e 6f 74 68 65 72 2c 20 73 65 74 74 69 6e 67 |another, setting|
00003c70 20 69 74 27 73 20 66 6c 61 67 73 20 74 6f 20 7b | it's flags to {|
00003c80 2f 7d 77 69 6e 66 6c 61 67 73 7b 2f 7d 2e 0a 0a |/}winflags{/}...|
00003c90 4e 6f 74 65 3a 20 54 68 69 73 20 77 69 6c 6c 20 |Note: This will |
00003ca0 6f 6e 6c 79 20 77 6f 72 6b 20 6f 6e 20 74 68 65 |only work on the|
00003cb0 20 6e 65 73 74 65 64 20 77 69 6e 64 6f 77 20 6d | nested window m|
00003cc0 61 6e 61 67 65 72 2e 0a 44 49 52 24 dc 06 00 00 |anager..DIR$....|
00003cd0 dc 06 00 00 a4 43 00 00 47 ff ff ff d7 da 03 d7 |.....C..G.......|
00003ce0 01 02 00 00 13 00 00 00 00 00 00 00 64 65 63 6f |............deco|
00003cf0 64 65 6d 65 6e 75 00 00 a8 45 00 00 46 ff ff ff |demenu...E..F...|
00003d00 06 b2 f6 4d 09 01 00 00 13 00 00 00 00 00 00 00 |...M............|
00003d10 67 65 74 66 6f 6e 74 6d 65 6e 75 00 b4 46 00 00 |getfontmenu..F..|
00003d20 46 ff ff ff 54 a5 f6 4d a8 00 00 00 13 00 00 00 |F...T..M........|
00003d30 00 00 00 00 6d 65 6e 75 74 69 63 6b 65 64 00 00 |....menuticked..|
00003d40 5c 47 00 00 46 ff ff ff ed a6 f6 4d a8 00 00 00 |\G..F......M....|
00003d50 13 00 00 00 00 00 00 00 6d 65 6e 75 73 68 61 64 |........menushad|
00003d60 65 64 00 00 04 48 00 00 46 ff ff ff bf ab f6 4d |ed...H..F......M|
00003d70 aa 00 00 00 13 00 00 00 00 00 00 00 67 65 74 6d |............getm|
00003d80 65 6e 75 74 65 78 74 00 b0 48 00 00 47 ff ff ff |enutext..H..G...|
00003d90 4b dc 03 d7 75 02 00 00 13 00 00 00 00 00 00 00 |K...u...........|
00003da0 63 72 65 61 74 65 69 63 6f 6e 00 00 28 4b 00 00 |createicon..(K..|
00003db0 47 ff ff ff a9 a4 e8 d6 41 03 00 00 13 00 00 00 |G.......A.......|
00003dc0 00 00 00 00 43 72 65 61 74 65 49 63 6f 6e 42 61 |....CreateIconBa|
00003dd0 72 49 63 6f 6e 00 00 00 6c 4e 00 00 46 ff ff ff |rIcon...lN..F...|
00003de0 56 8d f6 4d b8 00 00 00 13 00 00 00 00 00 00 00 |V..M............|
00003df0 69 6e 64 69 72 65 63 74 00 00 00 00 24 4f 00 00 |indirect....$O..|
00003e00 46 ff ff ff 45 76 f6 4d 0a 01 00 00 13 00 00 00 |F...Ev.M........|
00003e10 00 00 00 00 6c 6f 61 64 74 65 6d 70 6c 61 74 65 |....loadtemplate|
00003e20 00 00 00 00 30 50 00 00 46 ff ff ff 4b 7b f6 4d |....0P..F...K{.M|
00003e30 84 00 00 00 13 00 00 00 00 00 00 00 6c 6f 61 64 |............load|
00003e40 73 70 72 69 74 65 73 00 b4 50 00 00 47 ff ff ff |sprites..P..G...|
00003e50 ed 91 73 06 3f 01 00 00 13 00 00 00 00 00 00 00 |..s.?...........|
00003e60 6d 73 67 74 6f 6b 65 6e 00 00 00 00 f4 51 00 00 |msgtoken.....Q..|
00003e70 46 ff ff ff 50 ba f6 4d 06 01 00 00 13 00 00 00 |F...P..M........|
00003e80 00 00 00 00 63 72 65 61 74 65 66 74 6d 65 6e 75 |....createftmenu|
00003e90 00 00 00 00 fc 52 00 00 46 ff ff ff 69 0b f9 4d |.....R..F...i..M|
00003ea0 a9 01 00 00 13 00 00 00 00 00 00 00 6d 73 67 74 |............msgt|
00003eb0 65 78 74 00 a8 54 00 00 46 ff ff ff c9 51 19 55 |ext..T..F....Q.U|
00003ec0 d5 00 00 00 13 00 00 00 00 00 00 00 63 72 65 61 |............crea|
00003ed0 74 65 6d 65 6e 75 00 00 80 55 00 00 46 ff ff ff |temenu...U..F...|
00003ee0 79 81 f6 4d b4 00 00 00 13 00 00 00 00 00 00 00 |y..M............|
00003ef0 73 79 73 74 65 6d 76 61 72 00 00 00 34 56 00 00 |systemvar...4V..|
00003f00 46 ff ff ff bb 29 ed a9 ac 00 00 00 13 00 00 00 |F....)..........|
00003f10 00 00 00 00 73 74 72 69 6e 67 30 00 e0 56 00 00 |....string0..V..|
00003f20 46 ff ff ff b3 bf f8 4d 93 00 00 00 13 00 00 00 |F......M........|
00003f30 00 00 00 00 67 65 74 69 63 6f 6e 73 74 61 74 65 |....geticonstate|
00003f40 00 00 00 00 74 57 00 00 46 ff ff ff 13 d0 f8 4d |....tW..F......M|
00003f50 ad 00 00 00 13 00 00 00 00 00 00 00 67 65 74 69 |............geti|
00003f60 63 6f 6e 74 65 78 74 00 24 58 00 00 46 ff ff ff |context.$X..F...|
00003f70 c0 d4 f8 4d c0 00 00 00 13 00 00 00 00 00 00 00 |...M............|
00003f80 67 65 74 69 63 6f 6e 76 61 6c 69 64 00 00 00 00 |geticonvalid....|
00003f90 e4 58 00 00 46 ff ff ff 55 48 f9 4d 71 00 00 00 |.X..F...UH.Mq...|
00003fa0 13 00 00 00 00 00 00 00 6c 6f 77 65 72 00 00 00 |........lower...|
00003fb0 58 59 00 00 46 ff ff ff bc 4a f9 4d 6e 00 00 00 |XY..F....J.Mn...|
00003fc0 13 00 00 00 00 00 00 00 75 70 70 65 72 00 00 00 |........upper...|
00003fd0 c8 59 00 00 46 ff ff ff 6d 4c f9 4d 4e 01 00 00 |.Y..F...mL.MN...|
00003fe0 13 00 00 00 00 00 00 00 74 69 64 79 00 00 00 00 |........tidy....|
00003ff0 18 5b 00 00 46 ff ff ff 14 7e f6 4d e6 00 00 00 |.[..F....~.M....|
00004000 13 00 00 00 00 00 00 00 47 65 74 45 6e 76 00 00 |........GetEnv..|
00004010 00 5c 00 00 46 ff ff ff 1d ba 7b 4f b2 00 00 00 |.\..F.....{O....|
00004020 13 00 00 00 00 00 00 00 66 69 6c 65 74 79 70 65 |........filetype|
00004030 00 00 00 00 b4 5c 00 00 46 ff ff ff 87 72 f4 4d |.....\..F....r.M|
00004040 8b 00 00 00 13 00 00 00 00 00 00 00 66 69 6c 65 |............file|
00004050 6c 65 6e 67 74 68 00 00 40 5d 00 00 47 ff ff ff |length..@]..G...|
00004060 ba d7 03 d7 01 01 00 00 13 00 00 00 00 00 00 00 |................|
00004070 65 72 72 6f 72 62 6f 78 00 00 00 00 44 5e 00 00 |errorbox....D^..|
00004080 46 ff ff ff 7d 83 5f 4e e8 00 00 00 13 00 00 00 |F...}._N........|
00004090 00 00 00 00 63 6c 61 69 6d 00 00 00 2c 5f 00 00 |....claim...,_..|
000040a0 47 ff ff ff c9 ce 03 d7 ff 00 00 00 13 00 00 00 |G...............|
000040b0 00 00 00 00 74 61 73 6b 6e 61 6d 65 00 00 00 00 |....taskname....|
000040c0 2c 60 00 00 46 ff ff ff c3 f4 f4 4d 80 00 00 00 |,`..F......M....|
000040d0 13 00 00 00 00 00 00 00 77 69 6e 64 6f 77 74 61 |........windowta|
000040e0 73 6b 00 00 ac 60 00 00 46 ff ff ff 0e 26 ed a9 |sk...`..F....&..|
000040f0 b3 00 00 00 13 00 00 00 00 00 00 00 72 65 61 64 |............read|
00004100 74 61 73 6b 73 74 72 69 6e 67 00 00 60 61 00 00 |taskstring..`a..|
00004110 46 ff ff ff 62 43 f5 4d d2 00 00 00 13 00 00 00 |F...bC.M........|
00004120 00 00 00 00 62 61 63 6b 6f 66 77 69 6e 73 74 61 |....backofwinsta|
00004130 63 6b 00 00 34 62 00 00 46 ff ff ff f2 5a f5 4d |ck..4b..F....Z.M|
00004140 a5 00 00 00 13 00 00 00 00 00 00 00 77 69 6e 73 |............wins|
00004150 74 61 63 6b 6e 65 78 74 00 00 00 00 dc 62 00 00 |tacknext.....b..|
00004160 46 ff ff ff 04 6d f4 4d 81 00 00 00 13 00 00 00 |F....m.M........|
00004170 00 00 00 00 6c 65 61 66 6e 61 6d 65 00 00 00 00 |....leafname....|
00004180 60 63 00 00 46 ff ff ff fb 61 f4 4d 97 00 00 00 |`c..F....a.M....|
00004190 13 00 00 00 00 00 00 00 70 61 74 68 6e 61 6d 65 |........pathname|
000041a0 00 00 00 00 f8 63 00 00 47 ff ff ff a4 cb 03 d7 |.....c..G.......|
000041b0 0f 01 00 00 13 00 00 00 00 00 00 00 6c 6f 6e 67 |............long|
000041c0 66 69 6c 65 6e 61 6d 65 00 00 00 00 08 65 00 00 |filename.....e..|
000041d0 47 ff ff ff c9 09 06 d7 ac 00 00 00 13 00 00 00 |G...............|
000041e0 00 00 00 00 72 65 61 64 63 6d 6f 73 00 00 00 00 |....readcmos....|
000041f0 b4 65 00 00 46 ff ff ff a6 6a f9 4d 82 00 00 00 |.e..F....j.M....|
00004200 13 00 00 00 00 00 00 00 73 77 69 6e 75 6d 62 65 |........swinumbe|
00004210 72 00 00 00 38 66 00 00 46 ff ff ff bb 4e f9 4d |r...8f..F....N.M|
00004220 b4 00 00 00 13 00 00 00 00 00 00 00 73 74 72 69 |............stri|
00004230 70 73 70 61 63 65 73 00 ec 66 00 00 46 ff ff ff |pspaces..f..F...|
00004240 7d 51 f9 4d 0b 02 00 00 13 00 00 00 00 00 00 00 |}Q.M............|
00004250 73 75 62 73 74 76 61 72 73 00 00 00 f8 68 00 00 |substvars....h..|
00004260 46 ff ff ff 26 5a f9 4d 93 01 00 00 13 00 00 00 |F...&Z.M........|
00004270 00 00 00 00 73 75 62 73 74 76 61 72 73 70 00 00 |....substvarsp..|
00004280 8c 6a 00 00 47 ff ff ff 43 b9 04 d7 bf 00 00 00 |.j..G...C.......|
00004290 13 00 00 00 00 00 00 00 67 73 74 72 61 6e 73 00 |........gstrans.|
000042a0 4c 6b 00 00 46 ff ff ff 19 e9 8b 4f 1f 02 00 00 |Lk..F......O....|
000042b0 13 00 00 00 00 00 00 00 72 65 61 64 73 74 61 74 |........readstat|
000042c0 75 73 66 69 6c 65 00 00 6c 6d 00 00 46 ff ff ff |usfile..lm..F...|
000042d0 f9 d0 8b 4f b7 00 00 00 13 00 00 00 00 00 00 00 |...O............|
000042e0 73 74 61 74 75 73 67 65 74 00 00 00 24 6e 00 00 |statusget...$n..|
000042f0 46 ff ff ff 24 e1 8b 4f 9d 00 00 00 13 00 00 00 |F...$..O........|
00004300 00 00 00 00 73 74 61 74 75 73 67 65 74 76 00 00 |....statusgetv..|
00004310 c4 6e 00 00 46 ff ff ff 6a ca 7b 4f 0b 01 00 00 |.n..F...j.{O....|
00004320 13 00 00 00 00 00 00 00 62 61 73 65 74 79 70 65 |........basetype|
00004330 00 00 00 00 d0 6f 00 00 47 ff ff ff 84 c0 04 d7 |.....o..G.......|
00004340 26 01 00 00 13 00 00 00 00 00 00 00 66 69 6e 64 |&...........find|
00004350 74 61 73 6b 00 00 00 00 f8 70 00 00 46 ff ff ff |task.....p..F...|
00004360 ea d6 8b 4f 8c 00 00 00 13 00 00 00 00 00 00 00 |...O............|
00004370 73 74 61 74 75 73 67 65 74 66 6c 61 67 00 00 00 |statusgetflag...|
00004380 84 71 00 00 47 ff ff ff cf 0d ff 92 92 00 00 00 |.q..G...........|
00004390 33 00 00 00 00 00 00 00 70 61 72 65 6e 74 77 69 |3.......parentwi|
000043a0 6e 00 00 00 44 41 54 41 01 02 00 00 46 4e 64 65 |n...DATA....FNde|
000043b0 63 6f 64 65 6d 65 6e 75 28 6d 65 6e 75 29 0a 23 |codemenu(menu).#|
000043c0 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
000043d0 7b 2f 7d 6d 65 6e 75 7b 2f 7d 09 70 6f 69 6e 74 |{/}menu{/}.point|
000043e0 65 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f 63 6b |er to menu block|
000043f0 0a 3c 3d 09 73 74 72 69 6e 67 20 63 72 65 61 74 |.<=.string creat|
00004400 65 64 20 66 72 6f 6d 20 6d 65 6e 75 20 65 6e 74 |ed from menu ent|
00004410 72 69 65 73 0a 0a 52 65 74 75 72 6e 20 6d 65 6e |ries..Return men|
00004420 75 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 64 61 |u string from da|
00004430 74 61 20 73 74 6f 72 65 64 20 61 74 20 62 25 2c |ta stored at b%,|
00004440 20 75 73 69 6e 67 20 6d 65 6e 75 20 61 73 20 74 | using menu as t|
00004450 65 6d 70 6c 61 74 65 2e 20 46 6f 6e 74 20 6d 65 |emplate. Font me|
00004460 6e 75 73 20 61 72 65 20 68 61 6e 64 6c 65 64 20 |nus are handled |
00004470 63 6f 72 72 65 63 74 6c 79 20 61 6e 64 20 77 69 |correctly and wi|
00004480 6c 6c 20 72 65 74 75 72 6e 20 73 74 72 69 6e 67 |ll return string|
00004490 73 20 66 6f 72 20 75 73 65 20 69 6e 20 3c 46 6f |s for use in <Fo|
000044a0 6e 74 5f 46 69 6e 64 46 6f 6e 74 3d 3e 4f 53 3a |nt_FindFont=>OS:|
000044b0 46 6f 6e 74 5f 46 69 6e 64 46 6f 6e 74 3e 2e 20 |Font_FindFont>. |
000044c0 4b 65 79 62 6f 61 72 64 20 73 68 6f 72 74 63 75 |Keyboard shortcu|
000044d0 74 73 20 77 69 6c 6c 20 62 65 20 72 65 6d 6f 76 |ts will be remov|
000044e0 65 64 20 69 66 20 74 68 65 79 20 61 72 65 20 72 |ed if they are r|
000044f0 65 63 6f 67 6e 69 73 65 64 2e 20 54 68 69 73 20 |ecognised. This |
00004500 69 6e 63 6c 75 64 65 73 20 61 6c 6c 20 74 68 65 |includes all the|
00004510 20 6b 65 79 73 20 70 72 65 66 69 78 65 64 20 62 | keys prefixed b|
00004520 79 20 5e 20 6f 72 20 74 68 65 20 75 70 20 61 72 |y ^ or the up ar|
00004530 72 6f 77 2c 20 70 6c 75 73 20 74 68 6f 73 65 20 |row, plus those |
00004540 64 65 73 63 72 69 62 65 64 20 69 6e 20 3c 46 4e |described in <FN|
00004550 63 72 65 61 74 65 6d 65 6e 75 3d 3e 6d 65 6e 75 |createmenu=>menu|
00004560 63 6f 6e 74 72 6f 6c 3e 2e 0a 0a 55 73 65 20 63 |control>...Use c|
00004570 75 72 6d 65 6e 75 25 20 69 66 20 63 72 65 61 74 |urmenu% if creat|
00004580 65 64 20 75 73 69 6e 67 20 3c 50 52 4f 43 69 62 |ed using <PROCib|
00004590 6d 65 6e 75 3e 20 6f 72 20 3c 50 52 4f 43 6d 65 |menu> or <PROCme|
000045a0 6e 75 3e 2e 0a 00 00 00 44 41 54 41 09 01 00 00 |nu>.....DATA....|
000045b0 46 4e 67 65 74 66 6f 6e 74 6d 65 6e 75 0a 23 50 |FNgetfontmenu.#P|
000045c0 61 72 65 6e 74 20 21 52 6f 6f 74 0a 23 57 72 61 |arent !Root.#Wra|
000045d0 70 20 6f 66 66 0a 5c 3c 3d 09 70 6f 69 6e 74 65 |p off.\<=.pointe|
000045e0 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f 63 6b 20 |r to menu block |
000045f0 6f 66 20 66 6f 6e 74 20 6d 65 6e 75 0a 09 6f 72 |of font menu..or|
00004600 20 2d 31 20 69 66 20 6e 6f 74 20 65 6e 6f 75 67 | -1 if not enoug|
00004610 68 20 73 70 61 63 65 0a 23 57 72 61 70 0a 0a 52 |h space.#Wrap..R|
00004620 65 74 75 72 6e 20 6c 6f 63 61 74 69 6f 6e 20 6f |eturn location o|
00004630 66 20 66 6f 6e 74 20 6d 65 6e 75 2e 20 42 6c 6f |f font menu. Blo|
00004640 63 6b 20 69 73 20 73 74 6f 72 65 64 20 69 6e 20 |ck is stored in |
00004650 52 4d 41 20 28 75 6e 6c 65 73 73 20 3c 48 65 61 |RMA (unless <Hea|
00004660 70 4c 69 62 3d 3e 48 65 61 70 4c 69 62 3a 21 52 |pLib=>HeapLib:!R|
00004670 6f 6f 74 3e 20 69 6e 73 74 61 6c 6c 65 64 29 20 |oot> installed) |
00004680 61 6e 64 20 6d 75 73 74 20 62 65 20 72 65 6c 65 |and must be rele|
00004690 61 73 65 64 20 77 69 74 68 20 3c 50 52 4f 43 72 |ased with <PROCr|
000046a0 65 6c 65 61 73 65 66 6f 6e 74 6d 65 6e 75 3e 2e |eleasefontmenu>.|
000046b0 0a 00 00 00 44 41 54 41 a8 00 00 00 46 4e 6d 65 |....DATA....FNme|
000046c0 6e 75 74 69 63 6b 65 64 28 6d 65 6e 75 2c 69 74 |nuticked(menu,it|
000046d0 65 6d 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |em).#Parent !Roo|
000046e0 74 0a 3d 3e 09 7b 2f 7d 6d 65 6e 75 7b 2f 7d 09 |t.=>.{/}menu{/}.|
000046f0 70 6f 69 6e 74 65 72 20 74 6f 20 6d 65 6e 75 20 |pointer to menu |
00004700 62 6c 6f 63 6b 0a 09 7b 2f 7d 69 74 65 6d 7b 2f |block..{/}item{/|
00004710 7d 09 6f 70 74 69 6f 6e 20 74 6f 20 63 68 65 63 |}.option to chec|
00004720 6b 0a 5c 3c 3d 09 54 52 55 45 20 69 66 20 69 74 |k.\<=.TRUE if it|
00004730 65 6d 20 69 73 20 74 69 63 6b 65 64 0a 0a 43 68 |em is ticked..Ch|
00004740 65 63 6b 20 69 66 20 6d 65 6e 75 20 69 74 65 6d |eck if menu item|
00004750 20 69 73 20 74 69 63 6b 65 64 2e 0a 44 41 54 41 | is ticked..DATA|
00004760 a8 00 00 00 46 4e 6d 65 6e 75 73 68 61 64 65 64 |....FNmenushaded|
00004770 28 6d 65 6e 75 2c 69 74 65 6d 29 0a 23 50 61 72 |(menu,item).#Par|
00004780 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00004790 6d 65 6e 75 7b 2f 7d 09 70 6f 69 6e 74 65 72 20 |menu{/}.pointer |
000047a0 74 6f 20 6d 65 6e 75 20 62 6c 6f 63 6b 0a 09 7b |to menu block..{|
000047b0 2f 7d 69 74 65 6d 7b 2f 7d 09 6f 70 74 69 6f 6e |/}item{/}.option|
000047c0 20 74 6f 20 63 68 65 63 6b 0a 5c 3c 3d 09 54 52 | to check.\<=.TR|
000047d0 55 45 20 69 66 20 69 74 65 6d 20 69 73 20 73 68 |UE if item is sh|
000047e0 61 64 65 64 0a 0a 43 68 65 63 6b 20 69 66 20 6d |aded..Check if m|
000047f0 65 6e 75 20 69 74 65 6d 20 69 73 20 73 68 61 64 |enu item is shad|
00004800 65 64 2e 0a 44 41 54 41 aa 00 00 00 46 4e 67 65 |ed..DATA....FNge|
00004810 74 6d 65 6e 75 74 65 78 74 28 6d 65 6e 75 2c 6e |tmenutext(menu,n|
00004820 75 6d 62 65 72 29 0a 23 50 61 72 65 6e 74 20 21 |umber).#Parent !|
00004830 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 6d 65 6e 75 7b |Root.=>.{/}menu{|
00004840 2f 7d 09 70 6f 69 6e 74 65 72 20 74 6f 20 6d 65 |/}.pointer to me|
00004850 6e 75 0a 09 7b 2f 7d 6e 75 6d 62 65 72 7b 2f 7d |nu..{/}number{/}|
00004860 09 6f 70 74 69 6f 6e 20 6e 75 6d 62 65 72 20 74 |.option number t|
00004870 6f 20 72 65 61 64 0a 5c 3c 3d 09 74 65 78 74 20 |o read.\<=.text |
00004880 6f 66 20 6f 70 74 69 6f 6e 0a 0a 52 65 61 64 20 |of option..Read |
00004890 74 68 65 20 74 65 78 74 20 66 72 6f 6d 20 6f 70 |the text from op|
000048a0 74 69 6f 6e 20 6f 6e 20 6d 65 6e 75 2e 0a 00 00 |tion on menu....|
000048b0 44 41 54 41 75 02 00 00 46 4e 63 72 65 61 74 65 |DATAu...FNcreate|
000048c0 69 63 6f 6e 28 77 69 6e 2c 78 2c 79 2c 77 69 64 |icon(win,x,y,wid|
000048d0 74 68 2c 68 65 69 67 68 74 2c 74 69 74 6c 65 24 |th,height,title$|
000048e0 2c 76 61 6c 69 64 24 2c 63 6f 6c 2c 65 73 67 2c |,valid$,col,esg,|
000048f0 62 75 74 2c 66 6c 61 67 73 29 0a 23 50 61 72 65 |but,flags).#Pare|
00004900 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 |nt !Root.=>.{/}w|
00004910 69 6e 7b 2f 7d 09 77 69 6e 64 6f 77 20 68 61 6e |in{/}.window han|
00004920 64 6c 65 0a 09 7b 2f 7d 78 7b 2f 7d 09 09 6c 65 |dle..{/}x{/}..le|
00004930 66 74 20 6f 66 20 69 63 6f 6e 0a 09 7b 2f 7d 79 |ft of icon..{/}y|
00004940 7b 2f 7d 09 09 74 6f 70 20 6f 66 20 69 63 6f 6e |{/}..top of icon|
00004950 0a 09 7b 2f 7d 77 69 64 74 68 7b 2f 7d 09 77 69 |..{/}width{/}.wi|
00004960 64 74 68 20 6f 66 20 69 63 6f 6e 20 61 63 72 6f |dth of icon acro|
00004970 73 73 0a 09 7b 2f 7d 68 65 69 67 68 74 7b 2f 7d |ss..{/}height{/}|
00004980 09 68 65 69 67 68 74 20 6f 66 20 69 63 6f 6e 20 |.height of icon |
00004990 64 6f 77 6e 0a 09 7b 2f 7d 74 69 74 6c 65 24 7b |down..{/}title${|
000049a0 2f 7d 09 74 65 78 74 20 73 74 72 69 6e 67 2c 20 |/}.text string, |
000049b0 6f 72 20 43 48 52 24 28 30 29 20 66 6f 72 20 61 |or CHR$(0) for a|
000049c0 20 66 75 6c 6c 20 70 61 74 68 20 6e 61 6d 65 0a | full path name.|
000049d0 09 7b 2f 7d 76 61 6c 69 64 24 7b 2f 7d 09 76 61 |.{/}valid${/}.va|
000049e0 6c 69 64 61 74 69 6f 6e 20 73 74 72 69 6e 67 20 |lidation string |
000049f0 6f 72 20 6e 75 6c 6c 20 66 6f 72 20 6e 6f 6e 65 |or null for none|
00004a00 0a 09 7b 2f 7d 63 6f 6c 7b 2f 7d 09 63 6f 6c 6f |..{/}col{/}.colo|
00004a10 75 72 20 6f 66 20 69 63 6f 6e 20 26 42 46 20 28 |ur of icon &BF (|
00004a20 42 3d 62 61 63 6b 67 72 6f 75 6e 64 2c 20 46 3d |B=background, F=|
00004a30 66 6f 72 65 67 72 6f 75 6e 64 29 20 6f 72 20 66 |foreground) or f|
00004a40 6f 6e 74 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 45 |ont handle..{/}E|
00004a50 53 47 7b 2f 7d 09 45 78 63 75 6c 73 69 76 65 20 |SG{/}.Exculsive |
00004a60 53 65 6c 65 63 74 69 6f 6e 20 47 72 6f 75 70 20 |Selection Group |
00004a70 6f 72 20 30 20 66 6f 72 20 6e 6f 6e 65 0a 09 7b |or 0 for none..{|
00004a80 2f 7d 62 75 74 7b 2f 7d 09 3c 62 75 74 74 6f 6e |/}but{/}.<button|
00004a90 20 74 79 70 65 3d 3e 57 69 6d 70 3a 57 69 6d 70 | type=>Wimp:Wimp|
00004aa0 5f 69 63 6f 6e 62 75 74 74 6f 6e 3e 20 28 30 2d |_iconbutton> (0-|
00004ab0 31 35 29 0a 09 7b 2f 7d 66 6c 61 67 73 7b 2f 7d |15)..{/}flags{/}|
00004ac0 09 6f 74 68 65 72 20 3c 66 6c 61 67 73 3d 3e 57 |.other <flags=>W|
00004ad0 69 6d 70 3a 57 69 6d 70 5f 69 63 6f 6e 66 6c 61 |imp:Wimp_iconfla|
00004ae0 67 73 3e 20 7b 66 43 6f 64 65 7d 25 41 46 56 48 |gs> {fCode}%AFVH|
00004af0 42 30 30 7b 66 7d 20 28 41 3d 46 6f 6e 74 2c 20 |B00{f} (A=Font, |
00004b00 46 3d 46 69 6c 6c 65 64 2c 20 42 3d 42 6f 72 64 |F=Filled, B=Bord|
00004b10 65 72 29 0a 0a 43 72 65 61 74 65 20 61 6e 20 69 |er)..Create an i|
00004b20 63 6f 6e 2e 0a 00 00 00 44 41 54 41 41 03 00 00 |con.....DATAA...|
00004b30 46 4e 43 72 65 61 74 65 49 63 6f 6e 42 61 72 49 |FNCreateIconBarI|
00004b40 63 6f 6e 28 73 70 72 69 74 65 24 2c 6e 61 6d 65 |con(sprite$,name|
00004b50 24 2c 70 6f 73 69 74 69 6f 6e 29 0a 23 50 61 72 |$,position).#Par|
00004b60 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00004b70 73 70 72 69 74 65 24 7b 2f 7d 09 73 70 72 69 74 |sprite${/}.sprit|
00004b80 65 20 74 6f 20 75 73 65 20 28 66 72 6f 6d 20 77 |e to use (from w|
00004b90 69 6d 70 20 70 6f 6f 6c 29 0a 09 7b 2f 7d 6e 61 |imp pool)..{/}na|
00004ba0 6d 65 24 7b 2f 7d 09 74 65 78 74 20 74 6f 20 61 |me${/}.text to a|
00004bb0 70 70 65 61 72 20 75 6e 64 65 72 20 69 63 6f 6e |ppear under icon|
00004bc0 20 28 6f 72 20 6e 75 6c 6c 29 0a 09 7b 2f 7d 70 | (or null)..{/}p|
00004bd0 6f 73 69 74 69 6f 6e 7b 2f 7d 09 3c 69 63 6f 6e |osition{/}.<icon|
00004be0 62 61 72 20 70 6f 73 69 74 69 6f 6e 3d 3e 2e 70 |bar position=>.p|
00004bf0 6f 73 69 74 69 6f 6e 3e 0a 0a 43 72 65 61 74 65 |osition>..Create|
00004c00 20 61 6e 20 69 63 6f 6e 20 66 6f 72 20 74 68 65 | an icon for the|
00004c10 20 69 63 6f 6e 20 62 61 72 2e 0a 23 53 75 62 70 | icon bar..#Subp|
00004c20 61 67 65 20 70 6f 73 69 74 69 6f 6e 0a 46 4e 43 |age position.FNC|
00004c30 72 65 61 74 65 49 63 6f 6e 42 61 72 49 63 6f 6e |reateIconBarIcon|
00004c40 20 70 6f 73 74 69 6f 6e 0a 54 68 69 73 20 69 73 | postion.This is|
00004c50 20 61 20 6d 61 73 6b 65 64 20 62 79 74 65 20 74 | a masked byte t|
00004c60 6f 20 69 6e 64 69 63 61 74 65 20 74 68 65 20 70 |o indicate the p|
00004c70 6f 73 69 74 69 6f 6e 20 79 6f 75 20 77 69 73 68 |osition you wish|
00004c80 20 74 68 65 20 69 63 6f 6e 20 74 6f 20 74 61 6b | the icon to tak|
00004c90 65 20 6f 6e 20 74 68 65 20 69 63 6f 6e 62 61 72 |e on the iconbar|
00004ca0 2e 20 54 68 65 20 6c 6f 77 20 62 79 74 65 20 69 |. The low byte i|
00004cb0 73 20 74 68 65 20 61 62 73 6f 6c 75 74 65 20 3c |s the absolute <|
00004cc0 70 6f 73 69 74 69 6f 6e 20 61 73 20 67 69 76 65 |position as give|
00004cd0 6e 20 74 6f 20 57 69 6d 70 5f 43 72 65 61 74 65 |n to Wimp_Create|
00004ce0 49 63 6f 6e 3d 3e 57 69 6d 70 3a 57 69 6d 70 5f |Icon=>Wimp:Wimp_|
00004cf0 43 72 65 61 74 65 49 63 6f 6e 2e 70 6f 73 69 74 |CreateIcon.posit|
00004d00 69 6f 6e 3e 2c 20 61 6e 64 20 74 68 65 20 6e 65 |ion>, and the ne|
00004d10 78 74 20 62 79 74 65 28 73 29 20 75 70 20 74 68 |xt byte(s) up th|
00004d20 65 20 70 61 72 61 6d 65 74 65 72 2e 20 46 6f 72 |e parameter. For|
00004d30 20 3c 70 72 69 6f 72 69 74 69 65 73 3d 3e 57 69 | <priorities=>Wi|
00004d40 6d 70 3a 57 69 6d 70 5f 43 72 65 61 74 65 49 63 |mp:Wimp_CreateIc|
00004d50 6f 6e 2e 70 72 69 6f 72 69 74 69 65 73 3e 2c 20 |on.priorities>, |
00004d60 74 68 69 73 20 77 69 6c 6c 20 62 65 20 73 68 69 |this will be shi|
00004d70 66 74 65 64 20 75 70 20 62 79 20 31 36 20 62 69 |fted up by 16 bi|
00004d80 74 73 3b 20 66 6f 72 20 69 63 6f 6e 73 2c 20 74 |ts; for icons, t|
00004d90 68 69 73 20 69 73 20 74 68 65 20 69 63 6f 6e 20 |his is the icon |
00004da0 6e 75 6d 62 65 72 2e 0a 0a 54 68 65 72 65 66 6f |number...Therefo|
00004db0 72 65 20 74 6f 20 63 72 65 61 74 65 20 61 6e 20 |re to create an |
00004dc0 69 63 6f 6e 20 74 6f 20 74 68 65 20 72 69 67 68 |icon to the righ|
00004dd0 74 20 6f 66 20 69 63 6f 6e 20 37 20 6f 6e 20 74 |t of icon 7 on t|
00004de0 68 65 20 69 63 6f 6e 62 61 72 20 79 6f 75 20 77 |he iconbar you w|
00004df0 6f 75 6c 64 20 75 73 65 20 61 20 76 61 6c 75 65 |ould use a value|
00004e00 20 6f 66 20 26 30 37 30 34 2c 20 61 6e 64 20 74 | of &0704, and t|
00004e10 6f 20 63 72 65 61 74 65 20 61 6e 20 69 63 6f 6e |o create an icon|
00004e20 20 6f 6e 20 74 68 65 20 6c 65 66 74 20 6f 66 20 | on the left of |
00004e30 74 68 65 20 69 63 6f 6e 20 62 61 72 20 77 69 74 |the icon bar wit|
00004e40 68 20 70 72 69 6f 72 69 74 79 20 26 37 38 30 30 |h priority &7800|
00004e50 30 30 30 30 20 79 6f 75 20 77 6f 75 6c 64 20 75 |0000 you would u|
00004e60 73 65 20 26 37 38 30 37 2e 00 00 00 44 41 54 41 |se &7807....DATA|
00004e70 b8 00 00 00 46 4e 69 6e 64 69 72 65 63 74 28 74 |....FNindirect(t|
00004e80 65 78 74 24 29 0a 23 50 61 72 65 6e 74 20 21 52 |ext$).#Parent !R|
00004e90 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 65 78 74 24 7b |oot.=>.{/}text${|
00004ea0 2f 7d 09 73 74 72 69 6e 67 20 74 6f 20 69 6e 64 |/}.string to ind|
00004eb0 69 72 65 63 74 0a 5c 3c 3d 09 70 6f 69 6e 74 65 |irect.\<=.pointe|
00004ec0 72 20 74 6f 20 73 74 72 69 6e 67 2c 20 30 20 69 |r to string, 0 i|
00004ed0 66 20 6e 75 6c 6c 20 73 74 72 69 6e 67 0a 0a 50 |f null string..P|
00004ee0 6c 61 63 65 20 73 74 72 69 6e 67 20 69 6e 20 69 |lace string in i|
00004ef0 6e 64 69 72 65 63 74 69 6f 6e 20 62 75 66 66 65 |ndirection buffe|
00004f00 72 2e 20 47 65 6e 65 72 61 74 65 20 65 72 72 6f |r. Generate erro|
00004f10 72 73 20 69 66 20 6e 6f 20 6d 6f 72 65 20 72 6f |rs if no more ro|
00004f20 6f 6d 2e 0a 44 41 54 41 0a 01 00 00 46 4e 6c 6f |om..DATA....FNlo|
00004f30 61 64 74 65 6d 70 6c 61 74 65 28 6e 61 6d 65 24 |adtemplate(name$|
00004f40 2c 73 70 72 69 74 65 62 6c 6f 63 6b 29 0a 23 50 |,spriteblock).#P|
00004f50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
00004f60 2f 7d 6e 61 6d 65 24 7b 2f 7d 09 09 6e 61 6d 65 |/}name${/}..name|
00004f70 20 6f 66 20 74 65 6d 70 6c 61 74 65 20 74 6f 20 | of template to |
00004f80 6c 6f 61 64 0a 09 7b 2f 7d 73 70 72 69 74 65 62 |load..{/}spriteb|
00004f90 6c 6f 63 6b 7b 2f 7d 09 70 6f 69 6e 74 65 72 20 |lock{/}.pointer |
00004fa0 74 6f 20 62 6c 6f 63 6b 2c 20 6f 72 20 31 20 66 |to block, or 1 f|
00004fb0 6f 72 20 77 69 6d 70 20 70 6f 6f 6c 0a 3c 3d 09 |or wimp pool.<=.|
00004fc0 70 6f 69 6e 74 65 72 20 74 6f 20 77 69 6e 64 6f |pointer to windo|
00004fd0 77 20 62 6c 6f 63 6b 0a 0a 4c 6f 61 64 20 6e 61 |w block..Load na|
00004fe0 6d 65 64 20 74 65 6d 70 6c 61 74 65 20 61 6e 64 |med template and|
00004ff0 20 63 72 65 61 74 65 20 77 69 6e 64 6f 77 2e 20 | create window. |
00005000 28 46 69 6c 65 20 74 6f 20 62 65 20 61 63 63 65 |(File to be acce|
00005010 73 73 65 64 20 69 73 20 41 70 70 64 69 72 24 2b |ssed is Appdir$+|
00005020 22 2e 54 65 6d 70 6c 61 74 65 73 22 29 0a 00 00 |".Templates")...|
00005030 44 41 54 41 84 00 00 00 46 4e 6c 6f 61 64 73 70 |DATA....FNloadsp|
00005040 72 69 74 65 73 28 66 69 6c 65 24 29 0a 23 50 61 |rites(file$).#Pa|
00005050 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f |rent !Root.=>.{/|
00005060 7d 66 69 6c 65 24 7b 2f 7d 09 6e 61 6d 65 20 6f |}file${/}.name o|
00005070 66 20 66 69 6c 65 0a 3c 3d 09 70 6f 69 6e 74 65 |f file.<=.pointe|
00005080 72 20 74 6f 20 73 70 72 69 74 65 20 61 72 65 61 |r to sprite area|
00005090 0a 0a 4c 6f 61 64 20 73 70 72 69 74 65 20 66 69 |..Load sprite fi|
000050a0 6c 65 20 69 6e 74 6f 20 61 20 6e 65 77 20 61 72 |le into a new ar|
000050b0 65 61 2e 0a 44 41 54 41 3f 01 00 00 46 4e 6d 73 |ea..DATA?...FNms|
000050c0 67 74 6f 6b 65 6e 28 74 6f 6b 65 6e 24 29 0a 23 |gtoken(token$).#|
000050d0 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
000050e0 7b 2f 7d 74 6f 6b 65 6e 24 7b 2f 7d 09 74 6f 6b |{/}token${/}.tok|
000050f0 65 6e 20 74 6f 20 6c 6f 6f 6b 20 75 70 0a 0a 54 |en to look up..T|
00005100 72 61 6e 73 6c 61 74 65 20 61 20 74 6f 6b 65 6e |ranslate a token|
00005110 20 74 6f 20 61 20 6d 65 73 73 61 67 65 2e 20 50 | to a message. P|
00005120 61 72 61 6d 65 74 65 72 73 20 66 6f 72 20 73 75 |arameters for su|
00005130 62 73 74 69 74 75 74 69 6f 6e 20 61 72 65 20 70 |bstitution are p|
00005140 61 73 73 65 64 20 75 73 69 6e 67 20 3a 27 73 20 |assed using :'s |
00005150 62 65 74 77 65 65 6e 20 74 68 65 6d 2e 20 49 66 |between them. If|
00005160 20 79 6f 75 20 77 69 73 68 20 74 6f 20 73 75 70 | you wish to sup|
00005170 70 6c 79 20 61 20 70 61 72 61 6d 65 74 65 72 20 |ply a parameter |
00005180 77 69 74 68 20 3a 27 73 20 69 6e 2c 20 74 68 65 |with :'s in, the|
00005190 6e 20 79 6f 75 20 73 68 6f 75 6c 64 20 70 72 65 |n you should pre|
000051a0 66 69 78 20 69 74 20 77 69 74 68 20 61 20 7c 20 |fix it with a | |
000051b0 63 68 61 72 61 63 74 65 72 2e 20 54 68 69 73 20 |character. This |
000051c0 77 69 6c 6c 20 63 61 75 73 65 20 74 68 65 20 72 |will cause the r|
000051d0 65 73 74 20 6f 66 20 74 68 65 20 6c 69 6e 65 20 |est of the line |
000051e0 74 6f 20 62 65 20 73 75 62 73 74 69 74 75 74 65 |to be substitute|
000051f0 64 2e 0a 00 44 41 54 41 06 01 00 00 46 4e 63 72 |d...DATA....FNcr|
00005200 65 61 74 65 66 74 6d 65 6e 75 0a 23 50 61 72 65 |eateftmenu.#Pare|
00005210 6e 74 20 21 52 6f 6f 74 0a 5c 3c 3d 09 70 6f 69 |nt !Root.\<=.poi|
00005220 6e 74 65 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f |nter to menu blo|
00005230 63 6b 20 6f 66 20 66 69 6c 65 74 79 70 65 20 6d |ck of filetype m|
00005240 65 6e 75 0a 0a 43 72 65 61 74 65 73 20 61 20 66 |enu..Creates a f|
00005250 69 6c 65 74 79 70 65 20 6d 65 6e 75 20 61 6e 64 |iletype menu and|
00005260 20 72 65 74 75 72 6e 73 20 61 20 70 6f 69 6e 74 | returns a point|
00005270 65 72 20 74 6f 20 69 74 73 20 73 74 72 75 63 74 |er to its struct|
00005280 75 72 65 2e 20 42 6c 6f 63 6b 20 69 73 20 73 74 |ure. Block is st|
00005290 6f 72 65 64 20 69 6e 20 52 4d 41 20 28 75 6e 6c |ored in RMA (unl|
000052a0 65 73 73 20 3c 48 65 61 70 4c 69 62 3d 3e 48 65 |ess <HeapLib=>He|
000052b0 61 70 4c 69 62 3a 21 52 6f 6f 74 3e 20 69 73 20 |apLib:!Root> is |
000052c0 69 6e 73 74 61 6c 6c 65 64 29 20 61 6e 64 20 6d |installed) and m|
000052d0 75 73 74 20 62 65 20 72 65 6c 65 61 73 65 64 20 |ust be released |
000052e0 77 69 74 68 20 3c 50 52 4f 43 72 65 6c 65 61 73 |with <PROCreleas|
000052f0 65 66 74 6d 65 6e 75 3e 2e 0a 00 00 44 41 54 41 |eftmenu>....DATA|
00005300 a9 01 00 00 46 4e 6d 73 67 74 65 78 74 28 74 65 |....FNmsgtext(te|
00005310 78 74 24 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |xt$).#Parent !Ro|
00005320 6f 74 0a 3d 3e 09 7b 2f 7d 74 65 78 74 24 7b 2f |ot.=>.{/}text${/|
00005330 7d 09 74 65 78 74 20 74 6f 20 70 72 6f 63 65 73 |}.text to proces|
00005340 73 0a 5c 3c 3d 09 74 65 78 74 20 73 74 72 69 6e |s.\<=.text strin|
00005350 67 0a 0a 50 72 6f 63 65 73 73 20 74 65 78 74 20 |g..Process text |
00005360 61 6e 64 20 72 65 74 75 72 6e 20 73 74 72 69 6e |and return strin|
00005370 67 20 66 72 6f 6d 20 4d 65 73 73 61 67 65 73 20 |g from Messages |
00005380 66 69 6c 65 20 69 66 20 61 70 70 72 6f 70 72 69 |file if appropri|
00005390 61 74 65 2e 0a 0a 49 66 20 70 72 65 66 69 78 65 |ate...If prefixe|
000053a0 64 20 62 79 20 61 20 3e 20 73 79 6d 62 6f 6c 20 |d by a > symbol |
000053b0 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 |the rest of the |
000053c0 6c 69 6e 65 20 77 69 6c 6c 20 62 65 20 70 61 73 |line will be pas|
000053d0 73 65 64 20 6f 6e 20 74 6f 20 3c 46 4e 6d 73 67 |sed on to <FNmsg|
000053e0 74 6f 6b 65 6e 3e 20 61 6e 64 20 70 72 6f 63 65 |token> and proce|
000053f0 73 73 65 64 20 62 79 20 74 68 65 20 4d 65 73 73 |ssed by the Mess|
00005400 61 67 65 54 72 61 6e 73 20 6d 6f 64 75 6c 65 2e |ageTrans module.|
00005410 20 54 68 69 73 20 69 73 20 75 73 75 61 6c 6c 79 | This is usually|
00005420 20 75 73 65 64 20 77 68 65 72 65 20 69 74 20 69 | used where it i|
00005430 73 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20 61 |s possible for a|
00005440 20 74 65 78 74 20 65 6e 74 72 79 20 74 6f 20 62 | text entry to b|
00005450 65 20 6c 69 74 65 72 61 6c 20 6f 72 20 74 61 6b |e literal or tak|
00005460 65 6e 20 66 72 6f 6d 20 61 20 6d 65 73 73 61 67 |en from a messag|
00005470 65 73 20 66 69 6c 65 2e 20 54 68 65 20 3c 46 4e |es file. The <FN|
00005480 65 72 72 6f 72 62 6f 78 3e 20 72 6f 75 74 69 6e |errorbox> routin|
00005490 65 20 69 73 20 61 20 67 6f 6f 64 20 65 78 61 6d |e is a good exam|
000054a0 70 6c 65 2e 0a 00 00 00 44 41 54 41 d5 00 00 00 |ple.....DATA....|
000054b0 46 4e 63 72 65 61 74 65 6d 65 6e 75 28 6d 65 6e |FNcreatemenu(men|
000054c0 75 24 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |u$).#Parent !Roo|
000054d0 74 0a 23 57 72 61 70 20 4f 66 66 0a 3d 3e 09 7b |t.#Wrap Off.=>.{|
000054e0 2f 7d 6d 65 6e 75 24 7b 2f 7d 09 3c 63 6f 6e 74 |/}menu${/}.<cont|
000054f0 72 6f 6c 20 73 74 72 69 6e 67 3d 3e 6d 65 6e 75 |rol string=>menu|
00005500 63 6f 6e 74 72 6f 6c 3e 0a 5c 3c 3d 09 70 6f 69 |control>.\<=.poi|
00005510 6e 74 65 72 20 74 6f 20 6d 65 6e 75 20 62 6c 6f |nter to menu blo|
00005520 63 6b 0a 09 7b 2f 7d 6f 70 74 69 6f 6e 73 25 7b |ck..{/}options%{|
00005530 2f 7d 09 6e 75 6d 62 65 72 20 6f 66 20 6f 70 74 |/}.number of opt|
00005540 69 6f 6e 73 20 6f 6e 20 6d 65 6e 75 0a 23 57 72 |ions on menu.#Wr|
00005550 61 70 20 4f 6e 0a 0a 43 72 65 61 74 65 20 61 20 |ap On..Create a |
00005560 6d 65 6e 75 20 67 69 76 65 6e 20 61 20 63 6f 6e |menu given a con|
00005570 74 72 6f 6c 20 73 74 72 69 6e 67 2e 0a 00 00 00 |trol string.....|
00005580 44 41 54 41 b4 00 00 00 46 4e 73 79 73 74 65 6d |DATA....FNsystem|
00005590 76 61 72 28 76 61 72 69 61 62 6c 65 24 29 0a 23 |var(variable$).#|
000055a0 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 23 57 72 |Parent !Root.#Wr|
000055b0 61 70 20 4f 66 66 0a 3d 3e 09 7b 2f 7d 76 61 72 |ap Off.=>.{/}var|
000055c0 69 61 62 6c 65 24 7b 2f 7d 09 73 79 73 74 65 6d |iable${/}.system|
000055d0 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 0a 3c | variable name.<|
000055e0 3d 09 76 61 6c 75 65 20 6f 72 20 6e 75 6c 6c 20 |=.value or null |
000055f0 69 66 20 6e 6f 6e 2d 65 78 69 73 74 61 6e 74 2e |if non-existant.|
00005600 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 76 61 6c |..Return the val|
00005610 75 65 20 6f 66 20 61 20 73 79 73 74 65 6d 20 76 |ue of a system v|
00005620 61 72 69 61 62 6c 65 20 61 73 20 61 20 73 74 72 |ariable as a str|
00005630 69 6e 67 2e 44 41 54 41 ac 00 00 00 46 4e 73 74 |ing.DATA....FNst|
00005640 72 69 6e 67 30 28 6c 6f 63 61 74 69 6f 6e 29 0a |ring0(location).|
00005650 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e |#Parent !Root.=>|
00005660 09 7b 2f 7d 6c 6f 63 61 74 69 6f 6e 7b 2f 7d 09 |.{/}location{/}.|
00005670 70 6f 69 6e 74 65 72 20 74 6f 20 73 74 72 69 6e |pointer to strin|
00005680 67 20 74 6f 20 72 65 74 75 72 6e 0a 3c 3d 09 73 |g to return.<=.s|
00005690 74 72 69 6e 67 20 61 74 20 6c 6f 63 61 74 69 6f |tring at locatio|
000056a0 6e 0a 0a 52 65 74 75 72 6e 20 30 2d 74 65 72 6d |n..Return 0-term|
000056b0 69 6e 61 74 65 64 20 28 6f 72 20 63 74 72 6c 2d |inated (or ctrl-|
000056c0 74 65 72 6d 69 6e 61 74 65 64 29 20 73 74 72 69 |terminated) stri|
000056d0 6e 67 20 61 74 20 6c 6f 63 61 74 69 6f 6e 2e 0a |ng at location..|
000056e0 44 41 54 41 93 00 00 00 46 4e 67 65 74 69 63 6f |DATA....FNgetico|
000056f0 6e 73 74 61 74 65 28 77 69 6e 2c 69 63 6f 6e 29 |nstate(win,icon)|
00005700 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d |.#Parent !Root.=|
00005710 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 |>.{/}win{/}.wind|
00005720 6f 77 20 68 61 6e 64 6c 65 0a 09 7b 2f 7d 69 63 |ow handle..{/}ic|
00005730 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 61 6e 64 6c |on{/}.icon handl|
00005740 65 0a 5c 3c 3d 09 54 52 55 45 20 69 66 20 69 63 |e.\<=.TRUE if ic|
00005750 6f 6e 20 73 65 6c 65 63 74 65 64 0a 0a 49 73 20 |on selected..Is |
00005760 74 68 65 20 69 63 6f 6e 20 73 65 6c 65 63 74 65 |the icon selecte|
00005770 64 20 3f 00 44 41 54 41 ad 00 00 00 46 4e 67 65 |d ?.DATA....FNge|
00005780 74 69 63 6f 6e 74 65 78 74 28 77 69 6e 2c 69 63 |ticontext(win,ic|
00005790 6f 6e 29 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f |on).#Parent !Roo|
000057a0 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 77 |t.=>.{/}win{/}.w|
000057b0 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 7b 2f |indow handle..{/|
000057c0 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 61 |}icon{/}.icon ha|
000057d0 6e 64 6c 65 0a 5c 3c 3d 09 74 65 78 74 20 73 74 |ndle.\<=.text st|
000057e0 72 69 6e 67 20 66 6f 72 20 69 63 6f 6e 20 28 6f |ring for icon (o|
000057f0 72 20 73 70 72 69 74 65 20 69 66 20 6f 6e 6c 79 |r sprite if only|
00005800 20 73 70 72 69 74 65 29 0a 0a 52 65 74 75 72 6e | sprite)..Return|
00005810 20 74 65 78 74 20 66 72 6f 6d 20 69 63 6f 6e 2e | text from icon.|
00005820 0a 00 00 00 44 41 54 41 c0 00 00 00 46 4e 67 65 |....DATA....FNge|
00005830 74 69 63 6f 6e 76 61 6c 69 64 28 77 69 6e 2c 69 |ticonvalid(win,i|
00005840 63 6f 6e 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |con).#Parent !Ro|
00005850 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 |ot.=>.{/}win{/}.|
00005860 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 09 7b |window handle..{|
00005870 2f 7d 69 63 6f 6e 7b 2f 7d 09 69 63 6f 6e 20 68 |/}icon{/}.icon h|
00005880 61 6e 64 6c 65 0a 5c 3c 3d 09 76 61 6c 69 64 61 |andle.\<=.valida|
00005890 74 69 6f 6e 20 73 74 72 69 6e 67 0a 0a 52 65 74 |tion string..Ret|
000058a0 75 72 6e 20 69 63 6f 6e 27 73 20 76 61 6c 69 64 |urn icon's valid|
000058b0 61 74 69 6f 6e 20 73 74 72 69 6e 67 2e 20 41 6e |ation string. An|
000058c0 20 65 72 72 6f 72 20 77 69 6c 6c 20 6f 63 63 75 | error will occu|
000058d0 72 20 69 66 20 64 69 72 65 63 74 20 73 74 72 69 |r if direct stri|
000058e0 6e 67 2e 0a 44 41 54 41 71 00 00 00 46 4e 6c 6f |ng..DATAq...FNlo|
000058f0 77 65 72 28 61 24 29 0a 23 50 61 72 65 6e 74 20 |wer(a$).#Parent |
00005900 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 61 24 7b 2f |!Root.=>.{/}a${/|
00005910 7d 09 73 74 72 69 6e 67 0a 3c 3d 09 73 74 72 69 |}.string.<=.stri|
00005920 6e 67 20 69 6e 20 6c 6f 77 65 72 20 63 61 73 65 |ng in lower case|
00005930 0a 0a 52 65 74 75 72 6e 20 67 69 76 65 6e 20 73 |..Return given s|
00005940 74 72 69 6e 67 20 69 6e 20 6c 6f 77 65 72 20 63 |tring in lower c|
00005950 61 73 65 2e 0a 00 00 00 44 41 54 41 6e 00 00 00 |ase.....DATAn...|
00005960 46 4e 75 70 70 65 72 28 61 24 29 0a 23 50 61 72 |FNupper(a$).#Par|
00005970 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00005980 61 24 7b 2f 7d 09 73 74 72 69 6e 67 0a 3c 3d 09 |a${/}.string.<=.|
00005990 75 70 70 65 72 20 63 61 73 65 20 73 74 72 69 6e |upper case strin|
000059a0 67 0a 0a 52 65 74 75 72 6e 20 67 69 76 65 6e 20 |g..Return given |
000059b0 73 74 72 69 6e 67 20 69 6e 20 75 70 70 65 72 20 |string in upper |
000059c0 63 61 73 65 2e 0a 00 00 44 41 54 41 4e 01 00 00 |case....DATAN...|
000059d0 46 4e 74 69 64 79 28 61 24 29 0a 23 50 61 72 65 |FNtidy(a$).#Pare|
000059e0 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 61 |nt !Root.=>.{/}a|
000059f0 24 7b 2f 7d 09 73 74 72 69 6e 67 0a 3c 3d 09 74 |${/}.string.<=.t|
00005a00 69 64 69 65 64 20 73 74 72 69 6e 67 0a 0a 52 65 |idied string..Re|
00005a10 74 75 72 6e 20 67 69 76 65 6e 20 73 74 72 69 6e |turn given strin|
00005a20 67 20 69 6e 20 74 69 64 79 20 66 6f 72 6d 61 74 |g in tidy format|
00005a30 2e 20 41 6c 6c 20 63 68 61 72 61 63 74 65 72 73 |. All characters|
00005a40 20 61 72 65 20 6c 6f 77 65 72 20 63 61 73 65 2c | are lower case,|
00005a50 20 65 78 63 65 70 74 20 74 68 65 20 66 69 72 73 | except the firs|
00005a60 74 20 61 6e 64 20 74 68 6f 73 65 20 73 75 63 63 |t and those succ|
00005a70 65 65 64 69 6e 67 20 6e 6f 6e 2d 61 6c 70 68 61 |eeding non-alpha|
00005a80 62 65 74 69 63 20 63 68 61 72 61 63 74 65 72 73 |betic characters|
00005a90 2c 20 77 68 69 63 68 20 61 72 65 20 75 70 70 65 |, which are uppe|
00005aa0 72 20 63 61 73 65 2e 20 41 70 6f 73 74 72 6f 70 |r case. Apostrop|
00005ab0 68 65 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 |hes are consider|
00005ac0 65 64 20 74 6f 20 62 65 20 61 6c 70 68 61 62 65 |ed to be alphabe|
00005ad0 74 69 63 20 63 68 61 72 61 63 74 65 72 73 20 61 |tic characters a|
00005ae0 6e 64 20 74 68 65 72 65 66 6f 72 65 20 22 54 48 |nd therefore "TH|
00005af0 45 52 45 27 53 22 20 77 69 6c 6c 20 62 65 20 72 |ERE'S" will be r|
00005b00 65 74 75 72 6e 65 64 20 61 73 20 22 54 68 65 72 |eturned as "Ther|
00005b10 65 27 73 22 2e 0a 00 00 44 41 54 41 e6 00 00 00 |e's"....DATA....|
00005b20 46 4e 47 65 74 45 6e 76 0a 23 50 61 72 65 6e 74 |FNGetEnv.#Parent|
00005b30 20 21 52 6f 6f 74 0a 3c 3d 09 65 6e 76 69 72 6f | !Root.<=.enviro|
00005b40 6e 6d 65 6e 74 20 73 74 72 69 6e 67 20 73 74 72 |nment string str|
00005b50 69 70 70 65 64 20 6f 66 20 6c 6f 61 64 65 72 0a |ipped of loader.|
00005b60 0a 54 68 69 73 20 69 73 20 74 68 65 20 73 74 72 |.This is the str|
00005b70 69 6e 67 20 77 68 69 63 68 20 69 73 20 75 73 65 |ing which is use|
00005b80 64 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 61 70 |d to load the ap|
00005b90 70 6c 69 63 61 74 69 6f 6e 2e 20 49 74 20 6d 61 |plication. It ma|
00005ba0 79 20 63 6f 6e 74 61 69 6e 20 61 6e 79 20 73 74 |y contain any st|
00005bb0 72 69 6e 67 20 77 68 69 63 68 20 69 73 20 62 65 |ring which is be|
00005bc0 20 61 63 74 65 64 20 75 70 6f 6e 20 6f 6e 20 73 | acted upon on s|
00005bd0 74 61 72 74 75 70 2c 20 65 67 2e 20 61 20 66 69 |tartup, eg. a fi|
00005be0 6c 65 20 74 6f 20 6c 6f 61 64 20 6f 72 20 6f 70 |le to load or op|
00005bf0 74 69 6f 6e 73 20 74 6f 20 73 65 74 2e 0a 00 00 |tions to set....|
00005c00 44 41 54 41 b2 00 00 00 46 4e 66 69 6c 65 74 79 |DATA....FNfilety|
00005c10 70 65 28 66 69 6c 65 24 29 0a 23 50 61 72 65 6e |pe(file$).#Paren|
00005c20 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 66 69 |t !Root.=>.{/}fi|
00005c30 6c 65 24 7b 2f 7d 09 66 69 6c 65 6e 61 6d 65 0a |le${/}.filename.|
00005c40 3c 3d 09 2d 32 20 69 66 20 6e 6f 74 20 66 6f 75 |<=.-2 if not fou|
00005c50 6e 64 0a 09 2d 31 20 69 66 20 75 6e 74 79 70 65 |nd..-1 if untype|
00005c60 64 0a 09 30 2d 26 46 46 46 20 69 66 20 74 79 70 |d..0-&FFF if typ|
00005c70 65 64 0a 09 26 31 30 30 30 20 69 66 20 64 69 72 |ed..&1000 if dir|
00005c80 65 63 74 6f 72 79 20 6f 72 20 69 6d 61 67 65 0a |ectory or image.|
00005c90 09 0a 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c |..Return the fil|
00005ca0 65 20 74 79 70 65 20 6f 66 20 61 20 66 69 6c 65 |e type of a file|
00005cb0 2e 0a 00 00 44 41 54 41 8b 00 00 00 46 4e 66 69 |....DATA....FNfi|
00005cc0 6c 65 6c 65 6e 67 74 68 28 66 69 6c 65 24 29 0a |lelength(file$).|
00005cd0 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e |#Parent !Root.=>|
00005ce0 09 7b 2f 7d 66 69 6c 65 24 7b 2f 7d 09 66 69 6c |.{/}file${/}.fil|
00005cf0 65 20 74 6f 20 63 68 65 63 6b 0a 3c 3d 09 6c 65 |e to check.<=.le|
00005d00 6e 67 74 68 20 6f 66 20 66 69 6c 65 2c 20 6f 72 |ngth of file, or|
00005d10 20 2d 31 20 69 66 20 6e 6f 74 20 66 6f 75 6e 64 | -1 if not found|
00005d20 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 6c 65 6e |..Return the len|
00005d30 67 74 68 20 6f 66 20 61 20 66 69 6c 65 2e 0a 00 |gth of a file...|
00005d40 44 41 54 41 01 01 00 00 46 4e 65 72 72 6f 72 62 |DATA....FNerrorb|
00005d50 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 73 61 67 |ox(title$,messag|
00005d60 65 24 2c 66 6c 61 67 73 29 0a 23 50 61 72 65 6e |e$,flags).#Paren|
00005d70 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 69 |t !Root.=>.{/}ti|
00005d80 74 6c 65 24 7b 2f 7d 09 74 69 74 6c 65 20 6f 66 |tle${/}.title of|
00005d90 20 77 69 6e 64 6f 77 0a 09 7b 2f 7d 6d 65 73 73 | window..{/}mess|
00005da0 61 67 65 24 7b 2f 7d 09 6d 65 73 73 61 67 65 20 |age${/}.message |
00005db0 77 69 74 68 69 6e 20 77 69 6e 64 6f 77 0a 09 7b |within window..{|
00005dc0 2f 7d 66 6c 61 67 73 7b 2f 7d 09 57 69 6d 70 5f |/}flags{/}.Wimp_|
00005dd0 52 65 70 6f 72 74 45 72 72 6f 72 20 3c 66 6c 61 |ReportError <fla|
00005de0 67 73 3d 3e 57 69 6d 70 3a 57 69 6d 70 5f 52 65 |gs=>Wimp:Wimp_Re|
00005df0 70 6f 72 74 45 72 72 6f 72 30 3e 0a 3c 3d 09 31 |portError0>.<=.1|
00005e00 20 66 6f 72 20 4f 4b 0a 09 32 20 66 6f 72 20 43 | for OK..2 for C|
00005e10 61 6e 63 65 6c 0a 0a 43 72 65 61 74 65 20 61 6e |ancel..Create an|
00005e20 20 65 72 72 6f 72 20 62 6f 78 20 77 69 74 68 20 | error box with |
00005e30 75 70 20 74 6f 20 32 20 62 75 74 74 6f 6e 73 2e |up to 2 buttons.|
00005e40 0a 00 00 00 44 41 54 41 e8 00 00 00 46 4e 63 6c |....DATA....FNcl|
00005e50 61 69 6d 28 73 69 7a 65 29 20 2d 20 57 69 6d 70 |aim(size) - Wimp|
00005e60 4c 69 62 20 76 65 72 73 69 6f 6e 0a 23 50 61 72 |Lib version.#Par|
00005e70 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00005e80 73 69 7a 65 7b 2f 7d 09 73 69 7a 65 20 6f 66 20 |size{/}.size of |
00005e90 62 6c 6f 63 6b 0a 3c 3d 09 70 6f 69 6e 74 65 72 |block.<=.pointer|
00005ea0 20 74 6f 20 62 6c 6f 63 6b 2c 20 6f 72 20 2d 31 | to block, or -1|
00005eb0 20 69 66 20 6e 6f 20 72 6f 6f 6d 0a 0a 43 6c 61 | if no room..Cla|
00005ec0 69 6d 20 61 20 62 6c 6f 63 6b 20 6f 66 20 52 4d |im a block of RM|
00005ed0 41 2e 0a 0a 4e 6f 74 65 3a 20 54 68 69 73 20 63 |A...Note: This c|
00005ee0 61 6c 6c 20 69 73 20 72 65 70 6c 61 63 65 64 20 |all is replaced |
00005ef0 69 6e 20 48 65 61 70 4c 69 62 20 62 79 20 61 20 |in HeapLib by a |
00005f00 48 65 61 70 20 63 6c 61 69 6d 20 3c 46 4e 63 6c |Heap claim <FNcl|
00005f10 61 69 6d 3d 3e 48 65 61 70 4c 69 62 3a 46 4e 63 |aim=>HeapLib:FNc|
00005f20 6c 61 69 6d 3e 20 63 61 6c 6c 2e 0a 44 41 54 41 |laim> call..DATA|
00005f30 ff 00 00 00 46 4e 74 61 73 6b 6e 61 6d 65 28 74 |....FNtaskname(t|
00005f40 61 73 6b 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |ask).#Parent !Ro|
00005f50 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 73 6b 7b 2f 7d |ot.=>.{/}task{/}|
00005f60 09 74 61 73 6b 20 68 61 6e 64 6c 65 0a 3c 3d 09 |.task handle.<=.|
00005f70 74 61 73 6b 73 20 6e 61 6d 65 2c 20 6f 72 20 22 |tasks name, or "|
00005f80 4e 6f 6e 65 22 20 69 66 20 69 6e 76 61 6c 69 64 |None" if invalid|
00005f90 0a 0a 52 65 74 75 72 6e 20 61 20 67 69 76 65 6e |..Return a given|
00005fa0 20 74 61 73 6b 73 20 6e 61 6d 65 2e 0a 0a 57 69 | tasks name...Wi|
00005fb0 6d 70 4c 69 62 32 20 61 6c 77 61 79 73 20 72 65 |mpLib2 always re|
00005fc0 74 75 72 6e 73 20 22 55 6e 6b 6e 6f 77 6e 22 2c |turns "Unknown",|
00005fd0 20 61 73 20 3c 54 61 73 6b 4d 61 6e 61 67 65 72 | as <TaskManager|
00005fe0 5f 54 61 73 6b 4e 61 6d 65 46 72 6f 6d 48 61 6e |_TaskNameFromHan|
00005ff0 64 6c 65 3d 3e 57 69 6d 70 3a 54 61 73 6b 4d 61 |dle=>Wimp:TaskMa|
00006000 6e 61 67 65 72 5f 54 61 73 6b 4e 61 6d 65 46 72 |nager_TaskNameFr|
00006010 6f 6d 48 61 6e 64 6c 65 3e 20 69 73 20 6e 6f 74 |omHandle> is not|
00006020 20 73 75 70 70 6f 72 74 65 64 2e 00 44 41 54 41 | supported..DATA|
00006030 80 00 00 00 46 4e 77 69 6e 64 6f 77 74 61 73 6b |....FNwindowtask|
00006040 28 77 69 6e 29 0a 23 50 61 72 65 6e 74 20 21 52 |(win).#Parent !R|
00006050 6f 6f 74 0a 3d 3e 09 7b 2f 7d 77 69 6e 7b 2f 7d |oot.=>.{/}win{/}|
00006060 09 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 3c |.window handle.<|
00006070 3d 09 74 61 73 6b 20 68 61 6e 64 6c 65 20 6f 66 |=.task handle of|
00006080 20 6f 77 6e 65 72 0a 0a 52 65 74 75 72 6e 20 74 | owner..Return t|
00006090 61 73 6b 20 68 61 6e 64 6c 65 20 77 68 6f 20 6f |ask handle who o|
000060a0 77 6e 73 20 77 69 6e 64 6f 77 2e 0a 44 41 54 41 |wns window..DATA|
000060b0 b3 00 00 00 46 4e 72 65 61 64 74 61 73 6b 73 74 |....FNreadtaskst|
000060c0 72 69 6e 67 28 74 61 73 6b 2c 6c 6f 63 29 0a 23 |ring(task,loc).#|
000060d0 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
000060e0 7b 2f 7d 74 61 73 6b 7b 2f 7d 09 74 61 73 6b 20 |{/}task{/}.task |
000060f0 68 61 6e 64 6c 65 20 74 6f 20 72 65 61 64 0a 09 |handle to read..|
00006100 7b 2f 7d 6c 6f 63 7b 2f 7d 09 6c 6f 63 61 74 69 |{/}loc{/}.locati|
00006110 6f 6e 20 6f 66 20 73 74 72 69 6e 67 20 69 6e 20 |on of string in |
00006120 74 61 73 6b 0a 0a 52 65 61 64 20 61 20 63 74 72 |task..Read a ctr|
00006130 6c 2d 74 65 72 6d 69 6e 61 74 65 64 20 73 74 72 |l-terminated str|
00006140 69 6e 67 20 66 72 6f 6d 20 74 61 73 6b 20 61 74 |ing from task at|
00006150 20 6c 6f 63 61 74 69 6f 6e 20 6c 6f 63 2e 0a 00 | location loc...|
00006160 44 41 54 41 d2 00 00 00 46 4e 62 61 63 6b 6f 66 |DATA....FNbackof|
00006170 77 69 6e 73 74 61 63 6b 0a 23 50 61 72 65 6e 74 |winstack.#Parent|
00006180 20 21 52 6f 6f 74 0a 3c 3d 09 68 61 6e 64 6c 65 | !Root.<=.handle|
00006190 20 6f 66 20 62 61 63 6b 20 61 74 20 62 61 63 6b | of back at back|
000061a0 20 6f 66 20 73 74 61 63 6b 0a 0a 52 65 74 75 72 | of stack..Retur|
000061b0 6e 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 20 |n window handle |
000061c0 6f 66 20 62 61 63 6b 20 6f 66 20 77 69 6e 64 6f |of back of windo|
000061d0 77 20 73 74 61 63 6b 2e 0a 0a 4e 6f 74 65 3a 20 |w stack...Note: |
000061e0 69 6e 66 6f 62 6f 78 25 20 6d 75 73 74 20 62 65 |infobox% must be|
000061f0 20 61 20 76 61 6c 69 64 20 77 69 6e 64 6f 77 20 | a valid window |
00006200 66 6f 72 20 74 68 69 73 20 74 6f 20 77 6f 72 6b |for this to work|
00006210 2c 20 28 70 72 65 66 65 72 61 62 6c 65 20 61 20 |, (preferable a |
00006220 73 75 62 2d 6d 65 6e 75 20 77 69 6e 64 6f 77 29 |sub-menu window)|
00006230 2e 0a 00 00 44 41 54 41 a5 00 00 00 46 4e 77 69 |....DATA....FNwi|
00006240 6e 73 74 61 63 6b 6e 65 78 74 28 77 69 6e 29 0a |nstacknext(win).|
00006250 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e |#Parent !Root.=>|
00006260 09 7b 2f 7d 77 69 6e 7b 2f 7d 09 77 69 6e 64 6f |.{/}win{/}.windo|
00006270 77 20 68 61 6e 64 6c 65 0a 3c 3d 09 77 69 6e 64 |w handle.<=.wind|
00006280 6f 77 20 68 61 6e 64 6c 65 2c 20 6f 72 20 2d 31 |ow handle, or -1|
00006290 20 69 66 20 61 74 20 66 72 6f 6e 74 0a 0a 52 65 | if at front..Re|
000062a0 74 75 72 6e 20 77 69 6e 64 6f 77 20 68 61 6e 64 |turn window hand|
000062b0 6c 65 20 6f 66 20 6e 65 78 74 20 77 69 6e 64 6f |le of next windo|
000062c0 77 20 69 6e 20 66 72 6f 6e 74 20 6f 66 20 73 70 |w in front of sp|
000062d0 65 63 69 66 69 65 64 2e 0a 00 00 00 44 41 54 41 |ecified.....DATA|
000062e0 81 00 00 00 46 4e 6c 65 61 66 6e 61 6d 65 28 66 |....FNleafname(f|
000062f0 69 6c 65 24 29 0a 23 50 61 72 65 6e 74 20 21 52 |ile$).#Parent !R|
00006300 6f 6f 74 0a 3d 3e 09 7b 2f 7d 66 69 6c 65 24 7b |oot.=>.{/}file${|
00006310 2f 7d 09 66 69 6c 65 0a 3c 3d 09 6c 65 61 66 20 |/}.file.<=.leaf |
00006320 6f 66 20 66 69 6c 65 6e 61 6d 65 0a 0a 52 65 74 |of filename..Ret|
00006330 75 72 6e 20 74 68 65 20 6c 65 61 66 6e 61 6d 65 |urn the leafname|
00006340 20 6f 66 20 74 68 65 20 73 70 65 63 69 66 69 65 | of the specifie|
00006350 64 20 66 69 6c 65 20 70 61 74 68 2e 0a 00 00 00 |d file path.....|
00006360 44 41 54 41 97 00 00 00 46 4e 70 61 74 68 6e 61 |DATA....FNpathna|
00006370 6d 65 28 66 69 6c 65 24 29 0a 23 50 61 72 65 6e |me(file$).#Paren|
00006380 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 66 69 |t !Root.=>.{/}fi|
00006390 6c 65 24 7b 2f 7d 09 66 69 6c 65 6e 61 6d 65 0a |le${/}.filename.|
000063a0 3c 3d 09 70 61 74 68 6e 61 6d 65 20 6f 66 20 66 |<=.pathname of f|
000063b0 69 6c 65 6e 61 6d 65 2c 20 6f 72 20 40 20 69 66 |ilename, or @ if|
000063c0 20 6e 6f 6e 65 0a 0a 52 65 74 75 72 6e 20 74 68 | none..Return th|
000063d0 65 20 70 61 74 68 6e 61 6d 65 20 6f 66 20 74 68 |e pathname of th|
000063e0 65 20 73 70 65 63 69 66 69 65 64 20 66 69 6c 65 |e specified file|
000063f0 20 70 61 74 68 2e 0a 00 44 41 54 41 0f 01 00 00 | path...DATA....|
00006400 46 4e 6c 6f 6e 67 66 69 6c 65 6e 61 6d 65 28 66 |FNlongfilename(f|
00006410 69 6c 65 24 29 0a 23 50 61 72 65 6e 74 20 21 52 |ile$).#Parent !R|
00006420 6f 6f 74 0a 3d 3e 09 7b 2f 7d 66 69 6c 65 24 7b |oot.=>.{/}file${|
00006430 2f 7d 09 66 69 6c 65 20 74 6f 20 63 68 61 6e 67 |/}.file to chang|
00006440 65 0a 3c 3d 09 66 75 6c 6c 20 66 69 6c 65 6e 61 |e.<=.full filena|
00006450 6d 65 0a 0a 52 65 74 75 72 6e 20 74 68 65 20 66 |me..Return the f|
00006460 75 6c 6c 20 70 61 74 68 6e 61 6d 65 20 6f 66 20 |ull pathname of |
00006470 74 68 65 20 66 69 6c 65 2e 20 54 68 69 73 20 70 |the file. This p|
00006480 65 72 66 6f 72 6d 73 20 63 61 6e 6f 6e 69 63 61 |erforms canonica|
00006490 6c 69 73 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 |lisation of the |
000064a0 66 69 6c 65 6e 61 6d 65 2e 0a 0a 57 69 6d 70 4c |filename...WimpL|
000064b0 69 62 32 20 72 65 74 75 72 6e 73 20 7b 2f 7d 66 |ib2 returns {/}f|
000064c0 69 6c 65 24 7b 2f 7d 2c 20 62 65 63 61 75 73 65 |ile${/}, because|
000064d0 20 3c 4f 53 5f 46 53 43 6f 6e 74 72 6f 6c 2c 33 | <OS_FSControl,3|
000064e0 37 3d 3e 4f 53 3a 4f 53 5f 66 73 63 6f 6e 74 72 |7=>OS:OS_fscontr|
000064f0 6f 6c 33 37 3e 20 69 73 20 6e 6f 74 20 73 75 70 |ol37> is not sup|
00006500 70 6f 72 74 65 64 2e 00 44 41 54 41 ac 00 00 00 |ported..DATA....|
00006510 46 4e 72 65 61 64 63 6d 6f 73 28 62 79 74 65 29 |FNreadcmos(byte)|
00006520 0a 23 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 23 |.#Parent !Root.#|
00006530 57 72 61 70 20 6f 66 66 0a 3d 3e 09 7b 2f 7d 62 |Wrap off.=>.{/}b|
00006540 79 74 65 7b 2f 7d 09 3c 43 4d 4f 53 20 62 79 74 |yte{/}.<CMOS byt|
00006550 65 20 74 6f 20 72 65 61 64 3d 3e 4f 53 3a 6f 73 |e to read=>OS:os|
00006560 5f 62 79 74 65 63 6d 6f 73 3e 0a 3c 3d 09 76 61 |_bytecmos>.<=.va|
00006570 6c 75 65 20 6f 66 20 62 79 74 65 0a 23 57 72 61 |lue of byte.#Wra|
00006580 70 0a 0a 52 65 61 64 20 61 20 62 79 74 65 20 6f |p..Read a byte o|
00006590 66 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 |f configuration |
000065a0 69 6e 66 6f 20 66 72 6f 6d 20 43 4d 4f 53 20 52 |info from CMOS R|
000065b0 41 4d 2e 0a 44 41 54 41 82 00 00 00 46 4e 73 77 |AM..DATA....FNsw|
000065c0 69 6e 75 6d 62 65 72 28 73 77 69 24 29 0a 23 50 |inumber(swi$).#P|
000065d0 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
000065e0 2f 7d 73 77 69 24 7b 2f 7d 09 53 57 49 20 6e 61 |/}swi${/}.SWI na|
000065f0 6d 65 0a 3c 3d 09 53 57 49 20 6e 75 6d 62 65 72 |me.<=.SWI number|
00006600 0a 0a 52 65 74 75 72 6e 20 53 57 49 20 6e 75 6d |..Return SWI num|
00006610 62 65 72 20 63 6f 64 65 20 6f 66 20 74 68 65 20 |ber code of the |
00006620 73 70 65 63 69 66 69 65 64 20 53 57 49 20 73 74 |specified SWI st|
00006630 72 69 6e 67 2e 0a 00 00 44 41 54 41 b4 00 00 00 |ring....DATA....|
00006640 46 4e 73 74 72 69 70 73 70 61 63 65 73 28 74 65 |FNstripspaces(te|
00006650 78 74 24 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |xt$).#Parent !Ro|
00006660 6f 74 0a 3d 3e 09 7b 2f 7d 74 65 78 74 24 7b 2f |ot.=>.{/}text${/|
00006670 7d 09 73 74 72 69 6e 67 20 74 6f 20 73 74 72 69 |}.string to stri|
00006680 70 0a 3c 3d 09 73 74 72 69 6e 67 20 77 69 74 68 |p.<=.string with|
00006690 6f 75 74 20 61 6e 79 20 70 61 64 64 69 6e 67 20 |out any padding |
000066a0 73 70 61 63 65 73 0a 0a 52 65 74 75 72 6e 73 20 |spaces..Returns |
000066b0 73 74 72 69 6e 67 20 77 69 74 68 6f 75 74 20 61 |string without a|
000066c0 6e 79 20 73 70 61 63 65 73 20 6f 6e 20 65 69 74 |ny spaces on eit|
000066d0 68 65 72 20 74 68 65 20 6c 65 66 74 20 6f 72 20 |her the left or |
000066e0 72 69 67 68 74 20 73 69 64 65 73 2e 44 41 54 41 |right sides.DATA|
000066f0 0b 02 00 00 46 4e 73 75 62 73 74 76 61 72 73 28 |....FNsubstvars(|
00006700 74 65 78 74 24 29 0a 23 50 61 72 65 6e 74 20 21 |text$).#Parent !|
00006710 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 65 78 74 24 |Root.=>.{/}text$|
00006720 7b 2f 7d 09 73 74 72 69 6e 67 20 74 6f 20 70 72 |{/}.string to pr|
00006730 6f 63 65 73 73 0a 3c 3d 09 73 75 62 73 74 69 74 |ocess.<=.substit|
00006740 75 74 65 64 20 74 65 78 74 0a 0a 50 65 72 66 6f |uted text..Perfo|
00006750 72 6d 73 20 76 61 72 69 61 62 6c 65 20 73 75 62 |rms variable sub|
00006760 73 74 69 74 75 74 69 6f 6e 20 6f 6e 20 61 20 73 |stitution on a s|
00006770 74 72 69 6e 67 2e 20 56 61 72 69 61 62 6c 65 20 |tring. Variable |
00006780 6e 61 6d 65 73 20 61 72 65 20 64 65 6c 69 6d 69 |names are delimi|
00006790 74 65 64 20 62 79 20 a4 20 73 79 6d 62 6f 6c 73 |ted by . symbols|
000067a0 20 61 6e 64 20 6d 61 79 20 62 65 20 65 69 74 68 | and may be eith|
000067b0 65 72 20 73 74 72 69 6e 67 73 20 6f 72 20 76 61 |er strings or va|
000067c0 6c 75 65 73 2e 0a 0a 46 6f 72 20 65 78 61 6d 70 |lues...For examp|
000067d0 6c 65 20 3a 0a 0a 7b 66 43 6f 64 65 7d 46 4e 73 |le :..{fCode}FNs|
000067e0 75 62 73 74 76 61 72 73 28 22 a4 63 69 74 79 24 |ubstvars(".city$|
000067f0 a4 20 69 73 20 74 68 65 20 63 61 70 69 74 61 6c |. is the capital|
00006800 20 6f 66 20 46 72 61 6e 63 65 22 29 7b 66 7d 20 | of France"){f} |
00006810 3d 3e 20 7b 66 43 6f 64 65 7d 22 50 61 72 69 73 |=> {fCode}"Paris|
00006820 20 69 73 20 74 68 65 20 63 61 70 69 74 61 6c 20 | is the capital |
00006830 6f 66 20 46 72 61 6e 63 65 22 7b 66 7d 0a 69 66 |of France"{f}.if|
00006840 20 63 69 74 79 24 20 3d 20 7b 66 43 6f 64 65 7d | city$ = {fCode}|
00006850 22 50 61 72 69 73 22 7b 66 7d 2e 0a 0a 7b 66 43 |"Paris"{f}...{fC|
00006860 6f 64 65 7d 46 4e 73 75 62 73 74 76 61 72 73 28 |ode}FNsubstvars(|
00006870 22 a4 63 69 74 79 24 a4 20 68 61 73 20 a4 70 6f |".city$. has .po|
00006880 70 a4 20 70 65 6f 70 6c 65 20 69 6e 20 69 74 22 |p. people in it"|
00006890 29 7b 66 7d 20 3d 3e 20 7b 66 43 6f 64 65 7d 22 |){f} => {fCode}"|
000068a0 50 61 72 69 73 20 68 61 73 20 36 31 30 30 30 20 |Paris has 61000 |
000068b0 70 65 6f 70 6c 65 20 69 6e 20 69 74 22 7b 66 7d |people in it"{f}|
000068c0 0a 69 66 20 63 69 74 79 24 20 3d 20 7b 66 43 6f |.if city$ = {fCo|
000068d0 64 65 7d 22 50 61 72 69 73 22 7b 66 7d 20 61 6e |de}"Paris"{f} an|
000068e0 64 20 70 6f 70 20 3d 20 7b 66 43 6f 64 65 7d 36 |d pop = {fCode}6|
000068f0 31 30 30 30 7b 66 7d 00 44 41 54 41 93 01 00 00 |1000{f}.DATA....|
00006900 46 4e 73 75 62 73 74 76 61 72 73 70 28 74 65 78 |FNsubstvarsp(tex|
00006910 74 24 2c 70 72 65 66 69 78 24 29 0a 23 50 61 72 |t$,prefix$).#Par|
00006920 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00006930 74 65 78 74 24 7b 2f 7d 09 73 74 72 69 6e 67 20 |text${/}.string |
00006940 74 6f 20 70 72 6f 63 65 73 73 0a 3c 3d 09 73 75 |to process.<=.su|
00006950 62 73 74 69 74 75 74 65 64 20 73 74 72 69 6e 67 |bstituted string|
00006960 0a 0a 50 65 72 66 6f 72 6d 73 20 76 61 72 69 61 |..Performs varia|
00006970 62 6c 65 20 73 75 62 73 74 69 74 75 74 69 6f 6e |ble substitution|
00006980 20 6f 6e 20 73 74 72 69 6e 67 20 75 73 69 6e 67 | on string using|
00006990 20 61 20 70 72 65 66 69 78 2e 20 53 75 62 73 74 | a prefix. Subst|
000069a0 69 74 75 74 69 6f 6e 20 69 73 20 61 73 20 69 6e |itution is as in|
000069b0 20 3c 46 4e 73 75 62 73 74 76 61 72 73 3e 2c 20 | <FNsubstvars>, |
000069c0 65 78 63 65 70 74 20 74 68 61 74 20 76 61 72 69 |except that vari|
000069d0 61 62 6c 65 20 73 75 62 73 74 69 74 75 74 65 64 |able substituted|
000069e0 20 69 73 20 70 72 65 66 69 78 65 64 20 62 79 20 | is prefixed by |
000069f0 74 68 65 20 73 74 72 69 6e 67 20 7b 2f 7d 70 72 |the string {/}pr|
00006a00 65 66 69 78 24 7b 2f 7d 0a 0a 53 6f 20 7b 66 43 |efix${/}..So {fC|
00006a10 6f 64 65 7d 46 4e 73 75 62 73 74 76 61 72 73 70 |ode}FNsubstvarsp|
00006a20 28 22 48 65 6c 6c 6f 20 a4 6e 61 6d 65 24 a4 22 |("Hello .name$."|
00006a30 2c 22 79 6f 75 72 22 29 7b 66 7d 20 77 6f 75 6c |,"your"){f} woul|
00006a40 64 20 72 65 74 75 72 6e 20 7b 66 43 6f 64 65 7d |d return {fCode}|
00006a50 22 48 65 6c 6c 6f 20 4a 75 73 74 69 6e 22 7b 66 |"Hello Justin"{f|
00006a60 7d 20 69 66 20 79 6f 75 72 6e 61 6d 65 24 20 63 |} if yourname$ c|
00006a70 6f 6e 74 61 69 6e 65 64 20 7b 66 43 6f 64 65 7d |ontained {fCode}|
00006a80 22 4a 75 73 74 69 6e 22 7b 66 7d 00 44 41 54 41 |"Justin"{f}.DATA|
00006a90 bf 00 00 00 46 4e 67 73 74 72 61 6e 73 28 74 65 |....FNgstrans(te|
00006aa0 78 74 24 29 0a 23 50 61 72 65 6e 74 20 21 52 6f |xt$).#Parent !Ro|
00006ab0 6f 74 0a 3d 3e 09 7b 2f 7d 74 65 78 74 24 7b 2f |ot.=>.{/}text${/|
00006ac0 7d 09 73 74 72 69 6e 67 20 74 6f 20 70 72 6f 63 |}.string to proc|
00006ad0 65 73 73 0a 3c 3d 09 47 53 54 72 61 6e 73 27 65 |ess.<=.GSTrans'e|
00006ae0 64 20 73 74 72 69 6e 67 0a 0a 50 65 72 66 6f 72 |d string..Perfor|
00006af0 6d 73 20 61 20 3c 4f 53 5f 47 53 54 72 61 6e 73 |ms a <OS_GSTrans|
00006b00 3d 3e 4f 53 3a 4f 53 5f 47 53 54 72 61 6e 73 3e |=>OS:OS_GSTrans>|
00006b10 20 63 61 6c 6c 20 6f 6e 20 73 74 72 69 6e 67 20 | call on string |
00006b20 74 6f 20 63 6f 6e 76 65 72 74 20 27 7c 27 20 63 |to convert '|' c|
00006b30 6f 6e 74 72 6f 6c 20 63 6f 64 65 73 20 74 6f 20 |ontrol codes to |
00006b40 72 65 61 6c 20 63 6f 64 65 73 2e 00 44 41 54 41 |real codes..DATA|
00006b50 1f 02 00 00 46 4e 72 65 61 64 73 74 61 74 75 73 |....FNreadstatus|
00006b60 66 69 6c 65 28 66 69 6c 65 24 29 0a 23 50 61 72 |file(file$).#Par|
00006b70 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d |ent !Root.=>.{/}|
00006b80 66 69 6c 65 24 7b 2f 7d 09 66 69 6c 65 6e 61 6d |file${/}.filenam|
00006b90 65 20 74 6f 20 6f 70 65 6e 0a 3c 3d 09 54 52 55 |e to open.<=.TRU|
00006ba0 45 20 3d 20 61 6c 6c 20 6f 6b 2c 20 46 41 4c 53 |E = all ok, FALS|
00006bb0 45 20 3d 20 65 72 72 6f 72 20 6f 63 63 75 72 65 |E = error occure|
00006bc0 64 0a 0a 4f 70 65 6e 73 20 61 20 73 74 61 74 75 |d..Opens a statu|
00006bd0 73 20 66 69 6c 65 20 61 6e 64 20 72 65 74 75 72 |s file and retur|
00006be0 6e 73 20 69 74 73 20 73 75 63 63 65 73 73 20 69 |ns its success i|
00006bf0 6e 20 64 6f 69 6e 67 20 73 6f 2e 20 52 65 61 73 |n doing so. Reas|
00006c00 6f 6e 73 20 66 6f 72 20 65 72 72 6f 72 73 20 69 |ons for errors i|
00006c10 6e 63 6c 75 64 65 20 74 68 65 20 66 69 6c 65 20 |nclude the file |
00006c20 6e 6f 74 20 65 78 69 73 74 69 6e 67 2c 20 62 65 |not existing, be|
00006c30 69 6e 67 20 61 20 64 69 72 65 63 74 6f 72 79 20 |ing a directory |
00006c40 6f 72 20 62 65 6c 6f 6e 67 69 6e 67 20 74 6f 20 |or belonging to |
00006c50 61 6e 6f 74 68 65 72 20 61 70 70 6c 69 63 61 74 |another applicat|
00006c60 69 6f 6e 2e 20 55 73 75 61 6c 6c 79 20 74 68 65 |ion. Usually the|
00006c70 20 66 69 6c 65 20 73 68 6f 75 6c 64 20 68 61 76 | file should hav|
00006c80 65 20 74 68 65 20 6c 65 61 66 20 4f 70 74 69 6f |e the leaf Optio|
00006c90 6e 73 2e 0a 0a 52 65 6c 61 74 65 64 20 63 6f 6d |ns...Related com|
00006ca0 6d 61 6e 64 73 20 3a 0a 23 54 61 62 3b 49 6e 64 |mands :.#Tab;Ind|
00006cb0 65 6e 74 20 32 0a 3c 50 52 4f 43 73 74 61 74 75 |ent 2.<PROCstatu|
00006cc0 73 6e 65 78 74 3e 09 72 65 61 64 73 20 74 68 65 |snext>.reads the|
00006cd0 20 6e 65 78 74 20 65 6e 74 72 79 0a 3c 46 4e 73 | next entry.<FNs|
00006ce0 74 61 74 75 73 67 65 74 3e 09 09 72 65 61 64 73 |tatusget>..reads|
00006cf0 20 61 20 73 74 72 69 6e 67 0a 3c 46 4e 73 74 61 | a string.<FNsta|
00006d00 74 75 73 67 65 74 76 3e 09 09 72 65 61 64 73 20 |tusgetv>..reads |
00006d10 61 20 76 61 72 69 61 62 6c 65 0a 3c 46 4e 73 74 |a variable.<FNst|
00006d20 61 74 75 73 67 65 74 66 6c 61 67 3e 09 72 65 61 |atusgetflag>.rea|
00006d30 64 73 20 61 20 66 6c 61 67 0a 3c 50 52 4f 43 63 |ds a flag.<PROCc|
00006d40 6c 6f 73 65 73 74 61 74 75 73 66 69 6c 65 3e 09 |losestatusfile>.|
00006d50 66 69 6e 69 73 68 65 73 20 72 65 61 64 69 6e 67 |finishes reading|
00006d60 20 74 68 65 20 66 69 6c 65 2e 0a 00 44 41 54 41 | the file...DATA|
00006d70 b7 00 00 00 46 4e 73 74 61 74 75 73 67 65 74 28 |....FNstatusget(|
00006d80 63 6f 64 65 24 29 0a 23 50 61 72 65 6e 74 20 21 |code$).#Parent !|
00006d90 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 67 24 7b |Root.=>.{/}tag${|
00006da0 2f 7d 09 74 61 67 20 63 6f 64 65 0a 3c 3d 09 73 |/}.tag code.<=.s|
00006db0 74 72 69 6e 67 20 75 6e 64 65 72 20 74 61 67 20 |tring under tag |
00006dc0 63 6f 64 65 2c 20 6f 72 20 2a 45 2a 4e 2a 44 2a |code, or *E*N*D*|
00006dd0 20 69 66 20 6e 6f 74 20 66 6f 75 6e 64 0a 0a 54 | if not found..T|
00006de0 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 |his function ret|
00006df0 75 72 6e 73 20 74 68 65 20 73 74 72 69 6e 67 20 |urns the string |
00006e00 76 61 6c 75 65 20 6f 66 20 74 61 67 20 66 72 6f |value of tag fro|
00006e10 6d 20 74 68 65 20 73 74 61 74 75 73 20 66 69 6c |m the status fil|
00006e20 65 2e 0a 00 44 41 54 41 9d 00 00 00 46 4e 73 74 |e...DATA....FNst|
00006e30 61 74 75 73 67 65 74 76 28 74 61 67 24 29 0a 23 |atusgetv(tag$).#|
00006e40 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 23 57 72 |Parent !Root.#Wr|
00006e50 61 70 20 6f 66 66 0a 3d 3e 09 7b 2f 7d 74 61 67 |ap off.=>.{/}tag|
00006e60 24 7b 2f 7d 09 74 61 67 20 63 6f 64 65 0a 3c 3d |${/}.tag code.<=|
00006e70 09 76 61 6c 75 65 20 6f 66 20 74 61 67 2c 20 6f |.value of tag, o|
00006e80 72 20 30 20 69 66 20 6e 6f 74 20 66 6f 75 6e 64 |r 0 if not found|
00006e90 2e 0a 23 57 72 61 70 0a 0a 52 65 74 75 72 6e 20 |..#Wrap..Return |
00006ea0 61 20 74 61 67 67 65 64 20 76 61 6c 75 65 20 66 |a tagged value f|
00006eb0 72 6f 6d 20 73 74 61 74 75 73 20 66 69 6c 65 2e |rom status file.|
00006ec0 0a 00 00 00 44 41 54 41 0b 01 00 00 46 4e 62 61 |....DATA....FNba|
00006ed0 73 65 74 79 70 65 28 66 69 6c 65 24 29 0a 23 50 |setype(file$).#P|
00006ee0 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b |arent !Root.=>.{|
00006ef0 2f 7d 66 69 6c 65 24 7b 2f 7d 09 66 69 6c 65 6e |/}file${/}.filen|
00006f00 61 6d 65 0a 3c 3d 09 2d 32 20 69 66 20 6e 6f 74 |ame.<=.-2 if not|
00006f10 20 66 6f 75 6e 64 0a 09 2d 31 20 69 66 20 66 69 | found..-1 if fi|
00006f20 6c 65 0a 09 30 2d 26 46 46 46 20 69 66 20 69 6d |le..0-&FFF if im|
00006f30 61 67 65 0a 09 26 31 30 30 30 20 69 66 20 64 69 |age..&1000 if di|
00006f40 72 65 63 74 6f 72 79 0a 09 0a 52 65 74 75 72 6e |rectory...Return|
00006f50 20 74 68 65 20 66 69 6c 65 20 74 79 70 65 20 6f | the file type o|
00006f60 66 20 61 6e 20 69 6d 61 67 65 20 66 69 6c 65 20 |f an image file |
00006f70 6f 72 20 64 69 72 65 63 74 6f 72 79 0a 0a 49 6e |or directory..In|
00006f80 20 57 69 6d 70 4c 69 62 32 20 74 68 69 73 20 64 | WimpLib2 this d|
00006f90 6f 65 73 20 6e 6f 74 20 72 65 74 75 72 6e 20 74 |oes not return t|
00006fa0 68 65 20 69 6d 61 67 65 20 74 79 70 65 20 62 65 |he image type be|
00006fb0 63 61 75 73 65 20 69 6d 61 67 65 73 20 61 72 65 |cause images are|
00006fc0 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 00 | not supported..|
00006fd0 44 41 54 41 26 01 00 00 46 4e 66 69 6e 64 74 61 |DATA&...FNfindta|
00006fe0 73 6b 28 74 61 73 6b 24 29 0a 23 50 61 72 65 6e |sk(task$).#Paren|
00006ff0 74 20 21 52 6f 6f 74 0a 3d 3e 09 7b 2f 7d 74 61 |t !Root.=>.{/}ta|
00007000 73 6b 24 7b 2f 7d 09 74 61 73 6b 20 6e 61 6d 65 |sk${/}.task name|
00007010 0a 3c 3d 09 74 61 73 6b 20 68 61 6e 64 6c 65 2c |.<=.task handle,|
00007020 20 6f 72 20 2d 31 20 69 66 20 6e 6f 74 20 66 6f | or -1 if not fo|
00007030 75 6e 64 0a 0a 53 65 61 72 63 68 20 66 6f 72 20 |und..Search for |
00007040 61 20 67 69 76 65 6e 20 74 61 73 6b 20 61 6e 64 |a given task and|
00007050 20 72 65 74 75 72 6e 20 74 68 65 20 66 69 72 73 | return the firs|
00007060 74 20 74 61 73 6b 73 20 68 61 6e 64 6c 65 20 77 |t tasks handle w|
00007070 68 6f 73 65 20 6e 61 6d 65 20 6d 61 74 63 68 65 |hose name matche|
00007080 73 2e 0a 0a 57 69 6d 70 4c 69 62 32 20 77 69 6c |s...WimpLib2 wil|
00007090 6c 20 61 6c 77 61 79 73 20 72 65 74 75 72 6e 20 |l always return |
000070a0 2d 31 2c 20 61 73 20 3c 54 61 73 6b 4d 61 6e 61 |-1, as <TaskMana|
000070b0 67 65 72 5f 45 6e 75 6d 65 72 61 74 65 54 61 73 |ger_EnumerateTas|
000070c0 6b 73 3d 3e 57 69 6d 70 3a 54 61 73 6b 4d 61 6e |ks=>Wimp:TaskMan|
000070d0 61 67 65 72 5f 45 6e 75 6d 65 72 61 74 65 54 61 |ager_EnumerateTa|
000070e0 73 6b 73 3e 20 69 73 20 6e 6f 74 20 73 75 70 70 |sks> is not supp|
000070f0 6f 72 74 65 64 2e 00 00 44 41 54 41 8c 00 00 00 |orted...DATA....|
00007100 46 4e 73 74 61 74 75 73 67 65 74 66 6c 61 67 28 |FNstatusgetflag(|
00007110 74 61 67 24 29 0a 23 50 61 72 65 6e 74 20 21 52 |tag$).#Parent !R|
00007120 6f 6f 74 0a 23 57 72 61 70 20 6f 66 66 0a 3d 3e |oot.#Wrap off.=>|
00007130 09 7b 2f 7d 74 61 67 24 7b 2f 7d 09 74 61 67 20 |.{/}tag${/}.tag |
00007140 63 6f 64 65 0a 3c 3d 09 54 52 55 45 20 6f 72 20 |code.<=.TRUE or |
00007150 46 41 4c 53 45 0a 23 57 72 61 70 0a 0a 52 65 74 |FALSE.#Wrap..Ret|
00007160 75 72 6e 20 61 20 74 61 67 67 65 64 20 66 6c 61 |urn a tagged fla|
00007170 67 20 66 72 6f 6d 20 73 74 61 74 75 73 20 66 69 |g from status fi|
00007180 6c 65 2e 0a 44 41 54 41 92 00 00 00 46 4e 70 61 |le..DATA....FNpa|
00007190 72 65 6e 74 77 69 6e 28 63 68 69 6c 64 29 0a 23 |rentwin(child).#|
000071a0 50 61 72 65 6e 74 20 21 52 6f 6f 74 0a 3d 3e 09 |Parent !Root.=>.|
000071b0 7b 2f 7d 63 68 69 6c 64 7b 2f 7d 09 63 68 69 6c |{/}child{/}.chil|
000071c0 64 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 2c |d window handle,|
000071d0 20 6f 72 20 2d 31 20 69 66 20 69 6e 76 61 6c 69 | or -1 if invali|
000071e0 64 0a 0a 52 65 61 64 73 20 74 68 65 20 77 69 6e |d..Reads the win|
000071f0 64 6f 77 20 69 6e 20 77 68 69 63 68 20 7b 2f 7d |dow in which {/}|
00007200 63 68 69 6c 64 7b 2f 7d 20 69 73 20 65 6d 62 65 |child{/} is embe|
00007210 64 64 65 64 2e 0a 00 00 44 41 54 41 2d 0a 00 00 |dded....DATA-...|
00007220 57 69 6d 70 4c 69 62 20 72 6f 75 74 69 6e 65 73 |WimpLib routines|
00007230 0a 23 50 61 72 65 6e 74 20 53 74 72 6f 6e 67 48 |.#Parent StrongH|
00007240 65 6c 70 3a 21 4d 65 6e 75 0a 4d 61 69 6e 20 61 |elp:!Menu.Main a|
00007250 70 70 6c 69 63 61 74 69 6f 6e 0a 23 49 6e 64 65 |pplication.#Inde|
00007260 6e 74 20 32 0a 23 54 61 62 6c 65 20 43 6f 6c 75 |nt 2.#Table Colu|
00007270 6d 6e 73 20 33 0a 3c 50 52 4f 43 69 6e 69 74 6c |mns 3.<PROCinitl|
00007280 69 62 72 61 72 79 3e 0a 3c 50 52 4f 43 6e 6f 74 |ibrary>.<PROCnot|
00007290 65 6d 65 73 73 61 67 65 3e 0a 3c 46 4e 6c 6f 61 |emessage>.<FNloa|
000072a0 64 74 65 6d 70 6c 61 74 65 3e 0a 3c 46 4e 6c 6f |dtemplate>.<FNlo|
000072b0 61 64 73 70 72 69 74 65 73 3e 0a 3c 46 4e 47 65 |adsprites>.<FNGe|
000072c0 74 45 6e 76 3e 0a 3c 46 4e 73 79 73 74 65 6d 76 |tEnv>.<FNsystemv|
000072d0 61 72 3e 0a 3c 50 52 4f 43 65 72 72 6f 72 3e 0a |ar>.<PROCerror>.|
000072e0 3c 50 52 4f 43 65 65 72 72 6f 72 3e 0a 3c 46 4e |<PROCeerror>.<FN|
000072f0 65 72 72 6f 72 62 6f 78 3e 0a 3c 50 52 4f 43 73 |errorbox>.<PROCs|
00007300 68 6f 77 66 72 65 65 3e 0a 23 45 6e 64 54 61 62 |howfree>.#EndTab|
00007310 6c 65 0a 23 49 6e 64 65 6e 74 0a 0a 4d 65 6e 75 |le.#Indent..Menu|
00007320 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 0a 23 49 | manipulation.#I|
00007330 6e 64 65 6e 74 20 32 0a 23 54 61 62 6c 65 20 43 |ndent 2.#Table C|
00007340 6f 6c 75 6d 6e 73 20 33 0a 3c 46 4e 63 72 65 61 |olumns 3.<FNcrea|
00007350 74 65 6d 65 6e 75 3e 0a 3c 46 4e 69 6e 64 69 72 |temenu>.<FNindir|
00007360 65 63 74 3e 0a 3c 50 52 4f 43 69 62 6d 65 6e 75 |ect>.<PROCibmenu|
00007370 3e 0a 3c 50 52 4f 43 6d 65 6e 75 3e 0a 3c 50 52 |>.<PROCmenu>.<PR|
00007380 4f 43 72 65 63 72 65 61 74 65 6d 65 6e 75 3e 0a |OCrecreatemenu>.|
00007390 3c 50 52 4f 43 6d 65 6e 75 75 6e 74 69 63 6b 3e |<PROCmenuuntick>|
000073a0 0a 3c 50 52 4f 43 6d 65 6e 75 74 69 63 6b 3e 0a |.<PROCmenutick>.|
000073b0 3c 50 52 4f 43 6d 65 6e 75 73 68 61 64 65 3e 0a |<PROCmenushade>.|
000073c0 3c 46 4e 6d 65 6e 75 74 69 63 6b 65 64 3e 0a 3c |<FNmenuticked>.<|
000073d0 46 4e 6d 65 6e 75 73 68 61 64 65 64 3e 0a 3c 50 |FNmenushaded>.<P|
000073e0 52 4f 43 73 65 74 6d 65 6e 75 74 65 78 74 3e 0a |ROCsetmenutext>.|
000073f0 3c 46 4e 67 65 74 6d 65 6e 75 74 65 78 74 3e 0a |<FNgetmenutext>.|
00007400 3c 46 4e 64 65 63 6f 64 65 6d 65 6e 75 3e 0a 3c |<FNdecodemenu>.<|
00007410 46 4e 67 65 74 66 6f 6e 74 6d 65 6e 75 3e 0a 3c |FNgetfontmenu>.<|
00007420 50 52 4f 43 72 65 6c 65 61 73 65 66 6f 6e 74 6d |PROCreleasefontm|
00007430 65 6e 75 3e 0a 3c 46 4e 63 72 65 61 74 65 66 74 |enu>.<FNcreateft|
00007440 6d 65 6e 75 3e 0a 3c 50 52 4f 43 72 65 6c 65 61 |menu>.<PROCrelea|
00007450 73 65 66 74 6d 65 6e 75 3e 0a 23 45 6e 64 54 61 |seftmenu>.#EndTa|
00007460 62 6c 65 0a 23 49 6e 64 65 6e 74 0a 0a 57 69 6e |ble.#Indent..Win|
00007470 64 6f 77 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e |dow manipulation|
00007480 0a 23 49 6e 64 65 6e 74 20 32 0a 23 54 61 62 6c |.#Indent 2.#Tabl|
00007490 65 20 43 6f 6c 75 6d 6e 73 20 33 0a 3c 50 52 4f |e Columns 3.<PRO|
000074a0 43 63 6c 6f 73 65 77 69 6e 3e 0a 3c 50 52 4f 43 |Cclosewin>.<PROC|
000074b0 6f 70 65 6e 77 69 6e 3e 0a 3c 50 52 4f 43 6f 70 |openwin>.<PROCop|
000074c0 65 6e 77 69 6e 61 74 3e 0a 3c 50 52 4f 43 6f 70 |enwinat>.<PROCop|
000074d0 65 6e 77 69 6e 63 65 6e 74 72 65 3e 0a 3c 50 52 |enwincentre>.<PR|
000074e0 4f 43 6f 70 65 6e 77 69 6e 74 6f 3e 0a 3c 50 52 |OCopenwinto>.<PR|
000074f0 4f 43 72 65 73 69 7a 65 77 69 6e 74 6f 3e 0a 3c |OCresizewinto>.<|
00007500 50 52 4f 43 77 69 6e 73 65 74 65 78 74 65 6e 74 |PROCwinsetextent|
00007510 3e 0a 3c 50 52 4f 43 66 6f 72 63 65 72 65 64 72 |>.<PROCforceredr|
00007520 61 77 3e 0a 3c 50 52 4f 43 77 69 6e 64 6f 77 74 |aw>.<PROCwindowt|
00007530 69 74 6c 65 3e 0a 3c 50 52 4f 43 65 6d 62 65 64 |itle>.<PROCembed|
00007540 77 69 6e 3e 0a 3c 50 52 4f 43 65 6d 62 65 64 77 |win>.<PROCembedw|
00007550 69 6e 77 69 74 68 3e 0a 3c 50 52 4f 43 75 6e 65 |inwith>.<PROCune|
00007560 6d 62 65 64 77 69 6e 3e 0a 3c 46 4e 70 61 72 65 |mbedwin>.<FNpare|
00007570 6e 74 77 69 6e 3e 0a 23 45 6e 64 54 61 62 6c 65 |ntwin>.#EndTable|
00007580 0a 23 49 6e 64 65 6e 74 0a 0a 49 63 6f 6e 20 6d |.#Indent..Icon m|
00007590 61 6e 69 70 75 6c 61 74 69 6f 6e 0a 23 49 6e 64 |anipulation.#Ind|
000075a0 65 6e 74 20 32 0a 23 54 61 62 6c 65 20 43 6f 6c |ent 2.#Table Col|
000075b0 75 6d 6e 73 20 33 0a 3c 46 4e 63 72 65 61 74 65 |umns 3.<FNcreate|
000075c0 69 63 6f 6e 3e 0a 3c 50 52 4f 43 64 65 6c 65 74 |icon>.<PROCdelet|
000075d0 65 69 63 6f 6e 3e 0a 3c 46 4e 43 72 65 61 74 65 |eicon>.<FNCreate|
000075e0 49 63 6f 6e 42 61 72 49 63 6f 6e 3e 0a 3c 50 52 |IconBarIcon>.<PR|
000075f0 4f 43 69 63 6f 6e 73 68 61 64 65 3e 0a 3c 50 52 |OCiconshade>.<PR|
00007600 4f 43 69 63 6f 6e 73 74 61 74 65 3e 0a 3c 50 52 |OCiconstate>.<PR|
00007610 4f 43 73 65 74 69 63 6f 6e 62 69 74 3e 0a 3c 46 |OCseticonbit>.<F|
00007620 4e 67 65 74 69 63 6f 6e 73 74 61 74 65 3e 0a 3c |Ngeticonstate>.<|
00007630 50 52 4f 43 72 65 64 72 61 77 69 63 6f 6e 3e 0a |PROCredrawicon>.|
00007640 3c 46 4e 67 65 74 69 63 6f 6e 74 65 78 74 3e 0a |<FNgeticontext>.|
00007650 3c 50 52 4f 43 73 65 74 69 63 6f 6e 74 65 78 74 |<PROCseticontext|
00007660 3e 0a 3c 46 4e 67 65 74 69 63 6f 6e 76 61 6c 69 |>.<FNgeticonvali|
00007670 64 3e 0a 3c 50 52 4f 43 73 65 74 69 63 6f 6e 76 |d>.<PROCseticonv|
00007680 61 6c 69 64 3e 0a 3c 50 52 4f 43 64 72 61 67 69 |alid>.<PROCdragi|
00007690 63 6f 6e 3e 0a 3c 50 52 4f 43 64 72 61 67 73 61 |con>.<PROCdragsa|
000076a0 76 65 3e 0a 3c 50 52 4f 43 70 72 65 73 73 69 63 |ve>.<PROCpressic|
000076b0 6f 6e 3e 0a 23 45 6e 64 54 61 62 6c 65 0a 23 49 |on>.#EndTable.#I|
000076c0 6e 64 65 6e 74 0a 0a 21 48 65 6c 70 20 72 65 73 |ndent..!Help res|
000076d0 70 6f 6e 73 69 76 65 20 72 6f 75 74 69 6e 65 73 |ponsive routines|
000076e0 0a 23 49 6e 64 65 6e 74 20 32 0a 23 54 61 62 6c |.#Indent 2.#Tabl|
000076f0 65 20 43 6f 6c 75 6d 6e 73 20 33 0a 3c 50 52 4f |e Columns 3.<PRO|
00007700 43 72 65 61 64 68 65 6c 70 3e 0a 3c 50 52 4f 43 |Creadhelp>.<PROC|
00007710 73 65 6e 64 68 65 6c 70 3e 0a 23 45 6e 64 54 61 |sendhelp>.#EndTa|
00007720 62 6c 65 0a 23 49 6e 64 65 6e 74 0a 0a 4d 65 73 |ble.#Indent..Mes|
00007730 73 61 67 65 54 72 61 6e 73 20 69 6e 74 65 72 66 |sageTrans interf|
00007740 61 63 65 20 72 6f 75 74 69 6e 65 73 0a 23 49 6e |ace routines.#In|
00007750 64 65 6e 74 20 32 0a 23 54 61 62 6c 65 20 43 6f |dent 2.#Table Co|
00007760 6c 75 6d 6e 73 20 32 0a 3c 50 52 4f 43 6f 70 65 |lumns 2.<PROCope|
00007770 6e 6d 65 73 73 61 67 65 73 3e 0a 3c 50 52 4f 43 |nmessages>.<PROC|
00007780 63 6c 6f 73 65 6d 65 73 73 61 67 65 73 3e 0a 3c |closemessages>.<|
00007790 46 4e 6d 73 67 74 6f 6b 65 6e 3e 0a 3c 46 4e 6d |FNmsgtoken>.<FNm|
000077a0 73 67 74 65 78 74 3e 0a 23 45 6e 64 54 61 62 6c |sgtext>.#EndTabl|
000077b0 65 0a 23 49 6e 64 65 6e 74 0a 0a 53 74 72 69 6e |e.#Indent..Strin|
000077c0 67 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 0a 23 |g manipulation.#|
000077d0 49 6e 64 65 6e 74 20 32 0a 23 54 61 62 6c 65 20 |Indent 2.#Table |
000077e0 43 6f 6c 75 6d 6e 73 20 33 0a 3c 46 4e 73 74 72 |Columns 3.<FNstr|
000077f0 69 6e 67 30 3e 0a 3c 46 4e 6c 6f 77 65 72 3e 0a |ing0>.<FNlower>.|
00007800 3c 46 4e 75 70 70 65 72 3e 0a 3c 46 4e 74 69 64 |<FNupper>.<FNtid|
00007810 79 3e 0a 3c 46 4e 73 74 72 69 70 73 70 61 63 65 |y>.<FNstripspace|
00007820 73 3e 0a 3c 46 4e 73 75 62 73 74 76 61 72 73 3e |s>.<FNsubstvars>|
00007830 0a 3c 46 4e 73 75 62 73 74 76 61 72 73 70 3e 0a |.<FNsubstvarsp>.|
00007840 3c 46 4e 67 73 74 72 61 6e 73 3e 0a 3c 46 4e 73 |<FNgstrans>.<FNs|
00007850 77 69 6e 75 6d 62 65 72 3e 0a 23 45 6e 64 54 61 |winumber>.#EndTa|
00007860 62 6c 65 0a 23 49 6e 64 65 6e 74 0a 0a 46 69 6c |ble.#Indent..Fil|
00007870 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 6f |e information ro|
00007880 75 74 69 6e 65 73 0a 23 49 6e 64 65 6e 74 20 32 |utines.#Indent 2|
00007890 0a 23 54 61 62 6c 65 20 43 6f 6c 75 6d 6e 73 20 |.#Table Columns |
000078a0 33 0a 3c 46 4e 66 69 6c 65 74 79 70 65 3e 0a 3c |3.<FNfiletype>.<|
000078b0 46 4e 62 61 73 65 74 79 70 65 3e 0a 3c 46 4e 66 |FNbasetype>.<FNf|
000078c0 69 6c 65 6c 65 6e 67 74 68 3e 0a 3c 46 4e 6c 65 |ilelength>.<FNle|
000078d0 61 66 6e 61 6d 65 3e 0a 3c 46 4e 70 61 74 68 6e |afname>.<FNpathn|
000078e0 61 6d 65 3e 0a 3c 46 4e 6c 6f 6e 67 66 69 6c 65 |ame>.<FNlongfile|
000078f0 6e 61 6d 65 3e 0a 23 45 6e 64 54 61 62 6c 65 0a |name>.#EndTable.|
00007900 23 49 6e 64 65 6e 74 0a 0a 4d 6f 64 75 6c 65 20 |#Indent..Module |
00007910 77 6f 72 6b 73 70 61 63 65 20 6d 61 6e 69 70 75 |workspace manipu|
00007920 6c 61 74 69 6f 6e 0a 23 49 6e 64 65 6e 74 20 32 |lation.#Indent 2|
00007930 0a 23 54 61 62 6c 65 20 43 6f 6c 75 6d 6e 73 20 |.#Table Columns |
00007940 32 0a 3c 46 4e 63 6c 61 69 6d 3e 0a 3c 50 52 4f |2.<FNclaim>.<PRO|
00007950 43 72 65 6c 65 61 73 65 3e 0a 23 45 6e 64 54 61 |Crelease>.#EndTa|
00007960 62 6c 65 0a 23 49 6e 64 65 6e 74 0a 0a 54 61 73 |ble.#Indent..Tas|
00007970 6b 20 69 6e 74 65 72 61 63 74 69 6f 6e 20 72 6f |k interaction ro|
00007980 75 74 69 6e 65 73 0a 23 49 6e 64 65 6e 74 20 32 |utines.#Indent 2|
00007990 0a 23 54 61 62 6c 65 20 43 6f 6c 75 6d 6e 73 20 |.#Table Columns |
000079a0 33 0a 3c 46 4e 74 61 73 6b 6e 61 6d 65 3e 0a 3c |3.<FNtaskname>.<|
000079b0 46 4e 77 69 6e 64 6f 77 74 61 73 6b 3e 0a 3c 46 |FNwindowtask>.<F|
000079c0 4e 66 69 6e 64 74 61 73 6b 3e 0a 3c 46 4e 72 65 |Nfindtask>.<FNre|
000079d0 61 64 74 61 73 6b 73 74 72 69 6e 67 3e 0a 3c 50 |adtaskstring>.<P|
000079e0 52 4f 43 72 65 61 64 74 61 73 6b 61 72 65 61 3e |ROCreadtaskarea>|
000079f0 0a 3c 46 4e 62 61 63 6b 6f 66 77 69 6e 73 74 61 |.<FNbackofwinsta|
00007a00 63 6b 3e 0a 3c 46 4e 77 69 6e 73 74 61 63 6b 6e |ck>.<FNwinstackn|
00007a10 65 78 74 3e 0a 23 45 6e 64 54 61 62 6c 65 0a 23 |ext>.#EndTable.#|
00007a20 49 6e 64 65 6e 74 0a 0a 43 61 72 65 74 20 61 6e |Indent..Caret an|
00007a30 64 20 70 6f 69 6e 74 65 72 20 63 6f 6e 74 72 6f |d pointer contro|
00007a40 6c 20 72 6f 75 74 69 6e 65 73 0a 23 49 6e 64 65 |l routines.#Inde|
00007a50 6e 74 20 32 0a 23 54 61 62 6c 65 20 43 6f 6c 75 |nt 2.#Table Colu|
00007a60 6d 6e 73 20 32 0a 3c 50 52 4f 43 73 65 74 63 61 |mns 2.<PROCsetca|
00007a70 72 65 74 65 6e 64 3e 0a 3c 50 52 4f 43 73 65 74 |retend>.<PROCset|
00007a80 63 61 72 65 74 70 6f 73 3e 0a 3c 50 52 4f 43 67 |caretpos>.<PROCg|
00007a90 65 74 63 61 72 65 74 70 6f 73 3e 0a 3c 50 52 4f |etcaretpos>.<PRO|
00007aa0 43 67 65 74 70 74 72 70 6f 73 3e 0a 23 45 6e 64 |Cgetptrpos>.#End|
00007ab0 54 61 62 6c 65 0a 23 49 6e 64 65 6e 74 0a 0a 43 |Table.#Indent..C|
00007ac0 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 73 65 74 |onfiguration set|
00007ad0 74 69 6e 67 73 20 63 6f 6e 74 72 6f 6c 0a 23 49 |tings control.#I|
00007ae0 6e 64 65 6e 74 20 32 0a 23 54 61 62 6c 65 20 43 |ndent 2.#Table C|
00007af0 6f 6c 75 6d 6e 73 20 32 0a 3c 46 4e 72 65 61 64 |olumns 2.<FNread|
00007b00 63 6d 6f 73 3e 0a 3c 50 52 4f 43 77 72 69 74 65 |cmos>.<PROCwrite|
00007b10 63 6d 6f 73 3e 0a 23 45 6e 64 54 61 62 6c 65 0a |cmos>.#EndTable.|
00007b20 23 49 6e 64 65 6e 74 0a 0a 53 74 61 74 75 73 20 |#Indent..Status |
00007b30 66 69 6c 65 20 63 6f 6e 74 72 6f 6c 20 72 6f 75 |file control rou|
00007b40 74 69 6e 65 73 0a 23 49 6e 64 65 6e 74 20 32 0a |tines.#Indent 2.|
00007b50 23 54 61 62 6c 65 20 43 6f 6c 75 6d 6e 73 20 33 |#Table Columns 3|
00007b60 0a 3c 50 52 4f 43 6d 61 6b 65 73 74 61 74 75 73 |.<PROCmakestatus|
00007b70 66 69 6c 65 3e 0a 3c 50 52 4f 43 63 6c 6f 73 65 |file>.<PROCclose|
00007b80 73 74 61 74 75 73 66 69 6c 65 3e 0a 3c 46 4e 72 |statusfile>.<FNr|
00007b90 65 61 64 73 74 61 74 75 73 66 69 6c 65 3e 0a 3c |eadstatusfile>.<|
00007ba0 50 52 4f 43 73 74 61 74 75 73 70 75 74 3e 0a 3c |PROCstatusput>.<|
00007bb0 50 52 4f 43 73 74 61 74 75 73 6f 70 74 69 6f 6e |PROCstatusoption|
00007bc0 3e 0a 3c 50 52 4f 43 73 74 61 74 75 73 66 6c 61 |>.<PROCstatusfla|
00007bd0 67 3e 0a 3c 50 52 4f 43 73 74 61 74 75 73 6e 65 |g>.<PROCstatusne|
00007be0 78 74 3e 0a 3c 46 4e 73 74 61 74 75 73 67 65 74 |xt>.<FNstatusget|
00007bf0 3e 0a 3c 46 4e 73 74 61 74 75 73 67 65 74 76 3e |>.<FNstatusgetv>|
00007c00 0a 3c 46 4e 73 74 61 74 75 73 67 65 74 66 6c 61 |.<FNstatusgetfla|
00007c10 67 3e 0a 23 45 6e 64 54 61 62 6c 65 0a 23 49 6e |g>.#EndTable.#In|
00007c20 64 65 6e 74 0a 0a 3c 49 6e 66 6f 72 6d 61 74 69 |dent..<Informati|
00007c30 6f 6e 3d 3e 69 6e 66 6f 3e 20 6f 6e 20 57 69 6d |on=>info> on Wim|
00007c40 70 4c 69 62 0a 00 00 00 44 41 54 41 89 04 00 00 |pLib....DATA....|
00007c50 4d 65 6e 75 20 63 6f 6e 74 72 6f 6c 20 73 74 72 |Menu control str|
00007c60 69 6e 67 73 0a 42 4e 46 20 64 65 66 69 6e 65 73 |ings.BNF defines|
00007c70 20 61 73 20 28 2f 20 69 73 20 4f 52 2c 20 7c 20 | as (/ is OR, | |
00007c80 69 73 20 7c 29 20 3a 0a 4d 65 6e 75 09 3a 3a 3d |is |) :.Menu.::=|
00007c90 09 5c 3c 54 69 74 6c 65 3e 2f 5c 3c 4f 70 74 69 |.\<Title>/\<Opti|
00007ca0 6f 6e 3e 0a 4f 70 74 69 6f 6e 09 3a 3a 3d 09 5c |on>.Option.::=.\|
00007cb0 3c 49 74 65 6d 3e 2f 5c 3c 49 74 65 6d 3e 7b 66 |<Item>/\<Item>{f|
00007cc0 43 6f 64 65 7d 7c 7b 66 7d 5c 3c 4f 70 74 69 6f |Code}|{f}\<Optio|
00007cd0 6e 3e 0a 49 74 65 6d 09 3a 3a 3d 09 5c 3c 4e 61 |n>.Item.::=.\<Na|
00007ce0 6d 65 3e 2f 5c 3c 4e 61 6d 65 3e 7b 66 43 6f 64 |me>/\<Name>{fCod|
00007cf0 65 7d 5d 7b 66 7d 5c 3c 46 6c 61 67 73 3e 0a 46 |e}]{f}\<Flags>.F|
00007d00 6c 61 67 73 09 3a 3a 3d 09 5c 3c 46 6c 61 67 3e |lags.::=.\<Flag>|
00007d10 2f 5c 3c 46 6c 61 67 3e 7b 66 43 6f 64 65 7d 2c |/\<Flag>{fCode},|
00007d20 7b 66 7d 5c 3c 46 6c 61 67 73 3e 0a 46 6c 61 67 |{f}\<Flags>.Flag|
00007d30 09 3a 3a 3d 09 7b 66 43 6f 64 65 7d 54 7b 66 7d |.::=.{fCode}T{f}|
00007d40 2f 7b 66 43 6f 64 65 7d 44 7b 66 7d 2f 7b 66 43 |/{fCode}D{f}/{fC|
00007d50 6f 64 65 7d 57 7b 66 7d 2f 7b 66 43 6f 64 65 7d |ode}W{f}/{fCode}|
00007d60 4d 7b 66 7d 2f 7b 66 43 6f 64 65 7d 53 7b 66 7d |M{f}/{fCode}S{f}|
00007d70 2f 7b 66 43 6f 64 65 7d 4b 7b 66 7d 3c 5c 3c 6b |/{fCode}K{f}<\<k|
00007d80 65 79 5c 3e 3d 3e 2e 6b 65 79 73 3e 2f 7b 66 43 |ey\>=>.keys>/{fC|
00007d90 6f 64 65 7d 3e 7b 66 7d 5c 3c 4d 65 6e 75 25 3e |ode}>{f}\<Menu%>|
00007da0 2f 7b 66 43 6f 64 65 7d 7d 7b 66 7d 5c 3c 53 70 |/{fCode}}{f}\<Sp|
00007db0 72 69 74 65 3e 0a 0a 43 6f 6d 6d 61 20 69 73 20 |rite>..Comma is |
00007dc0 6e 6f 74 20 72 65 71 75 69 72 65 64 20 69 66 20 |not required if |
00007dd0 73 69 6e 67 6c 65 20 6c 65 74 74 65 72 20 66 6c |single letter fl|
00007de0 61 67 73 20 75 73 65 64 2e 20 53 70 72 69 74 65 |ags used. Sprite|
00007df0 20 69 73 20 69 6e 20 57 69 6d 70 20 70 6f 6f 6c | is in Wimp pool|
00007e00 20 61 6e 64 20 69 66 20 69 74 20 64 6f 65 73 20 | and if it does |
00007e10 6e 6f 74 20 73 74 61 72 74 20 77 69 74 68 20 73 |not start with s|
00007e20 6d 20 74 68 65 6e 20 69 73 20 73 68 72 75 6e 6b |m then is shrunk|
00007e30 20 74 6f 20 68 61 6c 66 20 73 69 7a 65 2e 0a 0a | to half size...|
00007e40 45 78 61 6d 70 6c 65 20 3a 20 7b 66 43 6f 64 65 |Example : {fCode|
00007e50 7d 41 70 70 6c 69 63 7c 49 6e 66 6f 5d 3e 69 6e |}Applic|Info]>in|
00007e60 66 6f 62 6f 78 25 7c 51 75 69 74 7b 66 7d 0a 0a |fobox%|Quit{f}..|
00007e70 4d 65 6e 75 25 20 69 73 20 70 6f 69 6e 74 65 72 |Menu% is pointer|
00007e80 20 74 6f 20 77 69 6e 64 6f 77 2f 6d 65 6e 75 20 | to window/menu |
00007e90 73 74 72 75 63 74 75 72 65 2e 0a 0a 54 20 66 6f |structure...T fo|
00007ea0 72 20 74 69 63 6b 65 64 0a 44 20 66 6f 72 20 64 |r ticked.D for d|
00007eb0 6f 74 74 65 64 20 75 6e 64 65 72 6e 65 61 74 68 |otted underneath|
00007ec0 0a 57 20 66 6f 72 20 77 72 69 74 61 62 6c 65 0a |.W for writable.|
00007ed0 4d 20 66 6f 72 20 6d 65 73 73 61 67 65 20 77 68 |M for message wh|
00007ee0 65 6e 20 6f 70 65 6e 69 6e 67 0a 53 20 66 6f 72 |en opening.S for|
00007ef0 20 73 68 61 64 65 64 0a 4b 20 66 6f 72 20 6b 65 | shaded.K for ke|
00007f00 79 62 6f 61 72 64 20 73 68 6f 72 74 63 75 74 20 |yboard shortcut |
00007f10 28 66 6f 6c 6c 6f 77 69 6e 67 29 0a 5c 3e 20 66 |(following).\> f|
00007f20 6f 6c 6c 6f 77 65 64 20 62 79 20 76 61 72 69 61 |ollowed by varia|
00007f30 62 6c 65 20 66 6f 72 20 73 75 62 2d 6d 65 6e 75 |ble for sub-menu|
00007f40 20 28 7b 66 43 6f 64 65 7d 49 74 65 6d 5d 3e 73 | ({fCode}Item]>s|
00007f50 75 62 6d 65 6e 75 25 7c 7b 66 7d 29 0a 7d 20 66 |ubmenu%|{f}).} f|
00007f60 6f 6c 6c 6f 77 65 64 20 62 79 20 61 20 73 70 72 |ollowed by a spr|
00007f70 69 74 65 20 6e 61 6d 65 20 28 7b 66 43 6f 64 65 |ite name ({fCode|
00007f80 7d 49 74 65 6d 5d 7d 73 70 72 69 74 65 7c 7b 66 |}Item]}sprite|{f|
00007f90 7d 29 0a 23 53 75 62 70 61 67 65 20 6b 65 79 73 |}).#Subpage keys|
00007fa0 0a 46 4e 63 72 65 61 74 65 6d 65 6e 75 20 6b 65 |.FNcreatemenu ke|
00007fb0 79 20 73 68 6f 72 74 2d 63 75 74 73 0a 4b 65 79 |y short-cuts.Key|
00007fc0 73 20 6d 61 79 20 62 65 20 3a 0a 23 49 6e 64 65 |s may be :.#Inde|
00007fd0 6e 74 20 32 3b 54 61 62 6c 65 20 43 6f 6c 75 6d |nt 2;Table Colum|
00007fe0 6e 73 20 34 0a 46 31 2d 46 31 32 0a 45 73 63 0a |ns 4.F1-F12.Esc.|
00007ff0 44 65 6c 0a 49 6e 73 0a 45 6e 64 0a 48 6f 6d 0a |Del.Ins.End.Hom.|
00008000 43 70 79 0a 50 72 74 0a 54 61 62 0a 52 65 74 0a |Cpy.Prt.Tab.Ret.|
00008010 23 45 6e 64 54 61 62 6c 65 0a 23 49 6e 64 65 6e |#EndTable.#Inden|
00008020 74 0a 0a 41 6e 79 74 68 69 6e 67 20 70 72 65 66 |t..Anything pref|
00008030 69 78 65 64 20 62 79 20 5e 2c 20 a4 20 6f 72 20 |ixed by ^, . or |
00008040 a4 5e 2e 20 54 68 65 20 75 70 20 61 72 72 6f 77 |.^. The up arrow|
00008050 20 77 69 6c 6c 20 62 65 20 73 75 62 73 74 69 74 | will be substit|
00008060 75 74 65 64 20 66 6f 72 20 a4 20 77 68 65 6e 20 |uted for . when |
00008070 63 72 65 61 74 69 6e 67 20 6d 65 6e 75 73 2e 20 |creating menus. |
00008080 57 68 65 6e 20 79 6f 75 20 64 65 63 6f 64 65 20 |When you decode |
00008090 6d 65 6e 75 73 20 6b 65 79 73 74 72 6f 6b 65 73 |menus keystrokes|
000080a0 20 77 69 6c 6c 20 62 65 20 72 65 6d 6f 76 65 64 | will be removed|
000080b0 20 66 72 6f 6d 20 74 68 65 20 3c 46 4e 64 65 63 | from the <FNdec|
000080c0 6f 64 65 6d 65 6e 75 3e 20 73 74 72 69 6e 67 2e |odemenu> string.|
000080d0 0a 00 00 00 44 41 54 41 41 00 00 00 54 6f 67 67 |....DATAA...Togg|
000080e0 6c 65 20 76 61 6c 75 65 73 0a 56 61 6c 75 65 09 |le values.Value.|
000080f0 4d 65 61 6e 69 6e 67 0a 23 4c 69 6e 65 0a 30 09 |Meaning.#Line.0.|
00008100 55 6e 73 65 74 0a 31 09 53 65 74 0a 32 09 54 6f |Unset.1.Set.2.To|
00008110 67 67 6c 65 0a 00 00 00 44 41 54 41 55 01 00 00 |ggle....DATAU...|
00008120 50 52 4f 43 72 65 61 64 68 65 6c 70 20 66 6f 72 |PROCreadhelp for|
00008130 6d 61 74 0a 23 57 72 61 70 20 4f 66 66 0a 4d 61 |mat.#Wrap Off.Ma|
00008140 69 6e 20 77 69 6e 64 6f 77 73 20 3a 0a 23 49 6e |in windows :.#In|
00008150 64 65 6e 74 20 32 0a 5c 7b 20 77 69 6e 64 6f 77 |dent 2.\{ window|
00008160 2c 20 68 65 6c 70 20 6d 65 73 73 61 67 65 20 66 |, help message f|
00008170 6f 72 20 6e 6f 20 69 63 6f 6e 0a 20 20 5c 7b 20 |or no icon. \{ |
00008180 69 63 6f 6e 20 6e 75 6d 62 65 72 2c 20 6d 65 73 |icon number, mes|
00008190 73 61 67 65 20 7d 20 72 65 70 65 61 74 65 64 0a |sage } repeated.|
000081a0 7d 20 72 65 70 65 61 74 65 64 0a 2d 32 2c 20 6d |} repeated.-2, m|
000081b0 65 73 73 61 67 65 20 66 6f 72 20 69 63 6f 6e 20 |essage for icon |
000081c0 62 61 72 20 7d 0a 2d 31 2c 2d 31 20 74 6f 20 65 |bar }.-1,-1 to e|
000081d0 6e 64 0a 23 49 6e 64 65 6e 74 0a 0a 46 6f 72 6d |nd.#Indent..Form|
000081e0 61 74 20 66 6f 72 20 6d 65 6e 75 20 68 65 6c 70 |at for menu help|
000081f0 20 3a 0a 23 49 6e 64 65 6e 74 20 32 0a 5c 7b 20 | :.#Indent 2.\{ |
00008200 6d 65 6e 75 2c 20 2d 31 2c 2d 31 2c 2d 31 0a 09 |menu, -1,-1,-1..|
00008210 5c 7b 20 6f 70 74 31 2c 6f 70 74 32 2c 6f 70 74 |\{ opt1,opt2,opt|
00008220 33 2c 68 65 6c 70 0a 6f 72 09 2d 31 2c 73 74 72 |3,help.or.-1,str|
00008230 69 6e 67 2c 2d 31 2c 68 65 6c 70 20 7d 20 72 65 |ing,-1,help } re|
00008240 70 65 61 74 65 64 0a 7d 20 72 65 70 65 61 74 65 |peated.} repeate|
00008250 64 0a 2d 32 2c 2d 32 2c 2d 32 2c 2d 32 20 74 6f |d.-2,-2,-2,-2 to|
00008260 20 65 6e 64 0a 23 49 6e 64 65 6e 74 0a 00 00 00 | end.#Indent....|
00008270 44 41 54 41 33 03 00 00 57 69 6d 70 4c 69 62 20 |DATA3...WimpLib |
00008280 68 65 6c 70 0a 23 41 6c 69 67 6e 20 43 65 6e 74 |help.#Align Cent|
00008290 72 65 0a 7b 66 68 33 7d 4a 46 53 68 61 72 65 64 |re.{fh3}JFShared|
000082a0 20 57 69 6d 70 4c 69 62 20 76 31 2e 37 31 7b 66 | WimpLib v1.71{f|
000082b0 7d 0a 23 41 6c 69 67 6e 20 4c 65 66 74 0a 0a 54 |}.#Align Left..T|
000082c0 68 65 20 57 69 6d 70 20 4c 69 62 72 61 72 79 20 |he Wimp Library |
000082d0 69 73 20 61 20 42 61 73 69 63 20 4c 69 62 72 61 |is a Basic Libra|
000082e0 72 79 20 66 69 6c 65 20 77 68 69 63 68 20 70 72 |ry file which pr|
000082f0 6f 76 69 64 65 73 20 73 69 6d 70 6c 65 20 70 72 |ovides simple pr|
00008300 6f 63 65 64 75 72 65 20 63 61 6c 6c 73 20 74 6f |ocedure calls to|
00008310 20 69 6d 70 6c 65 6d 65 6e 74 20 57 69 6d 70 20 | implement Wimp |
00008320 6f 70 65 72 61 74 69 6f 6e 73 2e 20 49 6e 20 63 |operations. In c|
00008330 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 |onjunction with |
00008340 74 68 65 20 4a 46 53 68 61 72 65 64 20 73 6b 65 |the JFShared ske|
00008350 6c 65 74 6f 6e 20 61 70 70 6c 69 63 61 74 69 6f |leton applicatio|
00008360 6e 20 74 68 69 73 20 70 72 6f 76 69 64 65 73 20 |n this provides |
00008370 61 20 76 65 72 79 20 73 69 6d 70 6c 65 20 77 61 |a very simple wa|
00008380 79 20 6f 66 20 63 72 65 61 74 69 6e 67 20 61 70 |y of creating ap|
00008390 70 6c 69 63 61 74 69 6f 6e 73 2e 20 54 68 69 73 |plications. This|
000083a0 20 68 65 6c 70 20 66 69 6c 65 20 64 65 74 61 69 | help file detai|
000083b0 6c 73 20 74 68 65 20 72 6f 75 74 69 6e 65 73 20 |ls the routines |
000083c0 70 72 6f 76 69 64 65 64 20 69 6e 20 57 69 6d 70 |provided in Wimp|
000083d0 4c 69 62 20 77 69 74 68 20 64 65 73 63 72 69 70 |Lib with descrip|
000083e0 74 69 6f 6e 73 20 6f 66 20 74 68 65 20 69 6d 70 |tions of the imp|
000083f0 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 |lementation of t|
00008400 68 65 6d 2e 0a 0a 54 68 65 20 57 69 6d 70 4c 69 |hem...The WimpLi|
00008410 62 72 61 72 79 20 69 73 20 72 65 66 65 72 65 6e |brary is referen|
00008420 63 65 64 20 62 79 20 5c 3c 42 61 73 69 63 4c 69 |ced by \<BasicLi|
00008430 62 72 61 72 79 24 46 69 6c 65 3e 20 61 6e 64 20 |brary$File> and |
00008440 73 68 6f 75 6c 64 20 62 65 20 6c 6f 61 64 65 64 |should be loaded|
00008450 20 77 69 74 68 20 3a 0a 7b 66 43 6f 64 65 7d 4c | with :.{fCode}L|
00008460 49 42 52 41 52 59 20 22 5c 3c 42 61 73 69 63 4c |IBRARY "\<BasicL|
00008470 69 62 72 61 72 79 24 46 69 6c 65 3e 22 3a 50 52 |ibrary$File>":PR|
00008480 4f 43 69 6e 69 74 6c 69 62 72 61 72 79 7b 66 7d |OCinitlibrary{f}|
00008490 0a 0a 54 68 65 20 4a 46 53 68 61 72 65 64 20 61 |..The JFShared a|
000084a0 70 70 6c 69 63 61 74 69 6f 6e 20 69 73 20 a9 20 |pplication is . |
000084b0 3c 4a 75 73 74 69 6e 20 46 6c 65 74 63 68 65 72 |<Justin Fletcher|
000084c0 3d 3e 46 69 6c 65 74 79 70 65 73 3a 41 75 74 68 |=>Filetypes:Auth|
000084d0 6f 72 73 5f 4a 75 73 74 69 6e 46 6c 65 74 63 68 |ors_JustinFletch|
000084e0 65 72 3e 2c 20 31 39 39 37 20 61 6e 64 20 69 73 |er>, 1997 and is|
000084f0 20 72 65 6c 65 61 73 65 64 20 69 6e 74 6f 20 74 | released into t|
00008500 68 65 20 50 75 62 6c 69 63 20 44 6f 6d 61 69 6e |he Public Domain|
00008510 20 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 72 | with the same r|
00008520 65 73 74 72 69 63 74 69 6f 6e 73 20 61 73 20 73 |estrictions as s|
00008530 75 62 73 69 73 74 20 69 6e 20 6d 6f 73 74 20 50 |ubsist in most P|
00008540 44 20 73 6f 66 74 77 61 72 65 2e 20 54 68 69 73 |D software. This|
00008550 20 69 6e 63 6c 75 64 65 73 20 74 68 65 20 66 61 | includes the fa|
00008560 63 74 20 74 68 61 74 20 77 68 65 6e 20 64 69 73 |ct that when dis|
00008570 74 72 69 62 75 74 65 64 20 74 68 65 20 65 6e 74 |tributed the ent|
00008580 69 72 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 |ire application |
00008590 6d 75 73 74 20 72 65 6d 61 69 6e 20 69 6e 74 61 |must remain inta|
000085a0 63 74 2e 00 |ct..|
000085a4 
.