7sh9fi E:\TOOLBAR OhO[ [ OW +,'Toolbar' is not designed to run stand-alone++-Toolbar procedures are called by applications++8Use LOADM "TOOLBAR.OPO" to make the procedures available+'Select procedure for usage information:+VTBarLink:,TBarInit:,TBarSetTitle:,TBarButt:,TBarOffer%:,TBarLatch:,TBarShow:,TBarHide:+CancelO(`h+ ProcedureO WK+ informationKO (` W7O@[7 Hy} +Usage: TBarLink:(appLink$)+:Provides all toolbar globals required in your application.+5Must be called before TBarInit: and at a higher level+8procedure in your application than the globals are used.+9appLink$ is the name of the continuation procedure in the+8main application. This allows the globals to exist until+the application exits.+7appLink$ must represent a procedure with prototype like+3'proc continue:' - taking no parameters and with no+6return-type specification character, so that it can be+called using '@(appLink$):'.6+$Usage: TBarInit:(title$,scrW%,scrH%)+;Called at start of application only, this procedure creates+8the toolbar window, which guarantees that there will be +9sufficient memory available to display the toolbar at any+>subsequent time. The toolbar is made invisible when not shown.+7This procedure also draws all toolbar components except+.the buttons. Turns graphics auto-flushing off.+)title$ is the title shown in the toolbar.+3scrW% is the full-screen width (gWidth at startup).+5scrH% is the full-screen height (gHeight at startup).+TBarSetTitle:(title$)+Sets the name in the toolbar.+7name$ is the name of your document, or the name of your+%application for no-file applications.b+?Usage: TBarButt:(shortCut$,pos%,text$,state%,bit&,mask&,flags%)+4Adds a button to the previously initialised toolbar.+  TBDEFICON%TBBTBIT&TBBTMSK&TBWINID%TBBTH%TBWIDTH% TBSHORTCUT$TBBTTXT$TBSTATE% TBBTFLAGS%8O6\8O\[8O0\O@[Oh<W+:O\[ ::OH O{A[5 O@[ OOW'O" {$ {" $ &)4OOL(PHO4 O*OOPL(OH:"$O, . OH0:2<v5(E TBARREL TBSHORTCUT$TBCRCMP%#$$+Z;[& $Kk%& +sK$Kk%S !O&'*TBBTCHNG TBARDOCMD%(OOOS(O+cmdOS8. TBVIS%TBWINID%TBCRCMP% TBMENUSYM%W+ OhW+O O (( `v7#" TBARRELTBVIS%TBWINID% TBMENUSYM%!W+ OS (!v-|TBWIDTH%TBHGHT%TBBTH% O{1 {=` O{1` {=`[O O{1[ Oh@ OFL{=[ Oh(O{ O{M{UIxO8[ OhTBUSAGE+TBBTCHNG TBARREL TBAROFFER%i TBARBTUP/ TBARLATCH* TBARBTDOWN,ZTBARLINKe __DOTBARINITTBARINITNONSTDTBARINIT TBARSETTITLETBARBUTTn TBARDOCMD%TBARCMD%xTBARSHOWTBARHIDE&  TBARCOMP%SYSTEM\DATEZh ,O