Home » Archimedes archive » Acorn Computing » 1994 08 subscription disc.adf » 9408s » Shareware/Event/Documents/!EShellDoc/TextHelp/Windows

Shareware/Event/Documents/!EShellDoc/TextHelp/Windows

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 Computing » 1994 08 subscription disc.adf » 9408s
Filename: Shareware/Event/Documents/!EShellDoc/TextHelp/Windows
Read OK:
File size: 2843 bytes
Load address: 0000
Exec address: 0000
File contents
FNshell_WindowSetSpriteArea()
Params =>
         int window handle
         int address of sprite area

       <=
         int window handle

--------------------------------------------------------

PROCshell_OpenWindow()
Params =>     
         int window handle
         int full flag
         int front flag

Any panes attached to the window with
PROCshell_AttachPane will be opened
automatically.

--------------------------------------------------------

PROCshell_CloseWindow()
Params =>
         int window handle

Any panes attached to the window with
PROCshell_AttachPane will be closed
automatically.

--------------------------------------------------------

FNshell_MessageWindow()
Params =>
         str message text   
         int cancel flag
         str program name
         str header

       <=
         int result

This routine is useful for OK to quit type
windows. The returned result is 1 if OK
was clicked, 2 if Cancel was selected.

Cancel Flag
FALSE = don't display a CANCEL icon
TRUE  = message window has a CANCEL icon

Program Name
Displayed in the title bar of the
message window

Header
When null then the title bar will read
"Message from AppName". When non-null
the header is displayed instead

--------------------------------------------------------

PROCshell_WindowMoveTo()
Params =>
         int window handle to move
         int x coord to move to
         int y coord to move to

See also PROCshell_WindowMoveToIcon.

--------------------------------------------------------

PROCshell_WindowMoveToIcon()
Params =>
         int window handle to move
         int window handle containing icon
         int icon handle
         int x offset of moved window from icon
         int y offset of moved window from icon

See also PROCshell_WindowMoveTo.

--------------------------------------------------------

PROCshell_CreateWindow()
Params =>
         str window identifier
         int (ignored on entry)

       <=
         int window handle of newly created window

--------------------------------------------------------

PROCshell_OpenWindowStatic()
Params =>     
         int window handle

The window will be brought to the top
of the stack by this call. The window
must have been created with a call to
PROCshell_CreateWindowStatic - an error
will be generated if this is not the
case.

Any panes attached to the window with
PROCshell_AttachPane will be opened
automatically.

--------------------------------------------------------

PROCshell_CreateWindowStatic()
Params =>
         str window identifier
         int (ignored on entry)

       <=
         int window handle of newly created window

--------------------------------------------------------

PROCshell_WindowRetitle()
Params =>
         int window handle         
         str new title

It is not necessary to make the window title
indirected, but titles longer than 11 characters
will be truncated without warning if it is not.

Attempting to use a title which is longer than
the allocated buffer will again cause truncation.

--------------------------------------------------------

PROCshell_WindowResize()
Params =>
         int  window handle
         int  min x coord of workarea
         int  min y coord of workarea
         int  max x coord of workarea
         int  max y coord of workarea
         bool open flag

--------------------------------------------------------

PROCshell_WindowBringToTop()
Params =>
         int window handle to bring to top

This routine causes a wimp message to be sent to
bring a window to the top. You cannot use this
routine on windows owned by your own task, but
you can use PROCshell_OpenWindow in this case.

It may take several wimp poll events before the
window is opened, however, so you cannot assume
it is actually open immediately after this call.

You can use FNshell_WindowIsOnTop to check the
status of the window after this call.

--------------------------------------------------------

FNshell_WindowIsOnTop()
Params =>
         int  window handle

       <=
         bool TRUE if window is on top, otherwise
              FALSE

This function can be used to discover if the given
window is on top of the stack (i.e. completely
uncovered). It is especially useful after a call
to PROCshell_WindowBringToTop as it may take
several calls to Wimp_Poll before the window is
brought to the top. The window may belong to another
task.

--------------------------------------------------------

FNshell_WindowHasTitleBar()
Params =>
         int  window handle

       <=
         bool TRUE if window has a title bar, otherwise
              FALSE

--------------------------------------------------------

FNshell_WindowGetTitle()
Params =>
         int window handle

       <=
         str window title (null if no title)

--------------------------------------------------------

FNshell_WindowTitleBufferLength()
Params =>
         int window handle

       <=
         int buffer length (12 if title is not
             indirected)

--------------------------------------------------------

FNshell_WindowIsMoveable()
Params =>
         int  window handle

       <=
         bool TRUE if window is moveable, otherwise
              FALSE

--------------------------------------------------------

FNshell_WindowIsAPane()
Params =>
         int  window handle

       <=
         bool TRUE if window is a pane, otherwise
              FALSE

--------------------------------------------------------

FNshell_WindowIsNotBounded()
Params =>
         int  window handle

       <=
         bool TRUE if window may move outside
              the screen area, otherwise FALSE

--------------------------------------------------------

FNshell_WindowTrapsHotKeys()
Params =>
         int  window handle

       <=
         bool TRUE if window traps hot keys,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasBeenToggled()
Params =>
         int  window handle

       <=
         bool TRUE if window has been toggled to
              full size, otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasInputFocus()
Params =>
         int  window handle

       <=
         bool TRUE if window has the input focus,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasBackIcon()
Params =>
         int  window handle

       <=
         bool TRUE if window has a send to back icon,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasCloseIcon()
Params =>
         int  window handle

       <=
         bool TRUE if window has a close icon,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasToggleIcon()
Params =>
         int  window handle

       <=
         bool TRUE if window has a toggle icon,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasVScrollBar()
Params =>
         int  window handle

       <=
         bool TRUE if window has a vertical scroll bar,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasHScrollBar()
Params =>
         int  window handle

       <=
         bool TRUE if window has a horizontal scroll bar,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowHasAdjustSizeIcon()
Params =>
         int  window handle

       <=
         bool TRUE if window has an adjust size icon,
              otherwise FALSE

--------------------------------------------------------

FNshell_WindowIsOpen()
Params =>
         int  window handle

       <=
         bool TRUE if window is open, otherwise
              FALSE

--------------------------------------------------------

PROCshell_WindowToggleBackIcon()
Params =>
         int  window handle

       <=
         int updated window handle

Adds a 'Back icon' to a window if it doesn't
have one, removes it if it does. Also redisplays
window in its new state if it is open.

--------------------------------------------------------

PROCshell_WindowToggleCloseIcon()
Params =>
         int  window handle

       <=
         int updated window handle

Adds a 'Close icon' to a window if it doesn't
have one, removes it if it does. Also redisplays
window in its new state if it is open.

--------------------------------------------------------

PROCshell_WindowToggleTitleBar()
Params =>
         int  window handle

       \<=
         int updated window handle

Adds a Title bar to a window if it doesn't one,
removes it if it does. Also redisplays window
in its new state if it is open.

--------------------------------------------------------

PROCshell_WindowToggleToggleIcon()
Params =>
         int  window handle

       <=
         int updated window handle

Adds a 'Toggle size icon'  to a window if it
doesn't one, removes it if it does. Also
redisplays window in its new state if it is
open.

--------------------------------------------------------

PROCshell_WindowToggleVScrollBar()
Params =>
         int  window handle

       <=
         int updated window handle

Adds a vertical scroll bar to a window if
it doesn't one, removes it if it does. Also
redisplays window in its new state if it is
open.

--------------------------------------------------------

PROCshell_WindowToggleAdjustSizeicon()
Params =>
         int  window handle

       <=
         int updated window handle

Adds a 'Adjust size icon' to a window if it
doesn't one, removes it if it does. Also
redisplays window in its new state if it is
open.

--------------------------------------------------------

PROCshell_WindowToggleHScrollBar()
Params =>
         int  window handle

       \<=
         int updated window handle

Adds a horizontal scroll bar to a window if
it doesn't one, removes it if it does. Also
redisplays window in its new state if it is
open.

--------------------------------------------------------

FNshell_WindowLoaded()
Params =>
         str  window name (max 11 characters)

       <=
         bool TRUE if template is loaded, otherwise
              FALSE

--------------------------------------------------------
00000000  46 4e 73 68 65 6c 6c 5f  57 69 6e 64 6f 77 53 65  |FNshell_WindowSe|
00000010  74 53 70 72 69 74 65 41  72 65 61 28 29 0a 50 61  |tSpriteArea().Pa|
00000020  72 61 6d 73 20 3d 3e 0a  20 20 20 20 20 20 20 20  |rams =>.        |
00000030  20 69 6e 74 20 77 69 6e  64 6f 77 20 68 61 6e 64  | int window hand|
00000040  6c 65 0a 20 20 20 20 20  20 20 20 20 69 6e 74 20  |le.         int |
00000050  61 64 64 72 65 73 73 20  6f 66 20 73 70 72 69 74  |address of sprit|
00000060  65 20 61 72 65 61 0a 0a  20 20 20 20 20 20 20 3c  |e area..       <|
00000070  3d 0a 20 20 20 20 20 20  20 20 20 69 6e 74 20 77  |=.         int w|
00000080  69 6e 64 6f 77 20 68 61  6e 64 6c 65 0a 0a 2d 2d  |indow handle..--|
00000090  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000c0  2d 2d 2d 2d 2d 2d 0a 0a  50 52 4f 43 73 68 65 6c  |------..PROCshel|
000000d0  6c 5f 4f 70 65 6e 57 69  6e 64 6f 77 28 29 0a 50  |l_OpenWindow().P|
000000e0  61 72 61 6d 73 20 3d 3e  20 20 20 20 20 0a 20 20  |arams =>     .  |
000000f0  20 20 20 20 20 20 20 69  6e 74 20 77 69 6e 64 6f  |       int windo|
00000100  77 20 68 61 6e 64 6c 65  0a 20 20 20 20 20 20 20  |w handle.       |
00000110  20 20 69 6e 74 20 66 75  6c 6c 20 66 6c 61 67 0a  |  int full flag.|
00000120  20 20 20 20 20 20 20 20  20 69 6e 74 20 66 72 6f  |         int fro|
00000130  6e 74 20 66 6c 61 67 0a  0a 41 6e 79 20 70 61 6e  |nt flag..Any pan|
00000140  65 73 20 61 74 74 61 63  68 65 64 20 74 6f 20 74  |es attached to t|
00000150  68 65 20 77 69 6e 64 6f  77 20 77 69 74 68 0a 50  |he window with.P|
00000160  52 4f 43 73 68 65 6c 6c  5f 41 74 74 61 63 68 50  |ROCshell_AttachP|
00000170  61 6e 65 20 77 69 6c 6c  20 62 65 20 6f 70 65 6e  |ane will be open|
00000180  65 64 0a 61 75 74 6f 6d  61 74 69 63 61 6c 6c 79  |ed.automatically|
00000190  2e 0a 0a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...-------------|
000001a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 0a 50 52 4f  |-----------..PRO|
000001d0  43 73 68 65 6c 6c 5f 43  6c 6f 73 65 57 69 6e 64  |Cshell_CloseWind|
000001e0  6f 77 28 29 0a 50 61 72  61 6d 73 20 3d 3e 0a 20  |ow().Params =>. |
000001f0  20 20 20 20 20 20 20 20  69 6e 74 20 77 69 6e 64  |        int wind|
00000200  6f 77 20 68 61 6e 64 6c  65 0a 0a 41 6e 79 20 70  |ow handle..Any p|
00000210  61 6e 65 73 20 61 74 74  61 63 68 65 64 20 74 6f  |anes attached to|
00000220  20 74 68 65 20 77 69 6e  64 6f 77 20 77 69 74 68  | the window with|
00000230  0a 50 52 4f 43 73 68 65  6c 6c 5f 41 74 74 61 63  |.PROCshell_Attac|
00000240  68 50 61 6e 65 20 77 69  6c 6c 20 62 65 20 63 6c  |hPane will be cl|
00000250  6f 73 65 64 0a 61 75 74  6f 6d 61 74 69 63 61 6c  |osed.automatical|
00000260  6c 79 2e 0a 0a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ly...-----------|
00000270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000290  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 0a 46  |-------------..F|
000002a0  4e 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 57 69  |Nshell_MessageWi|
000002b0  6e 64 6f 77 28 29 0a 50  61 72 61 6d 73 20 3d 3e  |ndow().Params =>|
000002c0  0a 20 20 20 20 20 20 20  20 20 73 74 72 20 6d 65  |.         str me|
000002d0  73 73 61 67 65 20 74 65  78 74 20 20 20 0a 20 20  |ssage text   .  |
000002e0  20 20 20 20 20 20 20 69  6e 74 20 63 61 6e 63 65  |       int cance|
000002f0  6c 20 66 6c 61 67 0a 20  20 20 20 20 20 20 20 20  |l flag.         |
00000300  73 74 72 20 70 72 6f 67  72 61 6d 20 6e 61 6d 65  |str program name|
00000310  0a 20 20 20 20 20 20 20  20 20 73 74 72 20 68 65  |.         str he|
00000320  61 64 65 72 0a 0a 20 20  20 20 20 20 20 3c 3d 0a  |ader..       <=.|
00000330  20 20 20 20 20 20 20 20  20 69 6e 74 20 72 65 73  |         int res|
00000340  75 6c 74 0a 0a 54 68 69  73 20 72 6f 75 74 69 6e  |ult..This routin|
00000350  65 20 69 73 20 75 73 65  66 75 6c 20 66 6f 72 20  |e is useful for |
00000360  4f 4b 20 74 6f 20 71 75  69 74 20 74 79 70 65 0a  |OK to quit type.|
00000370  77 69 6e 64 6f 77 73 2e  20 54 68 65 20 72 65 74  |windows. The ret|
00000380  75 72 6e 65 64 20 72 65  73 75 6c 74 20 69 73 20  |urned result is |
00000390  31 20 69 66 20 4f 4b 0a  77 61 73 20 63 6c 69 63  |1 if OK.was clic|
000003a0  6b 65 64 2c 20 32 20 69  66 20 43 61 6e 63 65 6c  |ked, 2 if Cancel|
000003b0  20 77 61 73 20 73 65 6c  65 63 74 65 64 2e 0a 0a  | was selected...|
000003c0  43 61 6e 63 65 6c 20 46  6c 61 67 0a 46 41 4c 53  |Cancel Flag.FALS|
000003d0  45 20 3d 20 64 6f 6e 27  74 20 64 69 73 70 6c 61  |E = don't displa|
000003e0  79 20 61 20 43 41 4e 43  45 4c 20 69 63 6f 6e 0a  |y a CANCEL icon.|
000003f0  54 52 55 45 20 20 3d 20  6d 65 73 73 61 67 65 20  |TRUE  = message |
00000400  77 69 6e 64 6f 77 20 68  61 73 20 61 20 43 41 4e  |window has a CAN|
00000410  43 45 4c 20 69 63 6f 6e  0a 0a 50 72 6f 67 72 61  |CEL icon..Progra|
00000420  6d 20 4e 61 6d 65 0a 44  69 73 70 6c 61 79 65 64  |m Name.Displayed|
00000430  20 69 6e 20 74 68 65 20  74 69 74 6c 65 20 62 61  | in the title ba|
00000440  72 20 6f 66 20 74 68 65  0a 6d 65 73 73 61 67 65  |r of the.message|
00000450  20 77 69 6e 64 6f 77 0a  0a 48 65 61 64 65 72 0a  | window..Header.|
00000460  57 68 65 6e 20 6e 75 6c  6c 20 74 68 65 6e 20 74  |When null then t|
00000470  68 65 20 74 69 74 6c 65  20 62 61 72 20 77 69 6c  |he title bar wil|
00000480  6c 20 72 65 61 64 0a 22  4d 65 73 73 61 67 65 20  |l read."Message |
00000490  66 72 6f 6d 20 41 70 70  4e 61 6d 65 22 2e 20 57  |from AppName". W|
000004a0  68 65 6e 20 6e 6f 6e 2d  6e 75 6c 6c 0a 74 68 65  |hen non-null.the|
000004b0  20 68 65 61 64 65 72 20  69 73 20 64 69 73 70 6c  | header is displ|
000004c0  61 79 65 64 20 69 6e 73  74 65 61 64 0a 0a 2d 2d  |ayed instead..--|
000004d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000500  2d 2d 2d 2d 2d 2d 0a 0a  50 52 4f 43 73 68 65 6c  |------..PROCshel|
00000510  6c 5f 57 69 6e 64 6f 77  4d 6f 76 65 54 6f 28 29  |l_WindowMoveTo()|
00000520  0a 50 61 72 61 6d 73 20  3d 3e 0a 20 20 20 20 20  |.Params =>.     |
00000530  20 20 20 20 69 6e 74 20  77 69 6e 64 6f 77 20 68  |    int window h|
00000540  61 6e 64 6c 65 20 74 6f  20 6d 6f 76 65 0a 20 20  |andle to move.  |
00000550  20 20 20 20 20 20 20 69  6e 74 20 78 20 63 6f 6f  |       int x coo|
00000560  72 64 20 74 6f 20 6d 6f  76 65 20 74 6f 0a 20 20  |rd to move to.  |
00000570  20 20 20 20 20 20 20 69  6e 74 20 79 20 63 6f 6f  |       int y coo|
00000580  72 64 20 74 6f 20 6d 6f  76 65 20 74 6f 0a 0a 53  |rd to move to..S|
00000590  65 65 20 61 6c 73 6f 20  50 52 4f 43 73 68 65 6c  |ee also PROCshel|
000005a0  6c 5f 57 69 6e 64 6f 77  4d 6f 76 65 54 6f 49 63  |l_WindowMoveToIc|
000005b0  6f 6e 2e 0a 0a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |on...-----------|
000005c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 0a 50  |-------------..P|
000005f0  52 4f 43 73 68 65 6c 6c  5f 57 69 6e 64 6f 77 4d  |ROCshell_WindowM|
00000600  6f 76 65 54 6f 49 63 6f  6e 28 29 0a 50 61 72 61  |oveToIcon().Para|
00000610  6d 73 20 3d 3e 0a 20 20  20 20 20 20 20 20 20 69  |ms =>.         i|
00000620  6e 74 20 77 69 6e 64 6f  77 20 68 61 6e 64 6c 65  |nt window handle|
00000630  20 74 6f 20 6d 6f 76 65  0a 20 20 20 20 20 20 20  | to move.       |
00000640  20 20 69 6e 74 20 77 69  6e 64 6f 77 20 68 61 6e  |  int window han|
00000650  64 6c 65 20 63 6f 6e 74  61 69 6e 69 6e 67 20 69  |dle containing i|
00000660  63 6f 6e 0a 20 20 20 20  20 20 20 20 20 69 6e 74  |con.         int|
00000670  20 69 63 6f 6e 20 68 61  6e 64 6c 65 0a 20 20 20  | icon handle.   |
00000680  20 20 20 20 20 20 69 6e  74 20 78 20 6f 66 66 73  |      int x offs|
00000690  65 74 20 6f 66 20 6d 6f  76 65 64 20 77 69 6e 64  |et of moved wind|
000006a0  6f 77 20 66 72 6f 6d 20  69 63 6f 6e 0a 20 20 20  |ow from icon.   |
000006b0  20 20 20 20 20 20 69 6e  74 20 79 20 6f 66 66 73  |      int y offs|
000006c0  65 74 20 6f 66 20 6d 6f  76 65 64 20 77 69 6e 64  |et of moved wind|
000006d0  6f 77 20 66 72 6f 6d 20  69 63 6f 6e 0a 0a 53 65  |ow from icon..Se|
000006e0  65 20 61 6c 73 6f 20 50  52 4f 43 73 68 65 6c 6c  |e also PROCshell|
000006f0  5f 57 69 6e 64 6f 77 4d  6f 76 65 54 6f 2e 0a 0a  |_WindowMoveTo...|
00000700  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000730  2d 2d 2d 2d 2d 2d 2d 2d  0a 0a 50 52 4f 43 73 68  |--------..PROCsh|
00000740  65 6c 6c 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |ell_CreateWindow|
00000750  28 29 0a 50 61 72 61 6d  73 20 3d 3e 0a 20 20 20  |().Params =>.   |
00000760  20 20 20 20 20 20 73 74  72 20 77 69 6e 64 6f 77  |      str window|
00000770  20 69 64 65 6e 74 69 66  69 65 72 0a 20 20 20 20  | identifier.    |
00000780  20 20 20 20 20 69 6e 74  20 28 69 67 6e 6f 72 65  |     int (ignore|
00000790  64 20 6f 6e 20 65 6e 74  72 79 29 0a 0a 20 20 20  |d on entry)..   |
000007a0  20 20 20 20 3c 3d 0a 20  20 20 20 20 20 20 20 20  |    <=.         |
000007b0  69 6e 74 20 77 69 6e 64  6f 77 20 68 61 6e 64 6c  |int window handl|
000007c0  65 20 6f 66 20 6e 65 77  6c 79 20 63 72 65 61 74  |e of newly creat|
000007d0  65 64 20 77 69 6e 64 6f  77 0a 0a 2d 2d 2d 2d 2d  |ed window..-----|
000007e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000810  2d 2d 2d 0a 0a 50 52 4f  43 73 68 65 6c 6c 5f 4f  |---..PROCshell_O|
00000820  70 65 6e 57 69 6e 64 6f  77 53 74 61 74 69 63 28  |penWindowStatic(|
00000830  29 0a 50 61 72 61 6d 73  20 3d 3e 20 20 20 20 20  |).Params =>     |
00000840  0a 20 20 20 20 20 20 20  20 20 69 6e 74 20 77 69  |.         int wi|
00000850  6e 64 6f 77 20 68 61 6e  64 6c 65 0a 0a 54 68 65  |ndow handle..The|
00000860  20 77 69 6e 64 6f 77 20  77 69 6c 6c 20 62 65 20  | window will be |
00000870  62 72 6f 75 67 68 74 20  74 6f 20 74 68 65 20 74  |brought to the t|
00000880  6f 70 0a 6f 66 20 74 68  65 20 73 74 61 63 6b 20  |op.of the stack |
00000890  62 79 20 74 68 69 73 20  63 61 6c 6c 2e 20 54 68  |by this call. Th|
000008a0  65 20 77 69 6e 64 6f 77  0a 6d 75 73 74 20 68 61  |e window.must ha|
000008b0  76 65 20 62 65 65 6e 20  63 72 65 61 74 65 64 20  |ve been created |
000008c0  77 69 74 68 20 61 20 63  61 6c 6c 20 74 6f 0a 50  |with a call to.P|
000008d0  52 4f 43 73 68 65 6c 6c  5f 43 72 65 61 74 65 57  |ROCshell_CreateW|
000008e0  69 6e 64 6f 77 53 74 61  74 69 63 20 2d 20 61 6e  |indowStatic - an|
000008f0  20 65 72 72 6f 72 0a 77  69 6c 6c 20 62 65 20 67  | error.will be g|
00000900  65 6e 65 72 61 74 65 64  20 69 66 20 74 68 69 73  |enerated if this|
00000910  20 69 73 20 6e 6f 74 20  74 68 65 0a 63 61 73 65  | is not the.case|
00000920  2e 0a 0a 41 6e 79 20 70  61 6e 65 73 20 61 74 74  |...Any panes att|
00000930  61 63 68 65 64 20 74 6f  20 74 68 65 20 77 69 6e  |ached to the win|
00000940  64 6f 77 20 77 69 74 68  0a 50 52 4f 43 73 68 65  |dow with.PROCshe|
00000950  6c 6c 5f 41 74 74 61 63  68 50 61 6e 65 20 77 69  |ll_AttachPane wi|
00000960  6c 6c 20 62 65 20 6f 70  65 6e 65 64 0a 61 75 74  |ll be opened.aut|
00000970  6f 6d 61 74 69 63 61 6c  6c 79 2e 0a 0a 2d 2d 2d  |omatically...---|
00000980  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000009b0  2d 2d 2d 2d 2d 0a 0a 50  52 4f 43 73 68 65 6c 6c  |-----..PROCshell|
000009c0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 53 74 61  |_CreateWindowSta|
000009d0  74 69 63 28 29 0a 50 61  72 61 6d 73 20 3d 3e 0a  |tic().Params =>.|
000009e0  20 20 20 20 20 20 20 20  20 73 74 72 20 77 69 6e  |         str win|
000009f0  64 6f 77 20 69 64 65 6e  74 69 66 69 65 72 0a 20  |dow identifier. |
00000a00  20 20 20 20 20 20 20 20  69 6e 74 20 28 69 67 6e  |        int (ign|
00000a10  6f 72 65 64 20 6f 6e 20  65 6e 74 72 79 29 0a 0a  |ored on entry)..|
00000a20  20 20 20 20 20 20 20 3c  3d 0a 20 20 20 20 20 20  |       <=.      |
00000a30  20 20 20 69 6e 74 20 77  69 6e 64 6f 77 20 68 61  |   int window ha|
00000a40  6e 64 6c 65 20 6f 66 20  6e 65 77 6c 79 20 63 72  |ndle of newly cr|
00000a50  65 61 74 65 64 20 77 69  6e 64 6f 77 0a 0a 2d 2d  |eated window..--|
00000a60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a90  2d 2d 2d 2d 2d 2d 0a 0a  50 52 4f 43 73 68 65 6c  |------..PROCshel|
00000aa0  6c 5f 57 69 6e 64 6f 77  52 65 74 69 74 6c 65 28  |l_WindowRetitle(|
00000ab0  29 0a 50 61 72 61 6d 73  20 3d 3e 0a 20 20 20 20  |).Params =>.    |
00000ac0  20 20 20 20 20 69 6e 74  20 77 69 6e 64 6f 77 20  |     int window |
00000ad0  68 61 6e 64 6c 65 20 20  20 20 20 20 20 20 20 0a  |handle         .|
00000ae0  20 20 20 20 20 20 20 20  20 73 74 72 20 6e 65 77  |         str new|
00000af0  20 74 69 74 6c 65 0a 0a  49 74 20 69 73 20 6e 6f  | title..It is no|
00000b00  74 20 6e 65 63 65 73 73  61 72 79 20 74 6f 20 6d  |t necessary to m|
00000b10  61 6b 65 20 74 68 65 20  77 69 6e 64 6f 77 20 74  |ake the window t|
00000b20  69 74 6c 65 0a 69 6e 64  69 72 65 63 74 65 64 2c  |itle.indirected,|
00000b30  20 62 75 74 20 74 69 74  6c 65 73 20 6c 6f 6e 67  | but titles long|
00000b40  65 72 20 74 68 61 6e 20  31 31 20 63 68 61 72 61  |er than 11 chara|
00000b50  63 74 65 72 73 0a 77 69  6c 6c 20 62 65 20 74 72  |cters.will be tr|
00000b60  75 6e 63 61 74 65 64 20  77 69 74 68 6f 75 74 20  |uncated without |
00000b70  77 61 72 6e 69 6e 67 20  69 66 20 69 74 20 69 73  |warning if it is|
00000b80  20 6e 6f 74 2e 0a 0a 41  74 74 65 6d 70 74 69 6e  | not...Attemptin|
00000b90  67 20 74 6f 20 75 73 65  20 61 20 74 69 74 6c 65  |g to use a title|
00000ba0  20 77 68 69 63 68 20 69  73 20 6c 6f 6e 67 65 72  | which is longer|
00000bb0  20 74 68 61 6e 0a 74 68  65 20 61 6c 6c 6f 63 61  | than.the alloca|
00000bc0  74 65 64 20 62 75 66 66  65 72 20 77 69 6c 6c 20  |ted buffer will |
00000bd0  61 67 61 69 6e 20 63 61  75 73 65 20 74 72 75 6e  |again cause trun|
00000be0  63 61 74 69 6f 6e 2e 0a  0a 2d 2d 2d 2d 2d 2d 2d  |cation...-------|
00000bf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c20  2d 0a 0a 50 52 4f 43 73  68 65 6c 6c 5f 57 69 6e  |-..PROCshell_Win|
00000c30  64 6f 77 52 65 73 69 7a  65 28 29 0a 50 61 72 61  |dowResize().Para|
00000c40  6d 73 20 3d 3e 0a 20 20  20 20 20 20 20 20 20 69  |ms =>.         i|
00000c50  6e 74 20 20 77 69 6e 64  6f 77 20 68 61 6e 64 6c  |nt  window handl|
00000c60  65 0a 20 20 20 20 20 20  20 20 20 69 6e 74 20 20  |e.         int  |
00000c70  6d 69 6e 20 78 20 63 6f  6f 72 64 20 6f 66 20 77  |min x coord of w|
00000c80  6f 72 6b 61 72 65 61 0a  20 20 20 20 20 20 20 20  |orkarea.        |
00000c90  20 69 6e 74 20 20 6d 69  6e 20 79 20 63 6f 6f 72  | int  min y coor|
00000ca0  64 20 6f 66 20 77 6f 72  6b 61 72 65 61 0a 20 20  |d of workarea.  |
00000cb0  20 20 20 20 20 20 20 69  6e 74 20 20 6d 61 78 20  |       int  max |
00000cc0  78 20 63 6f 6f 72 64 20  6f 66 20 77 6f 72 6b 61  |x coord of worka|
00000cd0  72 65 61 0a 20 20 20 20  20 20 20 20 20 69 6e 74  |rea.         int|
00000ce0  20 20 6d 61 78 20 79 20  63 6f 6f 72 64 20 6f 66  |  max y coord of|
00000cf0  20 77 6f 72 6b 61 72 65  61 0a 20 20 20 20 20 20  | workarea.      |
00000d00  20 20 20 62 6f 6f 6c 20  6f 70 65 6e 20 66 6c 61  |   bool open fla|
00000d10  67 0a 0a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |g..-------------|
00000d20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 0a 50 52 4f  |-----------..PRO|
00000d50  43 73 68 65 6c 6c 5f 57  69 6e 64 6f 77 42 72 69  |Cshell_WindowBri|
00000d60  6e 67 54 6f 54 6f 70 28  29 0a 50 61 72 61 6d 73  |ngToTop().Params|
00000d70  20 3d 3e 0a 20 20 20 20  20 20 20 20 20 69 6e 74  | =>.         int|
00000d80  20 77 69 6e 64 6f 77 20  68 61 6e 64 6c 65 20 74  | window handle t|
00000d90  6f 20 62 72 69 6e 67 20  74 6f 20 74 6f 70 0a 0a  |o bring to top..|
00000da0  54 68 69 73 20 72 6f 75  74 69 6e 65 20 63 61 75  |This routine cau|
00000db0  73 65 73 20 61 20 77 69  6d 70 20 6d 65 73 73 61  |ses a wimp messa|
00000dc0  67 65 20 74 6f 20 62 65  20 73 65 6e 74 20 74 6f  |ge to be sent to|
00000dd0  0a 62 72 69 6e 67 20 61  20 77 69 6e 64 6f 77 20  |.bring a window |
00000de0  74 6f 20 74 68 65 20 74  6f 70 2e 20 59 6f 75 20  |to the top. You |
00000df0  63 61 6e 6e 6f 74 20 75  73 65 20 74 68 69 73 0a  |cannot use this.|
00000e00  72 6f 75 74 69 6e 65 20  6f 6e 20 77 69 6e 64 6f  |routine on windo|
00000e10  77 73 20 6f 77 6e 65 64  20 62 79 20 79 6f 75 72  |ws owned by your|
00000e20  20 6f 77 6e 20 74 61 73  6b 2c 20 62 75 74 0a 79  | own task, but.y|
00000e30  6f 75 20 63 61 6e 20 75  73 65 20 50 52 4f 43 73  |ou can use PROCs|
00000e40  68 65 6c 6c 5f 4f 70 65  6e 57 69 6e 64 6f 77 20  |hell_OpenWindow |
00000e50  69 6e 20 74 68 69 73 20  63 61 73 65 2e 0a 0a 49  |in this case...I|
00000e60  74 20 6d 61 79 20 74 61  6b 65 20 73 65 76 65 72  |t may take sever|
00000e70  61 6c 20 77 69 6d 70 20  70 6f 6c 6c 20 65 76 65  |al wimp poll eve|
00000e80  6e 74 73 20 62 65 66 6f  72 65 20 74 68 65 0a 77  |nts before the.w|
00000e90  69 6e 64 6f 77 20 69 73  20 6f 70 65 6e 65 64 2c  |indow is opened,|
00000ea0  20 68 6f 77 65 76 65 72  2c 20 73 6f 20 79 6f 75  | however, so you|
00000eb0  20 63 61 6e 6e 6f 74 20  61 73 73 75 6d 65 0a 69  | cannot assume.i|
00000ec0  74 20 69 73 20 61 63 74  75 61 6c 6c 79 20 6f 70  |t is actually op|
00000ed0  65 6e 20 69 6d 6d 65 64  69 61 74 65 6c 79 20 61  |en immediately a|
00000ee0  66 74 65 72 20 74 68 69  73 20 63 61 6c 6c 2e 0a  |fter this call..|
00000ef0  0a 59 6f 75 20 63 61 6e  20 75 73 65 20 46 4e 73  |.You can use FNs|
00000f00  68 65 6c 6c 5f 57 69 6e  64 6f 77 49 73 4f 6e 54  |hell_WindowIsOnT|
00000f10  6f 70 20 74 6f 20 63 68  65 63 6b 20 74 68 65 0a  |op to check the.|
00000f20  73 74 61 74 75 73 20 6f  66 20 74 68 65 20 77 69  |status of the wi|
00000f30  6e 64 6f 77 20 61 66 74  65 72 20 74 68 69 73 20  |ndow after this |
00000f40  63 61 6c 6c 2e 0a 0a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |call...---------|
00000f50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000f70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00000f80  0a 46 4e 73 68 65 6c 6c  5f 57 69 6e 64 6f 77 49  |.FNshell_WindowI|
00000f90  73 4f 6e 54 6f 70 28 29  0a 50 61 72 61 6d 73 20  |sOnTop().Params |
00000fa0  3d 3e 0a 20 20 20 20 20  20 20 20 20 69 6e 74 20  |=>.         int |
00000fb0  20 77 69 6e 64 6f 77 20  68 61 6e 64 6c 65 0a 0a  | window handle..|
00000fc0  20 20 20 20 20 20 20 3c  3d 0a 20 20 20 20 20 20  |       <=.      |
00000fd0  20 20 20 62 6f 6f 6c 20  54 52 55 45 20 69 66 20  |   bool TRUE if |
00000fe0  77 69 6e 64 6f 77 20 69  73 20 6f 6e 20 74 6f 70  |window is on top|
00000ff0  2c 20 6f 74 68 65 72 77  69 73 65 0a 20 20 20 20  |, otherwise.    |
00001000  20 20 20 20 20 20 20 20  20 20 46 41 4c 53 45 0a  |          FALSE.|
00001010  0a 54 68 69 73 20 66 75  6e 63 74 69 6f 6e 20 63  |.This function c|
00001020  61 6e 20 62 65 20 75 73  65 64 20 74 6f 20 64 69  |an be used to di|
00001030  73 63 6f 76 65 72 20 69  66 20 74 68 65 20 67 69  |scover if the gi|
00001040  76 65 6e 0a 77 69 6e 64  6f 77 20 69 73 20 6f 6e  |ven.window is on|
00001050  20 74 6f 70 20 6f 66 20  74 68 65 20 73 74 61 63  | top of the stac|
00001060  6b 20 28 69 2e 65 2e 20  63 6f 6d 70 6c 65 74 65  |k (i.e. complete|
00001070  6c 79 0a 75 6e 63 6f 76  65 72 65 64 29 2e 20 49  |ly.uncovered). I|
00001080  74 20 69 73 20 65 73 70  65 63 69 61 6c 6c 79 20  |t is especially |
00001090  75 73 65 66 75 6c 20 61  66 74 65 72 20 61 20 63  |useful after a c|
000010a0  61 6c 6c 0a 74 6f 20 50  52 4f 43 73 68 65 6c 6c  |all.to PROCshell|
000010b0  5f 57 69 6e 64 6f 77 42  72 69 6e 67 54 6f 54 6f  |_WindowBringToTo|
000010c0  70 20 61 73 20 69 74 20  6d 61 79 20 74 61 6b 65  |p as it may take|
000010d0  0a 73 65 76 65 72 61 6c  20 63 61 6c 6c 73 20 74  |.several calls t|
000010e0  6f 20 57 69 6d 70 5f 50  6f 6c 6c 20 62 65 66 6f  |o Wimp_Poll befo|
000010f0  72 65 20 74 68 65 20 77  69 6e 64 6f 77 20 69 73  |re the window is|
00001100  0a 62 72 6f 75 67 68 74  20 74 6f 20 74 68 65 20  |.brought to the |
00001110  74 6f 70 2e 20 54 68 65  20 77 69 6e 64 6f 77 20  |top. The window |
00001120  6d 61 79 20 62 65 6c 6f  6e 67 20 74 6f 20 61 6e  |may belong to an|
00001130  6f 74 68 65 72 0a 74 61  73 6b 2e 0a 0a 2d 2d 2d  |other.task...---|
00001140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001170  2d 2d 2d 2d 2d 0a 0a 46  4e 73 68 65 6c 6c 5f 57  |-----..FNshell_W|
00001180  69 6e 64 6f 77 48 61 73  54 69 74 6c 65 42 61 72  |indowHasTitleBar|
00001190  28 29 0a 50 61 72 61 6d  73 20 3d 3e 0a 20 20 20  |().Params =>.   |
000011a0  20 20 20 20 20 20 69 6e  74 20 20 77 69 6e 64 6f  |      int  windo|
000011b0  77 20 68 61 6e 64 6c 65  0a 0a 20 20 20 20 20 20  |w handle..      |
000011c0  20 3c 3d 0a 20 20 20 20  20 20 20 20 20 62 6f 6f  | <=.         boo|
000011d0  6c 20 54 52 55 45 20 69  66 20 77 69 6e 64 6f 77  |l TRUE if window|
000011e0  20 68 61 73 20 61 20 74  69 74 6c 65 20 62 61 72  | has a title bar|
000011f0  2c 20 6f 74 68 65 72 77  69 73 65 0a 20 20 20 20  |, otherwise.    |
00001200  20 20 20 20 20 20 20 20  20 20 46 41 4c 53 45 0a  |          FALSE.|
00001210  0a 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.---------------|
00001220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001240  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 0a 46 4e 73 68 65  |---------..FNshe|
00001250  6c 6c 5f 57 69 6e 64 6f  77 47 65 74 54 69 74 6c  |ll_WindowGetTitl|
00001260  65 28 29 0a 50 61 72 61  6d 73 20 3d 3e 0a 20 20  |e().Params =>.  |
00001270  20 20 20 20 20 20 20 69  6e 74 20 77 69 6e 64 6f  |       int windo|
00001280  77 20 68 61 6e 64 6c 65  0a 0a 20 20 20 20 20 20  |w handle..      |
00001290  20 3c 3d 0a 20 20 20 20  20 20 20 20 20 73 74 72  | <=.         str|
000012a0  20 77 69 6e 64 6f 77 20  74 69 74 6c 65 20 28 6e  | window title (n|
000012b0  75 6c 6c 20 69 66 20 6e  6f 20 74 69 74 6c 65 29  |ull if no title)|
000012c0  0a 0a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..--------------|
000012d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000012f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 0a 46 4e 73 68  |----------..FNsh|
00001300  65 6c 6c 5f 57 69 6e 64  6f 77 54 69 74 6c 65 42  |ell_WindowTitleB|
00001310  75 66 66 65 72 4c 65 6e  67 74 68 28 29 0a 50 61  |ufferLength().Pa|
00001320  72 61 6d 73 20 3d 3e 0a  20 20 20 20 20 20 20 20  |rams =>.        |
00001330  20 69 6e 74 20 77 69 6e  64 6f 77 20 68 61 6e 64  | int window hand|
00001340  6c 65 0a 0a 20 20 20 20  20 20 20 3c 3d 0a 20 20  |le..       <=.  |
00001350  20 20 20 20 20 20 20 69  6e 74 20 62 75 66 66 65  |       int buffe|
00001360  72 20 6c 65 6e 67 74 68  20 28 31 32 20 69 66 20  |r length (12 if |
00001370  74 69 74 6c 65 20 69 73  20 6e 6f 74 0a 20 20 20  |title is not.   |
00001380  20 20 20 20 20 20 20 20  20 20 69 6e 64 69 72 65  |          indire|
00001390  63 74 65 64 29 0a 0a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |cted)..---------|
000013a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000013c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
000013d0  0a 46 4e 73 68 65 6c 6c  5f 57 69 6e 64 6f 77 49  |.FNshell_WindowI|
000013e0  73 4d 6f 76 65 61 62 6c  65 28 29 0a 50 61 72 61  |sMoveable().Para|
000013f0  6d 73 20 3d 3e 0a 20 20  20 20 20 20 20 20 20 69  |ms =>.         i|
00001400  6e 74 20 20 77 69 6e 64  6f 77 20 68 61 6e 64 6c  |nt  window handl|
00001410  65 0a 0a 20 20 20 20 20  20 20 3c 3d 0a 20 20 20  |e..       <=.   |
00001420  20 20 20 20 20 20 62 6f  6f 6c 20 54 52 55 45 20  |      bool TRUE |
00001430  69 66 20 77 69 6e 64 6f  77 20 69 73 20 6d 6f 76  |if window is mov|
00001440  65 61 62 6c 65 2c 20 6f  74 68 65 72 77 69 73 65  |eable, otherwise|
00001450  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |.              F|
00001460  41 4c 53 45 0a 0a 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ALSE..----------|
00001470  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001490  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 0a  |--------------..|
000014a0  46 4e 73 68 65 6c 6c 5f  57 69 6e 64 6f 77 49 73  |FNshell_WindowIs|
000014b0  41 50 61 6e 65 28 29 0a  50 61 72 61 6d 73 20 3d  |APane().Params =|
000014c0  3e 0a 20 20 20 20 20 20  20 20 20 69 6e 74 20 20  |>.         int  |
000014d0  77 69 6e 64 6f 77 20 68  61 6e 64 6c 65 0a 0a 20  |window handle.. |
000014e0  20 20 20 20 20 20 3c 3d  0a 20 20 20 20 20 20 20  |      <=.       |
000014f0  20 20 62 6f 6f 6c 20 54  52 55 45 20 69 66 20 77  |  bool TRUE if w|
00001500  69 6e 64 6f 77 20 69 73  20 61 20 70 61 6e 65 2c  |indow is a pane,|
00001510  20 6f 74 68 65 72 77 69  73 65 0a 20 20 20 20 20  | otherwise.     |
00001520  20 20 20 20 20 20 20 20  20 46 41 4c 53 45 0a 0a  |         FALSE..|
00001530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001560  2d 2d 2d 2d 2d 2d 2d 2d  0a 0a 46 4e 73 68 65 6c  |--------..FNshel|
00001570  6c 5f 57 69 6e 64 6f 77  49 73 4e 6f 74 42 6f 75  |l_WindowIsNotBou|
00001580  6e 64 65 64 28 29 0a 50  61 72 61 6d 73 20 3d 3e  |nded().Params =>|
00001590  0a 20 20 20 20 20 20 20  20 20 69 6e 74 20 20 77  |.         int  w|
000015a0  69 6e 64 6f 77 20 68 61  6e 64 6c 65 0a 0a 20 20  |indow handle..  |
000015b0  20 20 20 20 20 3c 3d 0a  20 20 20 20 20 20 20 20  |     <=.        |
000015c0  20 62 6f 6f 6c 20 54 52  55 45 20 69 66 20 77 69  | bool TRUE if wi|
000015d0  6e 64 6f 77 20 6d 61 79  20 6d 6f 76 65 20 6f 75  |ndow may move ou|
000015e0  74 73 69 64 65 0a 20 20  20 20 20 20 20 20 20 20  |tside.          |
000015f0  20 20 20 20 74 68 65 20  73 63 72 65 65 6e 20 61  |    the screen a|
00001600  72 65 61 2c 20 6f 74 68  65 72 77 69 73 65 20 46  |rea, otherwise F|
00001610  41 4c 53 45 0a 0a 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ALSE..----------|
00001620  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001640  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 0a  |--------------..|
00001650  46 4e 73 68 65 6c 6c 5f  57 69 6e 64 6f 77 54 72  |FNshell_WindowTr|
00001660  61 70 73 48 6f 74 4b 65  79 73 28 29 0a 50 61 72  |apsHotKeys().Par|
00001670  61 6d 73 20 3d 3e 0a 20  20 20 20 20 20 20 20 20  |ams =>.         |
00001680  69 6e 74 20 20 77 69 6e  64 6f 77 20 68 61 6e 64  |int  window hand|
00001690  6c 65 0a 0a 20 20 20 20  20 20 20 3c 3d 0a 20 20  |le..       <=.  |
000016a0  20 20 20 20 20 20 20 62  6f 6f 6c 20 54 52 55 45  |       bool TRUE|
000016b0  20 69 66 20 77 69 6e 64  6f 77 20 74 72 61 70 73  | if window traps|
000016c0  20 68 6f 74 20 6b 65 79  73 2c 0a 20 20 20 20 20  | hot keys,.     |
000016d0  20 20 20 20 20 20 20 20  20 6f 74 68 65 72 77 69  |         otherwi|
000016e0  73 65 20 46 41 4c 53 45  0a 0a 2d 2d 2d 2d 2d 2d  |se FALSE..------|
000016f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001720  2d 2d 0a 0a 46 4e 73 68  65 6c 6c 5f 57 69 6e 64  |--..FNshell_Wind|
00001730  6f 77 48 61 73 42 65 65  6e 54 6f 67 67 6c 65 64  |owHasBeenToggled|
00001740  28 29 0a 50 61 72 61 6d  73 20 3d 3e 0a 20 20 20  |().Params =>.   |
00001750  20 20 20 20 20 20 69 6e  74 20 20 77 69 6e 64 6f  |      int  windo|
00001760  77 20 68 61 6e 64 6c 65  0a 0a 20 20 20 20 20 20  |w handle..      |
00001770  20 3c 3d 0a 20 20 20 20  20 20 20 20 20 62 6f 6f  | <=.         boo|
00001780  6c 20 54 52 55 45 20 69  66 20 77 69 6e 64 6f 77  |l TRUE if window|
00001790  20 68 61 73 20 62 65 65  6e 20 74 6f 67 67 6c 65  | has been toggle|
000017a0  64 20 74 6f 0a 20 20 20  20 20 20 20 20 20 20 20  |d to.           |
000017b0  20 20 20 66 75 6c 6c 20  73 69 7a 65 2c 20 6f 74  |   full size, ot|
000017c0  68 65 72 77 69 73 65 20  46 41 4c 53 45 0a 0a 2d  |herwise FALSE..-|
000017d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001800  2d 2d 2d 2d 2d 2d 2d 0a  0a 46 4e 73 68 65 6c 6c  |-------..FNshell|
00001810  5f 57 69 6e 64 6f 77 48  61 73 49 6e 70 75 74 46  |_WindowHasInputF|
00001820  6f 63 75 73 28 29 0a 50  61 72 61 6d 73 20 3d 3e  |ocus().Params =>|
00001830  0a 20 20 20 20 20 20 20  20 20 69 6e 74 20 20 77  |.         int  w|
00001840  69 6e 64 6f 77 20 68 61  6e 64 6c 65 0a 0a 20 20  |indow handle..  |
00001850  20 20 20 20 20 3c 3d 0a  20 20 20 20 20 20 20 20  |     <=.        |
00001860  20 62 6f 6f 6c 20 54 52  55 45 20 69 66 20 77 69  | bool TRUE if wi|
00001870  6e 64 6f 77 20 68 61 73  20 74 68 65 20 69 6e 70  |ndow has the inp|
00001880  75 74 20 66 6f 63 75 73  2c 0a 20 20 20 20 20 20  |ut focus,.      |
00001890  20 20 20 20 20 20 20 20  6f 74 68 65 72 77 69 73  |        otherwis|
000018a0  65 20 46 41 4c 53 45 0a  0a 2d 2d 2d 2d 2d 2d 2d  |e FALSE..-------|
000018b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000018e0  2d 0a 0a 46 4e 73 68 65  6c 6c 5f 57 69 6e 64 6f  |-..FNshell_Windo|
000018f0  77 48 61 73 42 61 63 6b  49 63 6f 6e 28 29 0a 50  |wHasBackIcon().P|
00001900  61 72 61 6d 73 20 3d 3e  0a 20 20 20 20 20 20 20  |arams =>.       |
00001910  20 20 69 6e 74 20 20 77  69 6e 64 6f 77 20 68 61  |  int  window ha|
00001920  6e 64 6c 65 0a 0a 20 20  20 20 20 20 20 3c 3d 0a  |ndle..       <=.|
00001930  20 20 20 20 20 20 20 20  20 62 6f 6f 6c 20 54 52  |         bool TR|
00001940  55 45 20 69 66 20 77 69  6e 64 6f 77 20 68 61 73  |UE if window has|
00001950  20 61 20 73 65 6e 64 20  74 6f 20 62 61 63 6b 20  | a send to back |
00001960  69 63 6f 6e 2c 0a 20 20  20 20 20 20 20 20 20 20  |icon,.          |
00001970  20 20 20 20 6f 74 68 65  72 77 69 73 65 20 46 41  |    otherwise FA|
00001980  4c 53 45 0a 0a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |LSE..-----------|
00001990  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000019b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 0a 46  |-------------..F|
000019c0  4e 73 68 65 6c 6c 5f 57  69 6e 64 6f 77 48 61 73  |Nshell_WindowHas|
000019d0  43 6c 6f 73 65 49 63 6f  6e 28 29 0a 50 61 72 61  |CloseIcon().Para|
000019e0  6d 73 20 3d 3e 0a 20 20  20 20 20 20 20 20 20 69  |ms =>.         i|
000019f0  6e 74 20 20 77 69 6e 64  6f 77 20 68 61 6e 64 6c  |nt  window handl|
00001a00  65 0a 0a 20 20 20 20 20  20 20 3c 3d 0a 20 20 20  |e..       <=.   |
00001a10  20 20 20 20 20 20 62 6f  6f 6c 20 54 52 55 45 20  |      bool TRUE |
00001a20  69 66 20 77 69 6e 64 6f  77 20 68 61 73 20 61 20  |if window has a |
00001a30  63 6c 6f 73 65 20 69 63  6f 6e 2c 0a 20 20 20 20  |close icon,.    |
00001a40  20 20 20 20 20 20 20 20  20 20 6f 74 68 65 72 77  |          otherw|
00001a50  69 73 65 20 46 41 4c 53  45 0a 0a 2d 2d 2d 2d 2d  |ise FALSE..-----|
00001a60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001a90  2d 2d 2d 0a 0a 46 4e 73  68 65 6c 6c 5f 57 69 6e  |---..FNshell_Win|
00001aa0  64 6f 77 48 61 73 54 6f  67 67 6c 65 49 63 6f 6e  |dowHasToggleIcon|
00001ab0  28 29 0a 50 61 72 61 6d  73 20 3d 3e 0a 20 20 20  |().Params =>.   |
00001ac0  20 20 20 20 20 20 69 6e  74 20 20 77 69 6e 64 6f  |      int  windo|
00001ad0  77 20 68 61 6e 64 6c 65  0a 0a 20 20 20 20 20 20  |w handle..      |
00001ae0  20 3c 3d 0a 20 20 20 20  20 20 20 20 20 62 6f 6f  | <=.         boo|
00001af0  6c 20 54 52 55 45 20 69  66 20 77 69 6e 64 6f 77  |l TRUE if window|
00001b00  20 68 61 73 20 61 20 74  6f 67 67 6c 65 20 69 63  | has a toggle ic|
00001b10  6f 6e 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |on,.            |
00001b20  20 20 6f 74 68 65 72 77  69 73 65 20 46 41 4c 53  |  otherwise FALS|
00001b30  45 0a 0a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |E..-------------|
00001b40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 0a 46 4e 73  |-----------..FNs|
00001b70  68 65 6c 6c 5f 57 69 6e  64 6f 77 48 61 73 56 53  |hell_WindowHasVS|
00001b80  63 72 6f 6c 6c 42 61 72  28 29 0a 50 61 72 61 6d  |crollBar().Param|
00001b90  73 20 3d 3e 0a 20 20 20  20 20 20 20 20 20 69 6e  |s =>.         in|
00001ba0  74 20 20 77 69 6e 64 6f  77 20 68 61 6e 64 6c 65  |t  window handle|
00001bb0  0a 0a 20 20 20 20 20 20  20 3c 3d 0a 20 20 20 20  |..       <=.    |
00001bc0  20 20 20 20 20 62 6f 6f  6c 20 54 52 55 45 20 69  |     bool TRUE i|
00001bd0  66 20 77 69 6e 64 6f 77  20 68 61 73 20 61 20 76  |f window has a v|
00001be0  65 72 74 69 63 61 6c 20  73 63 72 6f 6c 6c 20 62  |ertical scroll b|
00001bf0  61 72 2c 0a 20 20 20 20  20 20 20 20 20 20 20 20  |ar,.            |
00001c00  20 20 6f 74 68 65 72 77  69 73 65 20 46 41 4c 53  |  otherwise FALS|
00001c10  45 0a 0a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |E..-------------|
00001c20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 0a 46 4e 73  |-----------..FNs|
00001c50  68 65 6c 6c 5f 57 69 6e  64 6f 77 48 61 73 48 53  |hell_WindowHasHS|
00001c60  63 72 6f 6c 6c 42 61 72  28 29 0a 50 61 72 61 6d  |crollBar().Param|
00001c70  73 20 3d 3e 0a 20 20 20  20 20 20 20 20 20 69 6e  |s =>.         in|
00001c80  74 20 20 77 69 6e 64 6f  77 20 68 61 6e 64 6c 65  |t  window handle|
00001c90  0a 0a 20 20 20 20 20 20  20 3c 3d 0a 20 20 20 20  |..       <=.    |
00001ca0  20 20 20 20 20 62 6f 6f  6c 20 54 52 55 45 20 69  |     bool TRUE i|
00001cb0  66 20 77 69 6e 64 6f 77  20 68 61 73 20 61 20 68  |f window has a h|
00001cc0  6f 72 69 7a 6f 6e 74 61  6c 20 73 63 72 6f 6c 6c  |orizontal scroll|
00001cd0  20 62 61 72 2c 0a 20 20  20 20 20 20 20 20 20 20  | bar,.          |
00001ce0  20 20 20 20 6f 74 68 65  72 77 69 73 65 20 46 41  |    otherwise FA|
00001cf0  4c 53 45 0a 0a 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |LSE..-----------|
00001d00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001d20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 0a 46  |-------------..F|
00001d30  4e 73 68 65 6c 6c 5f 57  69 6e 64 6f 77 48 61 73  |Nshell_WindowHas|
00001d40  41 64 6a 75 73 74 53 69  7a 65 49 63 6f 6e 28 29  |AdjustSizeIcon()|
00001d50  0a 50 61 72 61 6d 73 20  3d 3e 0a 20 20 20 20 20  |.Params =>.     |
00001d60  20 20 20 20 69 6e 74 20  20 77 69 6e 64 6f 77 20  |    int  window |
00001d70  68 61 6e 64 6c 65 0a 0a  20 20 20 20 20 20 20 3c  |handle..       <|
00001d80  3d 0a 20 20 20 20 20 20  20 20 20 62 6f 6f 6c 20  |=.         bool |
00001d90  54 52 55 45 20 69 66 20  77 69 6e 64 6f 77 20 68  |TRUE if window h|
00001da0  61 73 20 61 6e 20 61 64  6a 75 73 74 20 73 69 7a  |as an adjust siz|
00001db0  65 20 69 63 6f 6e 2c 0a  20 20 20 20 20 20 20 20  |e icon,.        |
00001dc0  20 20 20 20 20 20 6f 74  68 65 72 77 69 73 65 20  |      otherwise |
00001dd0  46 41 4c 53 45 0a 0a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |FALSE..---------|
00001de0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001e00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00001e10  0a 46 4e 73 68 65 6c 6c  5f 57 69 6e 64 6f 77 49  |.FNshell_WindowI|
00001e20  73 4f 70 65 6e 28 29 0a  50 61 72 61 6d 73 20 3d  |sOpen().Params =|
00001e30  3e 0a 20 20 20 20 20 20  20 20 20 69 6e 74 20 20  |>.         int  |
00001e40  77 69 6e 64 6f 77 20 68  61 6e 64 6c 65 0a 0a 20  |window handle.. |
00001e50  20 20 20 20 20 20 3c 3d  0a 20 20 20 20 20 20 20  |      <=.       |
00001e60  20 20 62 6f 6f 6c 20 54  52 55 45 20 69 66 20 77  |  bool TRUE if w|
00001e70  69 6e 64 6f 77 20 69 73  20 6f 70 65 6e 2c 20 6f  |indow is open, o|
00001e80  74 68 65 72 77 69 73 65  0a 20 20 20 20 20 20 20  |therwise.       |
00001e90  20 20 20 20 20 20 20 46  41 4c 53 45 0a 0a 2d 2d  |       FALSE..--|
00001ea0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001ed0  2d 2d 2d 2d 2d 2d 0a 0a  50 52 4f 43 73 68 65 6c  |------..PROCshel|
00001ee0  6c 5f 57 69 6e 64 6f 77  54 6f 67 67 6c 65 42 61  |l_WindowToggleBa|
00001ef0  63 6b 49 63 6f 6e 28 29  0a 50 61 72 61 6d 73 20  |ckIcon().Params |
00001f00  3d 3e 0a 20 20 20 20 20  20 20 20 20 69 6e 74 20  |=>.         int |
00001f10  20 77 69 6e 64 6f 77 20  68 61 6e 64 6c 65 0a 0a  | window handle..|
00001f20  20 20 20 20 20 20 20 3c  3d 0a 20 20 20 20 20 20  |       <=.      |
00001f30  20 20 20 69 6e 74 20 75  70 64 61 74 65 64 20 77  |   int updated w|
00001f40  69 6e 64 6f 77 20 68 61  6e 64 6c 65 0a 0a 41 64  |indow handle..Ad|
00001f50  64 73 20 61 20 27 42 61  63 6b 20 69 63 6f 6e 27  |ds a 'Back icon'|
00001f60  20 74 6f 20 61 20 77 69  6e 64 6f 77 20 69 66 20  | to a window if |
00001f70  69 74 20 64 6f 65 73 6e  27 74 0a 68 61 76 65 20  |it doesn't.have |
00001f80  6f 6e 65 2c 20 72 65 6d  6f 76 65 73 20 69 74 20  |one, removes it |
00001f90  69 66 20 69 74 20 64 6f  65 73 2e 20 41 6c 73 6f  |if it does. Also|
00001fa0  20 72 65 64 69 73 70 6c  61 79 73 0a 77 69 6e 64  | redisplays.wind|
00001fb0  6f 77 20 69 6e 20 69 74  73 20 6e 65 77 20 73 74  |ow in its new st|
00001fc0  61 74 65 20 69 66 20 69  74 20 69 73 20 6f 70 65  |ate if it is ope|
00001fd0  6e 2e 0a 0a 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |n...------------|
00001fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002000  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0a 0a 50 52  |------------..PR|
00002010  4f 43 73 68 65 6c 6c 5f  57 69 6e 64 6f 77 54 6f  |OCshell_WindowTo|
00002020  67 67 6c 65 43 6c 6f 73  65 49 63 6f 6e 28 29 0a  |ggleCloseIcon().|
00002030  50 61 72 61 6d 73 20 3d  3e 0a 20 20 20 20 20 20  |Params =>.      |
00002040  20 20 20 69 6e 74 20 20  77 69 6e 64 6f 77 20 68  |   int  window h|
00002050  61 6e 64 6c 65 0a 0a 20  20 20 20 20 20 20 3c 3d  |andle..       <=|
00002060  0a 20 20 20 20 20 20 20  20 20 69 6e 74 20 75 70  |.         int up|
00002070  64 61 74 65 64 20 77 69  6e 64 6f 77 20 68 61 6e  |dated window han|
00002080  64 6c 65 0a 0a 41 64 64  73 20 61 20 27 43 6c 6f  |dle..Adds a 'Clo|
00002090  73 65 20 69 63 6f 6e 27  20 74 6f 20 61 20 77 69  |se icon' to a wi|
000020a0  6e 64 6f 77 20 69 66 20  69 74 20 64 6f 65 73 6e  |ndow if it doesn|
000020b0  27 74 0a 68 61 76 65 20  6f 6e 65 2c 20 72 65 6d  |'t.have one, rem|
000020c0  6f 76 65 73 20 69 74 20  69 66 20 69 74 20 64 6f  |oves it if it do|
000020d0  65 73 2e 20 41 6c 73 6f  20 72 65 64 69 73 70 6c  |es. Also redispl|
000020e0  61 79 73 0a 77 69 6e 64  6f 77 20 69 6e 20 69 74  |ays.window in it|
000020f0  73 20 6e 65 77 20 73 74  61 74 65 20 69 66 20 69  |s new state if i|
00002100  74 20 69 73 20 6f 70 65  6e 2e 0a 0a 2d 2d 2d 2d  |t is open...----|
00002110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002140  2d 2d 2d 2d 0a 0a 50 52  4f 43 73 68 65 6c 6c 5f  |----..PROCshell_|
00002150  57 69 6e 64 6f 77 54 6f  67 67 6c 65 54 69 74 6c  |WindowToggleTitl|
00002160  65 42 61 72 28 29 0a 50  61 72 61 6d 73 20 3d 3e  |eBar().Params =>|
00002170  0a 20 20 20 20 20 20 20  20 20 69 6e 74 20 20 77  |.         int  w|
00002180  69 6e 64 6f 77 20 68 61  6e 64 6c 65 0a 0a 20 20  |indow handle..  |
00002190  20 20 20 20 20 5c 3c 3d  0a 20 20 20 20 20 20 20  |     \<=.       |
000021a0  20 20 69 6e 74 20 75 70  64 61 74 65 64 20 77 69  |  int updated wi|
000021b0  6e 64 6f 77 20 68 61 6e  64 6c 65 0a 0a 41 64 64  |ndow handle..Add|
000021c0  73 20 61 20 54 69 74 6c  65 20 62 61 72 20 74 6f  |s a Title bar to|
000021d0  20 61 20 77 69 6e 64 6f  77 20 69 66 20 69 74 20  | a window if it |
000021e0  64 6f 65 73 6e 27 74 20  6f 6e 65 2c 0a 72 65 6d  |doesn't one,.rem|
000021f0  6f 76 65 73 20 69 74 20  69 66 20 69 74 20 64 6f  |oves it if it do|
00002200  65 73 2e 20 41 6c 73 6f  20 72 65 64 69 73 70 6c  |es. Also redispl|
00002210  61 79 73 20 77 69 6e 64  6f 77 0a 69 6e 20 69 74  |ays window.in it|
00002220  73 20 6e 65 77 20 73 74  61 74 65 20 69 66 20 69  |s new state if i|
00002230  74 20 69 73 20 6f 70 65  6e 2e 0a 0a 2d 2d 2d 2d  |t is open...----|
00002240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002270  2d 2d 2d 2d 0a 0a 50 52  4f 43 73 68 65 6c 6c 5f  |----..PROCshell_|
00002280  57 69 6e 64 6f 77 54 6f  67 67 6c 65 54 6f 67 67  |WindowToggleTogg|
00002290  6c 65 49 63 6f 6e 28 29  0a 50 61 72 61 6d 73 20  |leIcon().Params |
000022a0  3d 3e 0a 20 20 20 20 20  20 20 20 20 69 6e 74 20  |=>.         int |
000022b0  20 77 69 6e 64 6f 77 20  68 61 6e 64 6c 65 0a 0a  | window handle..|
000022c0  20 20 20 20 20 20 20 3c  3d 0a 20 20 20 20 20 20  |       <=.      |
000022d0  20 20 20 69 6e 74 20 75  70 64 61 74 65 64 20 77  |   int updated w|
000022e0  69 6e 64 6f 77 20 68 61  6e 64 6c 65 0a 0a 41 64  |indow handle..Ad|
000022f0  64 73 20 61 20 27 54 6f  67 67 6c 65 20 73 69 7a  |ds a 'Toggle siz|
00002300  65 20 69 63 6f 6e 27 20  20 74 6f 20 61 20 77 69  |e icon'  to a wi|
00002310  6e 64 6f 77 20 69 66 20  69 74 0a 64 6f 65 73 6e  |ndow if it.doesn|
00002320  27 74 20 6f 6e 65 2c 20  72 65 6d 6f 76 65 73 20  |'t one, removes |
00002330  69 74 20 69 66 20 69 74  20 64 6f 65 73 2e 20 41  |it if it does. A|
00002340  6c 73 6f 0a 72 65 64 69  73 70 6c 61 79 73 20 77  |lso.redisplays w|
00002350  69 6e 64 6f 77 20 69 6e  20 69 74 73 20 6e 65 77  |indow in its new|
00002360  20 73 74 61 74 65 20 69  66 20 69 74 20 69 73 0a  | state if it is.|
00002370  6f 70 65 6e 2e 0a 0a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |open...---------|
00002380  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000023a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
000023b0  0a 50 52 4f 43 73 68 65  6c 6c 5f 57 69 6e 64 6f  |.PROCshell_Windo|
000023c0  77 54 6f 67 67 6c 65 56  53 63 72 6f 6c 6c 42 61  |wToggleVScrollBa|
000023d0  72 28 29 0a 50 61 72 61  6d 73 20 3d 3e 0a 20 20  |r().Params =>.  |
000023e0  20 20 20 20 20 20 20 69  6e 74 20 20 77 69 6e 64  |       int  wind|
000023f0  6f 77 20 68 61 6e 64 6c  65 0a 0a 20 20 20 20 20  |ow handle..     |
00002400  20 20 3c 3d 0a 20 20 20  20 20 20 20 20 20 69 6e  |  <=.         in|
00002410  74 20 75 70 64 61 74 65  64 20 77 69 6e 64 6f 77  |t updated window|
00002420  20 68 61 6e 64 6c 65 0a  0a 41 64 64 73 20 61 20  | handle..Adds a |
00002430  76 65 72 74 69 63 61 6c  20 73 63 72 6f 6c 6c 20  |vertical scroll |
00002440  62 61 72 20 74 6f 20 61  20 77 69 6e 64 6f 77 20  |bar to a window |
00002450  69 66 0a 69 74 20 64 6f  65 73 6e 27 74 20 6f 6e  |if.it doesn't on|
00002460  65 2c 20 72 65 6d 6f 76  65 73 20 69 74 20 69 66  |e, removes it if|
00002470  20 69 74 20 64 6f 65 73  2e 20 41 6c 73 6f 0a 72  | it does. Also.r|
00002480  65 64 69 73 70 6c 61 79  73 20 77 69 6e 64 6f 77  |edisplays window|
00002490  20 69 6e 20 69 74 73 20  6e 65 77 20 73 74 61 74  | in its new stat|
000024a0  65 20 69 66 20 69 74 20  69 73 0a 6f 70 65 6e 2e  |e if it is.open.|
000024b0  0a 0a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..--------------|
000024c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000024e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 0a 50 52 4f 43  |----------..PROC|
000024f0  73 68 65 6c 6c 5f 57 69  6e 64 6f 77 54 6f 67 67  |shell_WindowTogg|
00002500  6c 65 41 64 6a 75 73 74  53 69 7a 65 69 63 6f 6e  |leAdjustSizeicon|
00002510  28 29 0a 50 61 72 61 6d  73 20 3d 3e 0a 20 20 20  |().Params =>.   |
00002520  20 20 20 20 20 20 69 6e  74 20 20 77 69 6e 64 6f  |      int  windo|
00002530  77 20 68 61 6e 64 6c 65  0a 0a 20 20 20 20 20 20  |w handle..      |
00002540  20 3c 3d 0a 20 20 20 20  20 20 20 20 20 69 6e 74  | <=.         int|
00002550  20 75 70 64 61 74 65 64  20 77 69 6e 64 6f 77 20  | updated window |
00002560  68 61 6e 64 6c 65 0a 0a  41 64 64 73 20 61 20 27  |handle..Adds a '|
00002570  41 64 6a 75 73 74 20 73  69 7a 65 20 69 63 6f 6e  |Adjust size icon|
00002580  27 20 74 6f 20 61 20 77  69 6e 64 6f 77 20 69 66  |' to a window if|
00002590  20 69 74 0a 64 6f 65 73  6e 27 74 20 6f 6e 65 2c  | it.doesn't one,|
000025a0  20 72 65 6d 6f 76 65 73  20 69 74 20 69 66 20 69  | removes it if i|
000025b0  74 20 64 6f 65 73 2e 20  41 6c 73 6f 0a 72 65 64  |t does. Also.red|
000025c0  69 73 70 6c 61 79 73 20  77 69 6e 64 6f 77 20 69  |isplays window i|
000025d0  6e 20 69 74 73 20 6e 65  77 20 73 74 61 74 65 20  |n its new state |
000025e0  69 66 20 69 74 20 69 73  0a 6f 70 65 6e 2e 0a 0a  |if it is.open...|
000025f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002620  2d 2d 2d 2d 2d 2d 2d 2d  0a 0a 50 52 4f 43 73 68  |--------..PROCsh|
00002630  65 6c 6c 5f 57 69 6e 64  6f 77 54 6f 67 67 6c 65  |ell_WindowToggle|
00002640  48 53 63 72 6f 6c 6c 42  61 72 28 29 0a 50 61 72  |HScrollBar().Par|
00002650  61 6d 73 20 3d 3e 0a 20  20 20 20 20 20 20 20 20  |ams =>.         |
00002660  69 6e 74 20 20 77 69 6e  64 6f 77 20 68 61 6e 64  |int  window hand|
00002670  6c 65 0a 0a 20 20 20 20  20 20 20 5c 3c 3d 0a 20  |le..       \<=. |
00002680  20 20 20 20 20 20 20 20  69 6e 74 20 75 70 64 61  |        int upda|
00002690  74 65 64 20 77 69 6e 64  6f 77 20 68 61 6e 64 6c  |ted window handl|
000026a0  65 0a 0a 41 64 64 73 20  61 20 68 6f 72 69 7a 6f  |e..Adds a horizo|
000026b0  6e 74 61 6c 20 73 63 72  6f 6c 6c 20 62 61 72 20  |ntal scroll bar |
000026c0  74 6f 20 61 20 77 69 6e  64 6f 77 20 69 66 0a 69  |to a window if.i|
000026d0  74 20 64 6f 65 73 6e 27  74 20 6f 6e 65 2c 20 72  |t doesn't one, r|
000026e0  65 6d 6f 76 65 73 20 69  74 20 69 66 20 69 74 20  |emoves it if it |
000026f0  64 6f 65 73 2e 20 41 6c  73 6f 0a 72 65 64 69 73  |does. Also.redis|
00002700  70 6c 61 79 73 20 77 69  6e 64 6f 77 20 69 6e 20  |plays window in |
00002710  69 74 73 20 6e 65 77 20  73 74 61 74 65 20 69 66  |its new state if|
00002720  20 69 74 20 69 73 0a 6f  70 65 6e 2e 0a 0a 2d 2d  | it is.open...--|
00002730  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002760  2d 2d 2d 2d 2d 2d 0a 0a  46 4e 73 68 65 6c 6c 5f  |------..FNshell_|
00002770  57 69 6e 64 6f 77 4c 6f  61 64 65 64 28 29 0a 50  |WindowLoaded().P|
00002780  61 72 61 6d 73 20 3d 3e  0a 20 20 20 20 20 20 20  |arams =>.       |
00002790  20 20 73 74 72 20 20 77  69 6e 64 6f 77 20 6e 61  |  str  window na|
000027a0  6d 65 20 28 6d 61 78 20  31 31 20 63 68 61 72 61  |me (max 11 chara|
000027b0  63 74 65 72 73 29 0a 0a  20 20 20 20 20 20 20 3c  |cters)..       <|
000027c0  3d 0a 20 20 20 20 20 20  20 20 20 62 6f 6f 6c 20  |=.         bool |
000027d0  54 52 55 45 20 69 66 20  74 65 6d 70 6c 61 74 65  |TRUE if template|
000027e0  20 69 73 20 6c 6f 61 64  65 64 2c 20 6f 74 68 65  | is loaded, othe|
000027f0  72 77 69 73 65 0a 20 20  20 20 20 20 20 20 20 20  |rwise.          |
00002800  20 20 20 20 46 41 4c 53  45 0a 0a 2d 2d 2d 2d 2d  |    FALSE..-----|
00002810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002840  2d 2d 2d                                          |---|
00002843