ToolBook 3.0

home *** CD-ROM | disk | FTP | other *** search

/ ToolBook 3.0 / ToolBook v3.0.iso / tb30 / samples / widgets.tbk (.txt) < prev

Wrap

Asymetrix ToolBook File | 1994-05-19 | 739.9 KB | 12,060 lines

Select Topic Alpha Keyboard copyDialog copyDialog cBRef initDialog keyChar initDialog textString cBRef comboBox "copyDialog" dropDownItems keyEnter buttonClick B"OK" FALSE visited Select Widget s_currentCopy copyDialog buttonClick keyChar buttonClick 4s_currentCopy comboBox "copyDialog" close keyEnter -- enter %alias spacebar buttonclick FALSE copyDialog Group "Date"ageName"tons"er"ns"ield Widgets Slider Widgets CBT Widgets Keyboards Miscellaneous3 Group "Date" Group "Integer" Group "Time" Field "autoTime w/ timer" Field "LeaveField_Whitespace" der Widgetsdgets Cancel s_currentTopic copyDialog buttonClick buttonClick 4s_currentTopic "copyDialog" close Cancel copyDialog Useful Patterns Scale Slider Calendar Data widgets chapter chapterID Group id 61 of Page id 80 widgets FALSE visited A calendar that keeps itself current. This widget automatically shows the current date, and can be set to show any month in the years 1700 to 2100. Enough functionality is provided to make the scripts easily extensible. calendar calendar tbk_wid_name field "20" resetObj frame calYear HSbuildcal frame whatDate sCurrentMonth m d y sCurrentYear selectChange selectChange whatText 4sCurrentMonth, sCurrentYear whatDate = %"m d y" = TRUE buildcal "frame" = FALSE 1994c d 1700 calMonth HSbuildcal frame whatDate sCurrentMonth m d y sCurrentYear selectChange selectChange whatMonth 4sCurrentMonth, sCurrentYear whatDate = %"m d y" = TRUE buildcal "frame" = FALSE Mayil 4 109 January 1 February 2 March 3 April 4 May 5 June 6 July 7 August 8 September 9 October 10 November 11 December 124 today HSbuildcal m,d,y displayDate sCurrentDay sCurrentMonth mydate sCurrentYear buttonClick buttonClick 4sCurrentMonth, sCurrentYear, sCurrentDay mydate = %"m,d,y" = TRUE displayDate buildcal = FALSE Field id 83 of Page id 2 lastObj strokcolor strokcolor enterPage Scale Slider Slider widgets chapter chapterID visited Field id 67 of Page id 81,Group id 66 of Page id 81 widgets A sophisticated slider with a number of properties you can edit.. The slider widget below sends the following messages: startSliderMove: sent when the user first clicks on the thumb sliderMove: sent constantly as the slider is being dragged endSliderMove: sent when the user releases the thumb. Each of these messages includes the current position of the slider thumb as its parameter. You can set or get the following properties of the slider. sliderMin: Minimum value for the slider sliderMax: Maximum value for the slider sliderPos: Position of the thumb numTics: Number of tic marks that appear on the scale (max 50) tallTicSpacing: Frequency of tall tics on the scale. Each tall tic has a label below it. (up to 10 labels) These properties are easily accessed through the property browser in the tools30.sbk. box. slider mySliderMin mySliderMax FALSE mysliderPos myNumTics scaledSlider tbk_wid_name numTics tallTicSpacing sliderMin sliderMax sliderPos tbk_wid_props tbk_wid_values myTallTicSpacing thumb hSliderThumb txClassName button id 103 of page id 15 glide width false hilight myTrackPos Shuttle helptext Button 100066666666666673 200033333333333344 30000000000000001e-014 40006666666666669 50003333333333336 60000000000000001 10000 emitter #00.00 sliderMove notifyAfter sliderMove pos arbitrary precision, comment the adjust zeros tpoint %"#00.00" integers scale_emitter tbk_wid_name 49.68569620253169 The field below uses a notify handler to trap the sliderMove message. startSliderMove sliderMove endSliderMove sliderMove Printer Resolution FALSE visited Data widgets chapter chapterID Button id 0 of Page id 86 widgets This widget can find out the resolution of the printer Windows allows us to learn about the way a device displays information by creating an "Information Context". We use the API calls "createIC" and "getDeviceCaps" with the name of the printer (retrieved from the win.ini). This method is capable of finding out just about anything you want to know about your printer or your display monitor.your display monitor. PrinterRes tbk_wid_name &Printer Resolution <+U!8 Use this command to edit a widget. Clear the check marks from the table of contents and all the topic pages. widgetSchmidget false Use this command to check the properties of a widget. Clear Chec&ks object E&dit Widget Properties... splash FALSE statusBar Contents checkWids s_widFirstFlag readerFix resetChecks :widHelp widgetHelp s_backMessageSent book outline C&heck Widget... enterApplication leaveApplication s_widFirstFlag .&, " .&, " contentBar Widget Label Bwidgets Bwidgets Widget: tbk_wid_name Widgets: enterPage checkWids reader newViewer widgetSchmidget FALSE author myPaste localWids Bwidgets CopyAll myCopy tbk_wid_name Object enterMenu Author previous nextBG stringResource previousBG ainitPage widgetHelp HelpIntro menuItemSelected s_backMessageSent leavePage s_backMessageSent You are all the way back. contentBar keyDown contentBar keyUp authorFix book outline author book outline readerFix reader statusBar initPage w, #> ,%H.% w, #> widObs You can paste it into another ToolBook application. initDialog contentBar s_currentCopy copyDialog stringResource Bwidgets The widget tbk_wid_name CopyWidget has been copied to the clipboard. myCopy .&+ +E .&+ +E BadPaste You must use the authoring version of ToolBook to paste in new widgets. stringResource widgetSchmidget ainitPage newWidget myPaste have been copied to the clipboard. You can paste them into another ToolBook application. Bwidgets The widgets of this page copyAll table Of Contents tableofcontents updatechecks tableOfContents .&+ +E w, "V .&+ +E .&+ +E .&+ +E .&+ +E w, "V .&+ +E cancel 7WrealName g)updateTopics widPage contentBar NeedHeading s_currentTopic book outline nameOfWidget y5chapter Topics ???????? comboRef stringResource noName topics heading chapterID Select Topic newName select topic miscellaneous myPageList TooManyWidgets autoPageName widgetIDs newWidget splash about stringResource widgetHelp statusBar mouseEnter statusBar mouseLeave ,%H.% 8initDLG reader group initDialog locWids needWidgetToEdit s_currentCopy copyDialog widgetProperties stringResource Bwidgets Bwidgets ChooseWidgetToEdit widgetSchmidget ,%H.% w, #? w, #? 1, "Q 1, "Q ,%H.% 1, #> ,%H.% Cancel needWidget askTWName POtbk_wid_props wName rptbk_wid_values ChooseWidgetToCheck to set temp2 group s_currentCopy learnProps copyDialog tabStops setProps Bwidgets Bwidgets noPubProp initDialog tbk_wid_name tbk_wid_name stringResource convToSet Any data accepted checkWids .&+ +E ,%H.% .&+ +E FALSE Cvisited topics Table of Contents TableofContents updateChecks resetChecks 9@darkBlue Please enter a widget name for the object. Please copy a widget to the clipboard before performing this operation. No, don't do it NeedHeading about Please either delete some of this topic's widgets or create a new topic. You can set the properties of this widget in the left-hand column Do you want to repage the book now, or wait until you are done adding and clearing widgets and topics? Please either choose a topic or create a new one. learnProps If you want to use this page, paste the widget from author mode. NoName Please choose a widget in the outline field that you want to delete. In Reader Mode: ver. 1.01 What is the name of your widget? NoDont Sorry, this feature is not yet implemented. What the clipboard contains is not a widget, it is probably text. This topic already has the maximum allowable number of widgets (20). MustCreatetopicName Repage Clearing the book will cause the irretrievable loss of data. Topics are at the outer level of the outline and widgets are at ChooseWidget You need a widget to check. Navigate to the widget you want and try again. askTWName This object doesn't have it's tbk_wid_name property set. button, or double click the chosen textline. nameOftopic Are you sure you want to do this? clearTopic to reset various structures in the book. You can also clear out the whole To continue, please delete some of these topics. Yes, I'm Sure the structure of the book. You can add and delete topics and widgets. YesSure clearBookWarning NotImplemented No help yet for this item. convToSet This widget has no published properties selectNotBGRF needWidgetToEdit the inner level. Choose a topic or a widget and click on the "Go" NoHelp HelpIntro Use the outline to navigate to any topic or widget. TopicToDelete Intro to Widgets wName Error occurred in string fetch, unknown key word. Please select an object not on the background and not a recordField. BadPaste can't create this widget. noPubProp To learn more about these user properties, see the widgets help in this book. (tbk_wid_props and tbk_wid_values) associated with it. Select a Widget To Copy WidgetNotTopic TooManyTopics nameOfWidget You can rearrange the outline by dragging textlines up and down. to the type in the right-hand column: What is the name of your new topic? LastWidget This book already has the maximum allowable number of topics (16). repage For best results, check the "Exclude Background Fields" in the default dialog box that will appear. Please pick a widget to clear, not a topic. setProps Select a Widget to Check. Cancel needWidget You need a widget to edit. Navigate to the widget you want and try again. The Widgets Book Select a Widget to Edit. CopyWidget ChooseWidgetToCheck ChooseWidgetToEdit Close (You should repage before you try to navigate after adding or deleting widgets and topics. If you don't, errors may result.) book in case you want to use this structure as a shell for your own book. No name is associated with this widget, You must create a topic name. Please start again. PageOutlineHelp The widget name of this object is You will need to clear out the widgets belonging to this topic before you can delete the topic. This is the last widget in this book, and can not be deleted. This widget will need a topic heading. In Author Mode: Asymetrix 1994 TooManyWidgets Reader mode functionality is still available, but you can also edit Consider converting these "to set" handlers into published properties of this widget: After editing, it is a good idea to click the "Repage" button in order Please select a topic in the outline field to delete. doRepage stringResource Last page of this background nextPage Create a new topic Clear a widget outlineHelp help_text clearBook keyWord yhelpText clearTopic lastPage outline repaginate previousPage topics Go to heading page for current topic. Previous page (w/ ctrl key = Previous page of this background) clearWidget createWidget Repaginate the book and reset the check marks First page of this background Create a new Widget tableOfContents Next page (w/ ctrl key = Next page of this background) [helpText not yet cached] First page of this topic (w/ ctrl key = First page of this background) Go to page topic table of contents. Show outline viewer and book editor. Clear a topic firstPage Clear all topics and widgets from the book createTopic Last page of this topic (w/ ctrl key = Last page of this background) Error occurred while getting help text, unknown key word. Help for using the outline viewer and book editor. widgetHelp widgetProperties %~)d, in,none ThreeDeeRect bottomLine topLine &Widget Name: in,ms ThreeDeeRect bottomLine topLine widname calendarboard P&roperties: bottomLine topLine proplist allcontrols &Method: edittype proplist options updateFromDB custom selectChange selectChange "custom" mode "options" updateFromDB "proplist" Fieldown List Dropdown List Field Custom Custom options dropdown list field custom dropDown List logical mode value "dropDown List" "dropdown list" "logical" "custom" field field proplist updateFromDB selectchange selectchange updateFromDB "proplist" Accept any datanly Accept any data Read onlybers only Read only Data Constraints: dropdown list .&+ + proplist updateFromDB false listItems listitems eupdateButtons logical @origVal buttonclick buttonclick B"logical" enabled "list" "listitems" origVal "listItems" selectedtextlines updateButtons updateFromDB "proplist" buttonClick logical Lo&gical &List of Values in,ms ThreeDeeRect bottomLine topLine listitems editVal delVal updateButtons updateButtons enabled B"editVal" B"delVal" false newVal cancel updateFromDB propList listitems eupdateButtons Enter a new item: @origval buttonclick buttonclick ZnewProp ("Enter a newprop fref = "listitems" t = origval updateButtons selectedTextLines updateFromDB "propList" buttonClick &New... delVal propList updateFromDB listitems eupdateButtons @origval buttonclick buttonclick fref = "listitems" stl = selectedTextLines updateFromDB "propList" origval selectedTextlines tlc = updateButtons &Delete EditVal Edit the Property Value cancel propVal listitems @origval buttonClick buttonClick fref = "listitems" stl = selectedTextLines propVal = ("Edit the Property Value" origval &Edit... custom F&unction Name: b#r#~ in,ms ThreeDeeRect bottomLine topLine custom propList updateFromDB leaveField updateFromDB "propList" editWidget values Property Browser Editing: cancel propList G[updateDB Enter a new property name: buttonclick buttonclick ZnewProp ("Enter a qproperty newprop fref = "propList" t = selectedTextLines updateDB buttonClick &New... mainEdit proplist cancel Edit the Propery Name. propName buttonClick buttonClick fref = "proplist" stl = selectedTextLines t = tabloc = 9,t)-1 propName= ("Edit the Propery Ed&it... mainDelete proplist G[updateDB buttonClick buttonClick fref = "proplist" stl = selectedTextLines selectedTextlines tlc = updateDB &Delete updateWidget buttonClick buttonClick updateWidget buttonclick buttonclick close buttonClick Cancel widgetProperties splash stringResource about buttonDoubleClick stringResource("about") Widgets Useful Stuff for ToolBook Authors 1994 Asymetrix Corp. ver. 1.01 buttonClick Cancel widgetProperties splash Can't touch this Cant_Touch_This enterPage B"Cant_Touch_This" orig Miscellaneous chapter FALSE visited chapterID Button id 0 of Page id 64 widgets 3269,3928 The descendant of a practical joke, this widget suggests some possibilities for using ToolBook to create interactive games. Cant_Touch_This 1,$!2 mouseEnter -- Tim Pearson, Asymetrix 1/94 Z INT xOld, yOld, xMin, yMin, xMax, yMax, x, y /= "0,0" x = x >= 0 xTRUE y = y >= 0 Cant_Touch_This tbk_wid_name Can't Touch This Widget help 66,67,68,69,70 widgetIDs 66,67,68,69,70 Widget Help Intro to widgets Widget help chapter chapterID FALSE visited Button id 0 of Page id 66 widgets Click the button below to learn more about widgets. Widgets are stand-alone objects that can be copied and pasted into your applications. In most cases they are designed to work without modification of any scripts. While ToolBook and OpenScript have no "widgetry" built into them, there are enough features available that, among the OpenScript programmers at Asymetrix, we have developed a convention and a protocol for making widgets. Widget Talk Widget Talk tbk_wid_name GROUPBOX Welcome,G23,Welcome to Widget Talk BUTTON Basic Widgets,B18,TRUE BUTTON Notify Messages,B19,TRUE BUTTON Init and Cleanup,B20,TRUE BUTTON Advanced Widgetry,B21,TRUE BUTTON Close,B22,TRUE WidgetHelpInit 524480,6,25,25,172,93,,,Widget Help,8,MS Sans Serif,Welcome,14,2,150,55,23,1342177287,128,Welcome to Widget Talk,0,Basic Widgets,19,19,70,12,18,1342242816,128,&Basic Widgets,0,Notify Messages,19,36,70,13,19,1342242816,128,&Notify Messages,0,Init and Cleanup,91,19,70,13,20,1342242816,128,&Init and Cleanup,0,Advanced Widgetry,91,36,70,13,21,1342242816,128,&Advanced Widgetry,0,Close,67,64,43,14,22,1342242817,128,&Close,0 WidgetHelpBox GROUPBOX Basic Widgets,G26,Basic Widgets BUTTON More,B29,TRUE BUTTON Back,B30,TRUE BUTTON Cancel,B31,TRUE STATIC Basic Text,S32,A widget has two basic properties: 1) It can be copied and pasted and be completely functional without modification 2) It has a user property "tbk_wid_name" set to some reasonable text value, and used for purposes of identification by tools30.sbk. BITMAP baswid,p33,bitmap "baswid" BasicWidgetInit 524480,6,25,25,186,193,,,Basic Widgets,8,MS Sans Serif,Basic Widgets,11,5,167,149,26,1342177287,128,Basic Widgets,0,More,15,161,52,14,29,1342242816,128,&More,0,Back,69,161,51,14,30,1342242816,128,&Back,0,Cancel,123,161,50,14,31,1342242816,128,&Cancel,0,Basic Text,24,22,148,56,32,1342177280,130,Text,0,baswid,31,75,114,71,33,1342177280,TBKDLGBitmap,bitmap "baswid",0 BasicWidgetBox GROUPBOX Notify Messages,G39,Notify Messages BUTTON More,B35,TRUE BUTTON Back,B36,TRUE BUTTON Cancel,B37,TRUE STATIC Notify Message,S38,Notify messages are useful for letting the widget know what is going on without modifying any scripts BITMAP Notify,p43,bitmap "Notify" NotifyMessagesInit 524480,6,25,25,170,166,,,Notify Messages,8,MS Sans Serif,Notify Messages,9,4,153,125,39,1342177287,128,Notify Messages,0,More,17,136,47,14,35,1342242816,128,&More,0,Back,67,136,42,14,36,1342242816,128,&Back,0,Cancel,113,136,43,14,37,1342242816,128,&Cancel,0,Notify Message,16,15,141,28,38,1342177281,130,Text,0,Notify,17,45,141,78,43,1342177280,TBKDLGBitmap,bitmap "Notify",0 NotifyMessagesBox GROUPBOX Init and Cleanup,G39,Initialization and Cleanup BUTTON More,B35,TRUE BUTTON Back,B36,TRUE BUTTON Cancel,B37,TRUE STATIC Init and cleanup,S38,We can use "notifyBefore copy" handlers to initialize the widget as it is being copied, and possibly to initialize the book it is being pasted into. We can also use "notifyAfter paste" or "notifyAfter make" handlers to initialize and cleanup the new widget InitandCleanupInit 524480,5,25,25,169,127,,,Init and Cleanup,8,MS Sans Serif,Init and Cleanup,9,4,153,85,39,1342177287,128,Initialization and Cleanup,0,More,17,96,47,14,35,1342242816,128,&More,0,Back,67,96,42,14,36,1342242816,128,&Back,0,Cancel,112,96,43,14,37,1342242816,128,&Cancel,0,Init and cleanup,14,16,145,68,38,1342177280,130,Text,0 InitandCleanupBox GROUPBOX Advanced Widgetry,G39,Advanced Widgetry BUTTON More,B35,TRUE BUTTON Back,B36,TRUE BUTTON Cancel,B37,TRUE STATIC Advanced,S38,Tools30.sbk knows quite a bit about widgets. It can tell if an object is a widget when that object has the user property "tbk_wid_name" set to some value. It also knows about two other properties: 1) tbk_wid_props is a carriage-return line-feed delimited list of properties (user properties) that the widget has and that can be initialized and set according to the parameters of property # 2. 2) tbk_wid_values is a CRLF list with the same number of textlines as tbk_wid_props. Textlines in the two properties correspond. The first item of each textline in tbk_wid_values declares what kind of values the property can take. This can be any of "custom,text,list,boolean,na." The next items in the list will be the legal values for that property. AdvancedInit 524480,5,25,25,237,189,,,Advanced Widgetry,8,MS Sans Serif,Advanced Widgetry,11,5,215,146,39,1342177287,128,Advanced Widgetry,0,More,46,157,47,14,35,1342242816,128,&More,0,Back,98,157,42,14,36,1342242816,128,&Back,0,Cancel,143,157,43,14,37,1342242816,128,&Cancel,0,Advanced,21,20,203,121,38,1342177280,130,Text,0 AdvancedBox Book "C:\TBEA\SAMPLES\WIDGETS\WIDGT78B.TBK" oldBook GROUPBOX Basic Widgets,G26,Basic Widgets BUTTON More,B29,TRUE BUTTON Back,B30,TRUE BUTTON Cancel,B31,TRUE STATIC Basic Text,S32,A widget has two basic properties: 1) It can be copied and pasted and be completely functional without modification 2) It has a user property "tbk_wid_name" set to some reasonable text value, and used for purposes of identification by tools30.sbk. BITMAP baswid,p33, BasicWidgetsInit 524480,6,25,25,186,193,,,Basic Widgets,8,MS Sans Serif,Basic Widgets,11,3,169,154,26,1342177287,128,Basic Widgets,0,More,15,164,53,14,29,1342242816,128,&More,0,Back,70,164,52,14,30,1342242816,128,&Back,0,Cancel,124,164,50,14,31,1342242816,128,&Cancel,0,Basic Text,24,22,149,57,32,1342177280,130,Text,0,baswid,31,76,115,72,33,1342177280,TBKDLGBitmap,,0 BasicWidgetsBox Widget Talk Intro to Widgets Basic widgets Widget help chapter chapterID visited Here are a few pointers on how to make a widget. You may want to develop your own style for creating widgets, but keep the pointers listed below in mind. Some techniques will work fine in one book, but can cause problems when the widget is pasted into another book. Set tbk_wid_name of the widget to the name of the widget. This allows the widget to be recognized by tools30.sbk Use notify handlers. Try to link and unlink dlls to guarantee their availability. ToolBook increments a reference count every time a dll is linked, and decrements it when the dll is unlinked. ToolBook doesn't unload the library or any of its functions until the reference count goes to zero. Use user properties and "to set" and "to get" handlers. Restore the system. It will clobber everything! Use common names like "s_myName" in your system variables. You may clobber or be clobbered. Try using names unlikely to be used elsewhere. Use system variables at all. This is very safe. Try setting and getting user properties of the widget. y setting and getting user properties of the widget. Don'ts Don't FALSE Basic Widgets dgetsx Notify messages Widget help chapter chapterID FALSE visited Field id 7 of Page id 68,Field id 6 of Page id 68,Field id 4 of Page id 68 widgets Use notifyBefore and notifyAfter handlers to activate widgets when built-in ToolBook messages are sent. The examples below use various messages to make sure they display the correct data. The first clock uses enterPage to set a timer, and leavePage to stop the timer. The second clock uses the idle message. The autoPageName example uses the enterPage message to determine the current page name. It is identical to the background field at the upper-left corner of this page. Other useful messages to write notify handlers for include enterApplication, enterBook, enterBackground, other enter event messages and all of their corresponding leave event messages. It's also useful to write notify handlers for custom messages you design into your application. autoTime w/ timer autoTime tbk_wid_name format borderStyle period tbk_wid_props list,none,rectangle,shadowed,inset,raised tbk_wid_values h:min:sec AMPM prop_format period timerID 1:52:45 PMM autoTime w/ idle enterPage h:min:sec AMPM seconds s__autoTimeWithIdle h:min:sec AMPM seconds s__autoTimeWithIdle s__autoTimeWithIdle leavePage notifyBefore notifyAfter 4s__autoTimeWithIdle j:sec AMPM" autoTimeWithIdle tbk_wid_name 1:52:46 PMM autoPageName 6Wrealname enterPage notifyBefore realname autoPageName tbk_wid_name tbk_wid_values Notify messagessnd Cleanupters autoTime with timer: autoTime with idle: autoPageName autoPageName: enterPage leavePage leavePage -ret Initialization and cleanup Widget help chapter chapterID FALSE visited Field id 0 of Page id 69 widgets You can use notify messages to prepare the widget or the book it is being copied to. To prepare the widget to be copied, use the following: notifyBefore copy To prepare the book the widget is copied to and to clean up the widget, use the following: notifyAfter make if target is self testWidget Toggle testWidget tbk_wid_name Book "C:\TBEA\SAMPLES\WIDGETS\PROBLEM\WIDGT75E.TBK" oldBook This field has a graphic in it. Try clicking it. a graphic in it. testWidget buttonClick buttonClick "testWidget" &View Script To make sure we get all the graphic resources this field needs, we will need to copy them to the book we are going to paste the field into. We use the "notifyBefore copy" handler to find out the name of the book we are coming from, and "notifyAfter make" to copy the resources into the new book. Advanced widgetry Widget help chapter chapterID FALSE visited Group id 170 of Page id 70 widgets Tools30.sbk recognizes certain properties as belonging to widgets. When you use these properties, tools30.sbk will enable you to edit the widget. The tools30.sbk protocol: "tbk_wid_name" is the name of the widget. "tbk_wid_props" are properties of the widget. "tbk_wid_values" corresponds to tbk_wid_props. The first item in each textline of tbk_wid_values describes a type for the property, the rest of the line are the legal values for that property. Tools30.sbk understands the following types of properties: text: anything can go in here boolean: true or false list: a list of possible values color: RGB or HLS value multiLine: text or richText font: text, name of font custom: message to send NA: not available to edit You write handlers for the custom messages. Double clicking the line for the custom message in the property browser of tools30.sbk sends that message to the widget. All of these methods together provide a powerful scheme for giving the user access to the widget. Yet, the user is still constrained from making unreasonable choices. One useful strategy is to have the custom message call a dialog (built with dialog.tbk, of course) that sets the various properties. The widget below, based on the MIDI keyboard, combines these ideas. In reader mode, the user goes directly to the dialog box from the Custom edit choice in the right-click tool bar. At Author level, by choosing Custom edit from the group's right click tool bar, the user goes to the tools30.sbk property browser. From there, the properties can be set individually, or the dialog can be set by doubleclicking the custom message.....goes to the tools30.sbk property browser. From there, the properties can be set individually, or the dialog can be set by doubleclicking the custom message. om message. menu, at author it is in the "object" menu. keyboard custom,editWidget boolean boolean list,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 list,0,1,2,3,4,5,6,7,8 list,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127 list,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127 tbk_wid_values editWidget sustain gliss device channel program volume tbk_wid_props MIDI Keyboard tbk_wid_name dlgInit 524480,14,25,25,138,134,,,Dialog,8,MS Sans Serif,,3,3,76,38,3596,1342177287,128,Keyboard Settings,0,,3,43,77,74,3599,1342177287,128,MIDI Settings,0,,8,55,37,10,3604,1342177280,130,Text,0,,8,70,37,10,3605,1342177280,130,Text,0,,8,86,37,10,3606,1342177280,130,Text,0,,8,101,37,10,3607,1342177280,130,Text,0,gliss,8,15,48,9,3602,1342242819,128,&Gliss,0,sustain,8,27,48,9,3603,1342242819,128,&Sustain,0,program,46,54,27,121,3608,1350631491,133,,0,volume,46,69,27,121,3609,1350631491,133,,0,channel,46,84,23,66,3610,1350631491,133,,0,device,46,99,23,44,3611,1350631491,133,,0,ok,85,8,47,13,1,1342242817,128,OK,0,cancel,85,24,47,13,2,1342242816,128,Cancel,0 dlgBox gliss sustain program volume channel device You can also edit these properties using the "Edit Widget Properties" menu item. You can do a quick check of a widget with the "Check Widget" menu item. At reader these are in the "edit" menu, at author, the "object" menu. menu. customEdit Alpha keyboard Keyboards chapter chapterID FALSE visited Group id 27 of Page id 72 widgets The group recognizes which button has been pressed. Pressing a button causes the group to report to the user what button was pressed. The invert property of that button is set to true until the next button is pressed. When pasted into another book, the buttons are all reset and the group is prepared to work without any manual initialization. alphabuttons Button id 10 of Page id 72 buttonPressed alphabuttons tbk_wid_name Button id 10 of Page id 72 invertedButton MIDI keyboard Keyboards chapter chapterID FALSE visited Group id 171 of Page id 76 widgets This control sends MIDI messages to the MMSystem DLL, bypassing the MCI drivers. You must have a sound card to hear anything. By sending messages directly to the DLL, the user is given much more precision. You can use the Ctrl key somewhat like the sustain pedal on a piano. Pressing Ctrl+Shift when you click a key acts as a MIDI "panic button" and shuts off any keys that might be ringing. You can set parameters using the Custom edit button on the right-click tool bar for any of the keys or the group "keyboard." If you are in author mode, you can set these same parameters from the tools30.sbk system book using the customEdit button in the rightClick menu or by selecting the keyboard group and choosing "Property Browser" from the Tools menu. Ctrl-Shift-Click is the "panic button" keyboard custom,editWidget boolean boolean list,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 list,0,1,2,3,4,5,6,7,8 list,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127 list,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127 tbk_wid_values editWidget sustain gliss device channel program volume tbk_wid_props MIDI Keyboard tbk_wid_name dlgInit 524480,14,25,25,138,134,,,Dialog,8,MS Sans Serif,,3,3,76,38,3596,1342177287,128,Keyboard Settings,0,,3,43,77,74,3599,1342177287,128,MIDI Settings,0,,8,55,37,10,3604,1342177280,130,Text,0,,8,70,37,10,3605,1342177280,130,Text,0,,8,86,37,10,3606,1342177280,130,Text,0,,8,101,37,10,3607,1342177280,130,Text,0,gliss,8,15,48,9,3602,1342242819,128,&Gliss,0,sustain,8,27,48,9,3603,1342242819,128,&Sustain,0,program,46,54,27,121,3608,1350631491,133,,0,volume,46,69,27,121,3609,1350631491,133,,0,channel,46,84,23,66,3610,1350631491,133,,0,device,46,99,23,44,3611,1350631491,133,,0,ok,85,8,47,13,1,1342242817,128,OK,0,cancel,85,24,47,13,2,1342242816,128,Cancel,0 dlgBox gliss sustain program volume channel device buttonup customEdit enterPage reader leavePage author contentBar autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level prop_disablePage nextPage help_text Previous autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level first prop_disablePage previousPage help_text First autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level first prop_disablePage firstPage help_text autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level prop_disablePage lastPage help_text enterPage keyDown keyUp contentBar Book Outline FALSE visited sizeSample Size Sample sizeSample book outline buttonClick keyChar buttonClick 8outline" keyEnter -- enter %alias spacebar buttonclick FALSE Cancel book outline buttonClick buttonClick close 8outline" Cancel edit buttons repage stringResource Repage doRepage doRepage doRepage rP = stringResource("repage") 'wait") buttonClick New Widget XdoRepage newWidget buttonClick buttonClick newWidget doRepage createWidget helpText New Widget New Topic createTopic helpText New Topic Clear Widget clearWidget helpText Clear Widget Clear Topic .&+ +E .&+ +E .&+ +E .&+ +E topicToDelete g)updateTopics clearTopic contentBar tPage ainitPage stringResource topics XdoRepage ainitpage widgetIDs buttonClick buttonClick stringResource("topicToDelete") widgetIDs <> tl tPage selectPage initpage initPage -- the Mwas = "contentBar" clearTopic") updateTopics -- handlers doRepage clearTopic helpText Clear Topic Repage repage buttonClick buttonClick repage TRUE Repaginate helpText Repage Clear Book 4875,3060 lessBG clearBook helpText Clear Book stringResource PageOutlineHelp buttonClick buttonClick stringResource("PageOutlineHelp") 5145,3570,6625,3900 authorBounds 5145,1155,6625,1485 readerBounds OutlineHelp help_text outline Outline marker vertLoc vertLoc b value ypix = syspageunitsperpixel halfH B- 3* book outline source Navigation widgets Data widgets Field widgets Slider widgets CBT widgets Keyboards Miscellaneous Widget helpdate on leaveField, text Validate on keystroke, numbers Validate on keystroke, text Useful patterns Spinners Add and remove Directories and files Time and date Calendar Printer Resolution Win version & DOS version Windows or WFW Field widgets Insert/overstrike Outline Outline rearranger Max select field Ex Select field Self sorting field Searching field Auto-scrollbar field Bold, italic, and underline Drag a textline Drag and drop text Multiple OLE drag & drop Show off Slider widgets Sliders Ratchet Scale Slider CBT widgets True and false Multiple choice Keyboards Alpha keyboard Qwerty keyboard Calculator MIDI keyboard Miscellaneous Object effect Slow-motion Exit Windows Can't touch this Widget help Intro to widgets Basic widgets Notify messages Initialization and cleanup Advanced widgetry Select Topic keyChar keyEnter buttonClick B"OK" FALSE visited s_currentTopic Select Topic buttonClick keyChar buttonClick 4s_currentTopic comboBox "Select close keyEnter -- enter %alias spacebar buttonclick FALSE Select Topic Topics enterDropDown enterDropDown odropDownItems Topics Bobget helpssdgets42,77 Data Field Widgets Slider Widgets CBT Widgets Keyboards Miscellaneous CBT widgets Data widgets Field widgets Keyboards Miscellaneous Navigation widgets Slider widgets Widget help idget help Cancel s_currentTopic Select Topic buttonClick buttonClick 4s_currentTopic "Select close Cancel Select Topic keyChar keyEnter buttonClick B"OK" NOTIFY DIA WIDG DIA TMP TXT SCALSLIDTBK LNKWID3TBK ISOBJECTTBK MINUS BMP Multiple choice CBT widgets chapter FALSE visited chapterID Group id 13 of Page id 37,Group id 6 of Page id 37 widgets You can set these widgets for multiple choice questions.' These widgets send a user-defined message. At Reader level you can right-click the group, then click the Custom edit button on the right-click tool bar to determine which button sends what message and to edit the buttons' captions. There is also a to set handler that will display the same editing dialog box. You need to set the editWidget property of the group to any value. For example, select the group (just the buttons, not the red border,) then type in the Command window: set editWidget of selection to 1. This property can also be set from the object properties list given by tools30.sbk at Author level; just double-click on the editWidget line. You can place the message handlers in the group script or edit the ones already there. Most of the work is done in a script in an invisible field. You can get to the script of this field by selecting the appropriate group and executing the following command in the Command window: edit script of item 1 of objects of selection. CBT Buttons buttonDown <ManswerMessage buttonUp editWidget You chose answer1 You chose answer2 You chose answer3 You chose answer4 -- Tim Pearson, Asymetrix 1/94 = FALSE >= TRUE (answerMessage editWidget customEdit the handlers below suit your needs -- answer1 "You chose" && answer2 answer3 answer4 CBT Buttons tbk_wid_name editWidget tbk_wid_props custom,editWidget tbk_wid_values widgetParent answer1 answerMessage Answer &1 answer2 answerMessage Answer &2 answer3 answerMessage Answer &3 answer4 answerMessage Answer &4 CBT Radio Buttons <ManswerMessage buttonClick editWidget You chose answer1 You chose answer2 You chose answer3 You chose answer4 -- Tim Pearson, Asymetrix 1/94 buttonClick (answerMessage editWidget customEdit the handlers below suit your needs -- answer1 "You chose" && answer2 answer3 answer4 CBT Radio Buttons tbk_wid_name editWidget tbk_wid_props custom,editWidget tbk_wid_values widgetParent answer1 answerMessage Answer &1 answer2 answerMessage Answer &2 answer3 answerMessage Answer &3 answer4 answerMessage Answer &4 customEdit reader enterPage author --Copyright 1991-1994 Asymetrix Corporation gives you permission e, revise reuse the --individual scripts your own --applications. You may x, however, Sentire --substantial part redistribution jproduct. retains copyright on original elements . Include notice "Portions are they --contain copied --A note on language independence: For ease translating strings readers that come functions located --The names these letters: " toggleStatus openWindow 4memory, theStore, svNumFormat = TRUE [displays initialize up formats B"clear_all" l = 0 k = 0 "0" & sysDecimal & "00" o= default = FALSE --controls numbers, checks overflow, multiple --points, sets Jkey value generic 4last_key ") >= 16 continued 0's " = 0 --replace " = 0 "0." --append "0." keystroke --This performs calculations. If no values had been entered --saved, 're repeatedly hitting same operator , no action taken. If one passed jno other If two calculated previously stored their --result displayed scrollable tape. val1. new_op op, savekey --ignore hits on "+-x/") "+-x/")) --special equal sign x"mr" x"math" have .out dividing --only operation " = 0 strNoZeroDivide() under/ c strOverflow() c strUnderflow() handler intercepts strokes If a --calculator equivalent pressed, a Emessage sent corresponding ZSTRING keyAsChar "0123456789+-*/="& ("0") ("9") ("0")) = "*" = "x" = "=" posNum num isType(REAL, >= 0 strDisplayNumber fValue If there's no dec pt don't There's a "Can't divide -- This message sent clicked changed Hsetting -- tabMode. Put code handler, -- on tabPressed tabNum -- handles clicking on buttonClick -- test 9was Hchecking "obtype" userProperty -- each named " ", N being tabname -- Changes which 9folder front. It does Hmoving U"mask" -- Value zbetween 1 tabs value < 1 > tabLimit() "Cannot 9" && -- moves visually -- appear See sized below adiagram v + xpix(), -- stores a userproperty myTabMode -- sends notification -- The handlers resizing ,mode. -- -- Used %a constant. Returns -- Note: you wish more , follow procedure: -- Go duplicate one -- Rename that 9appropriately. ( instance would -- be Tab7", thirteenth # be "Tab13"). -- Set its behind function reflect pageUnits given n pixels. xPix n sysPageUnitsPerPixel * n yPix n Tel * n -- returns currently selected -- sets up height units. tabHeight myTabHeight handled tabSpace myTabSpace arrangeTabs numTabs valid parameter "Must have )least 1 "Can only /" && && " -- cache {reference optimization. 9"&i) i <= -- hidden %they've xbeen -- receiving them # are "manual" myNumTabs myNumtabs resized Notice -- methodSent: used differentiate =messages toolBook explicitly syssuspendmessages off toolbooks messaging, %we will be changing stuff. Without recursively -- calls itself over sysSuspendMessages thing has a called 5,6 _________ 7,8 3,4 | | 9,10 1,2 |____________| 11,12 -- Here amap -- goal here maintain shape -- . (Otherwise gets stretchy.) Also, -- should be -- find how tall supposed -- tabRef -- tsection makes " corners -- Need be sure -- wide 4doing m"tabHighlight" B"tabLabel" l (), < () -- -- editor. rectangular -- body -- following condition triggered %a whole , even though their sizes So we must notify can themselves. xarranged -- 9"&i) -- don't bother arranging -- x on -- assures aligned spaced evenly. anchor "tab1" where order xPos bp - b(ts,0) through remaining place -- 9"&i) ()+ts -- -- now tbit masking others. bchecks x(e.g., just moved tname 9" & above buildcal d, m, y wrkday = weekDay(1, m, y) "days" = NULL resetObj = LIGHTGRAY .BLACK ;RAISED counter = daysInMonth(m) i = d ;INSET KGREEN " && QUOTE & displayDate m, y %"M" comboBox "calMonth" = m Year" = y d, m, y SYSTEM leapyear LOCAL mfactor, cfactor day1, yr yr = leapYear = isLeapYear(y) G = "034025036146" ^ = "144025036146" y >= 1900 y <= 1999 y >= 2000 y <= 2099 y >= 1800 y <= 1899 y >= 1700 y <= 1799 y >= 2100 y <= 2199 (yr + (yr y4) + + d + m <> 2 "31,28,31,30,31,30,31,31,30,31,30,31" -- returns the weekday beyond 1/1/1700: -- note: requires full . Example: "1/1/1995") -- also ) function below dayOfWeek pdate aa list out %"m,d,y" "m/d/y" following each month) that have passed "0,31,59,90,120,151,181,212,243,273,304,334" numdays elapsed since 1/1/1700 (y-1700) y4-(y-1700) y100 +(y-1600) \ y400 + 365 * (y - 1700) + o+ d -1 m <= 2 k7 +1 "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday" -- Returns TRUE , FALSE -- NOTE: fuction a four digit Find 1992 (1992) k4 = 0 k100 <> 0) k400 = 0)) notifyAfter -- initialize buttonClick B"today" searchReplace pm gref bitmap "plus" minus" sofar tchar ~(pm, fs > 0 graphic t,tl,sh (selectedtextlines lockScreen a1Loc ~(a1,tl) subheadings(outLineNumber(n,t)) k& sh curLevel indentLevel(tl) FALSE keyenter operatingMode value curmode source "off" notifybefore operatingmode notifyafter subHeadings t,tl,retval n,i,headingLevel,testLevel,prevTestLevel,retlinecount -- textLineNumber( ,t) -- find out what level -- point -- y, so outermost headinglevel -- walk through outline, grabbing everything that --one below current -- results 9& tl & -- a child a "+" tabs (ignoring "+" "-") preceding a counter xansitoChar(1) -- returns numbers form "1,3,2,1" etc -- based on a given outlineNumber , theText Zt,n,i,currentIndentLevel,retVal 1 -- only -- found -- elder sibling -- ''s descendant actual -- corresponds textlineNumber ZiLevel,n,iSibling, 1 -- foundNextSibling t) > -1 -- t) < -1 -- -- didn't expected older -- therefore specified isn't notifyAfter oldBook eresource notifyBefore ogoes "Use o, on widget." "You must 4copying f"Save" "Cancel" saveAs -- Drag drop outline arrangement -- Joseph Brick, November 93 -- This main dragAndDrop code: ZstartLine,endLine,lineHeight,mybounds,xloc,mytext -- Find Bclicked on. qwill be ustarting -- Break user G edge startline < 0 Uwe want n. we value -- later handler, we've a heading: endline -- lineheight pageUnits (see V below): -- Cache commonly used values xpix sysPageUnitsPerPixel ypix myBounds myText marker totalLineCount we know be between sides xLoc + xPix -- The following section selects B(s): -- lineList a list corresponding selectedTextLines -- we wish 9-- (We've count -- Walk down Zwe hit another -- incrementing needed: oselectedTextlines moves arrow up -- targetLine insertion point loop executes mousebutton released: mouseLoc -- above -- calculate Ucurrently -- - yPix there's beyond -- somewhere -- -- vertLoc -- lineYloc returns `location a given -- -- inside U(s): toward U(s) 1 place -- that we -- numLines -- targetline > CRLF & -- we asure moved -- -- original -- "," & font: occluded ( xhidden, but covered) "sizeSample" units lineNum,b, 2 - 1 - -- adjusts . Called adjustSize n * n + 3* v - 5* 4ARRAY STRING itemArray[] ZWORD itemNumber, stringLength asure the array initialized \1] = sendNotifyBefore "index" Zkey so placed --lock screen speed closest match = TRUE --cache so I don't have zso many property lookups. --store length current we are searching numberItems = dimensions( there I want only one za binary --begining lphabetic that letter binarySearch( -- 8we found selectedTextlines more sequential -- currently Uwhich -- element less than -- sequentially "down" -- greater equal we reach + 1] < we dropped out because strings zshould be incremented so hilighted above + 1] = -- -- "up" -- ] >= > 1 - 1] >= -- our " = FALSE upper lower starting point currentPosition = ( DIV 2 --keep narrowing Zeither a no elements we throw <" half below exact was need further where --we Y we matches --we find a "up" - 1] -- Slider control begins here -- NOTES ABOUT IDENTIFIERS -- s_slider prefix -> ZSTRING className = txClassName c"Thumb" setSliderLimits 4s_sliderv, s_sliderMin, s_sliderMax, s_sliderPosition loc -- flag prevent updating mouse xmoved s_sliderV <> "HSliderThumb" B)), sldrPosition slidePos( "VSliderThumb" snapSlider( Q1 - glide = width = centered height = thumbPosition, b(0,( j) /( value -- Another may be controlling OldMin OldMax j(1,( "vSliderThumb" pOffset ) * (1- newPos "hSliderThumb" -- Restore state ZSTACK detents = detentList catchRange M) < 0 -- Slider control begins here -- NOTES ABOUT IDENTIFIERS -- s_slider prefix -> ZSTRING className = txClassName FALSE c"Thumb" setSliderLimits 4s_sliderv, s_sliderMin, s_sliderMax, s_sliderPosition A = loc -- & flag prevent updating mouse xmoved s_sliderV <> "HSliderThumb" B)), sldrPosition slidePos( "VSliderThumb" snapSlider( Q1 - glide width height thumbPosition, b(0,( j) /( value -- Another may be controlling OldMin OldMax j(1,( "vSliderThumb" pOffset ) * (1- newPos "hSliderThumb" -- Restore state ZSTACK detents = detentList catchRange M) < 0 -- sets the thumb location specifed sliderPos value Zscale sliderMin sliderMax mySliderPos xPix sysPageUnitsPerPixel sliderBounds "bar" nearestPupp( oldP nearestPUPP( percentage newP x1 + (x2-x1-w)* sliderMove -- renumbers labels , numTics, tallTicSpacing adjustNumbers numFields w / ts j) / 5),10) curfield xCenter U(i*ts) ),10)+1 -- centers {horizontally on maximum && " invalid." mySliderMax minimum && " mySliderMin frequency tic marks on high U"0" U"0" FALSE myTallTicSpacing tics on > 50 must be a between 1 thumbWidth U"base" (x2 - x1) / leftMost curLine curline myNumTics gets above. -- notify handlers Mthese messages aren't handled. notifyBefore startSliderMove *endSliderMove -- returns whole pixel, pageunits val, Jprimary mouse primaryMouseButton linkDLL "user" getSystemMetrics( 23) > 0 unlinkDLL " -- Tim Pearson, Asymetrix 1/94 customEdit 4 s_answerMessages Z init, box, answers linkDLL sysToolBookDirectory & "tb30dlg.dll" STRING DialogCallback (WORD, &SetValue ( @ GetValue ( INT AddListBoxItem ( $DeletenListBoxItem ( EEnableControl ( GetControlText ( GetDialogFocus ( GetListBoxItems ( GetListBoxSelection ( GetnListBoxSelection( SetControlText ( SetDialogFocus ( SetListBoxItems ( SetnListBoxSelection( endTBKDialog ( = ",G3597,Answers: ,S3603, Send When Chosen: LISTBOX ,L3596, BUTtoN ,B3600,NODISMISS delete,B3601, ,B3602, #EDIT message,E3604, Iok,B1,TRUE J,B3606,FALSE" box = "524480,9,25,25,228,104,,, Multiple Choice,8,MS Sans Serif,,2,4,171,80,3597,1342177287,128, ,0,,5,59,125,7,3603,1342177280,130, ,5,17,124,39,3596,1352728577,131,,0, ,133,17,37,12,3600,1342242816,128,&Add,0, 133,31,37,12,3601,1342242816,128,& ,133,45,37,12,3602,1342242816,128,& ...,0, 5,69,124,11,3604,1350631552,129,,0,ok,178,7,44,12,1,1342242817,128,OK,0, J,178,22,44,12,3606,1342242816,128,Cancel,0" Bi - 1 i - 1 "listBox (windowHandle unlinkDLL y & " TBKDialogInit hDlg,ctrlId,hWnd,msg,ctrlName , cnt l"listbox U = textlineCount( o <= 1 TBKDialogCommand { thisLayer Z sel, foc, , newAnswer, cnt, answerCount, oldScript msg = 1 Caption:" r<> " Bsel = "Button cnt = ) + 1 &" & -1,0) " & , = <> NULL u ",sel) = cnt - 1 <= 1 foc = r<> " lockScreen ) - 1 < cnt ) - 1 > " & (i - 1) " & i &" & i = objLayer( B" && QUOTE & " " & i & " && {" & CRLF & \ TAB & " }" & >" & editWidget" & }" & tbk_wid_name tbk_wid_props tbk_wid_values = i - 1 Bi - 1 i - 1 i - 1 i - 1 0) -- 0 = notifyBefore -- Tim Pearson, Asymetrix 1/94 customEdit 4 s_answerMessages Z init, box, answers Z LONG i linkDLL sysToolBookDirectory & "tb30dlg.dll" STRING DialogCallback (WORD, &SetValue ( @ GetValue ( INT AddListBoxItem ( $DeletenListBoxItem ( EEnableControl ( GetControlText ( GetDialogFocus ( GetListBoxItems ( GetListBoxSelection ( GetnListBoxSelection( SetControlText ( SetDialogFocus ( SetListBoxItems ( SetnListBoxSelection( INT endTBKDialog ( = ",G3597,Answers: ,S3603, Send When Chosen: LISTBOX ,L3596, BUTtoN ,B3600,NODISMISS delete,B3601, ,B3602, #EDIT message,E3604, Iok,B1,TRUE J,B3606,FALSE" box = "524480,9,25,25,228,104,,, Multiple Choice,8,MS Sans Serif,,2,4,171,80,3597,1342177287,128, ,0,,5,59,125,7,3603,1342177280,130, ,5,17,124,39,3596,1352728577,131,,0, ,133,17,37,12,3600,1342242816,128,&Add,0, 133,31,37,12,3601,1342242816,128,& ,133,45,37,12,3602,1342242816,128,& ...,0, 5,69,124,11,3604,1350631552,129,,0,ok,178,7,44,12,1,1342242817,128,OK,0, J,178,22,44,12,3606,1342242816,128,Cancel,0" Bi - 1 i - 1 "listBox (windowHandle unlinkDLL y & " TBKDialogInit hDlg,ctrlId,hWnd,msg,ctrlName , cnt l"listbox U = textlineCount( o <= 1 TBKDialogCommand Z OBJECT thisLayer Z sel, foc, , newAnswer, cnt, answerCount, oldScript msg = 1 Caption:" r<> " Bsel = "Button cnt = ) + 1 &" & -1,0) " & 4 = <> NULL } ",sel) = cnt - 1 <= 1 foc = r<> " lockScreen ) - 1 < cnt ) - 1 > " & (i - 1) " & i &" & i = objLayer( B" && QUOTE & " " & i & " && buttonClick" & CRLF & \ TAB & " >" & editWidget" & }" & autoRadioButtons tbk_wid_name tbk_wid_props tbk_wid_values = i - 1 Bi - 1 i - 1 i - 1 i - 1 0) -- 0 = notifyBefore buttonClick -- showWidgetHelp linkDLL sysToolBookDirectory & "tb30dlg.dll" dialogCallback ( ! ( setValue ( getValue ( endTBKDialog ( customDialog unlinkDLL ry & " 4s_whichDB init WidgetHelpInit retValue (WidgetHelpBOX *,"Button Basic Widgets") showBasicWidgets CNotify Messages") showNotifyMessages Cleanup") "Initialization showInitandCleanup Advanced Widgetry") showAdvanced BasicWidgetInit (BasicWidgetBOX ck") More") pCheck = " " && QUOTE & isObject( "There named" && & "." NotifyMessagesInit (NotifyMessagesBOX ck") " && & "." InitandCleanupInit (InitandCleanupBOX ck") " && & "." AdvancedInit (AdvancedBOX ck") " && & "." notifyAfter oldBook eresource bitmap "basWid" notifyBefore Cut ogoes "Use o, on widget." "You must 4copying f"Save" "Cancel" saveAs searchReplace pm gref bitmap "plus" minus" sofar tchar ~(pm, fs > 0 graphic t,tl,sh (selectedtextlines a1Loc ~(a1,tl) subheadings(outLineNumber(n,t)) k& sh initPage curLevel indentLevel(tl) keyEnter 2 > 32 < < 41 -- pageUp other nav B"Go" B"Go" operatingMode value curmode source "off" t,tl,retval n,i,headingLevel,testLevel,prevTestLevel,retlinecount -- textLineNumber( ,t) -- find out what level -- point -- y, so outermost headinglevel -- walk through outline, grabbing everything that --one below current -- results 9& tl & -- a child a "+" tabs (ignoring "+" "-") preceding a counter -- returns numbers form "1,3,2,1" etc -- based on a given outlineNumber , theText Zt,n,i,currentIndentLevel,retVal 1 -- only -- found -- elder sibling -- ''s descendant actual -- corresponds ZiLevel,n,iSibling, 1 -- foundNextSibling t) > -1 -- t) < -1 -- -- didn't expected older -- therefore specified isn't -- See "Drag drop arrangement" widgets ZstartLine,endLine,lineHeight,mybounds,xloc,mytext -- we can -- but, hey, no prob, a read -- Find Bclicked on. This will be starting -- Break user K edge startline < 0 Uwe want n. we -- later handler, we've endline -- lineheight pageUnits (see -- Cache commonly used values xPix sysPageUnitsPerPixel yPix myBounds myText marker totalLineCount we know be between 6 sides -- The following section selects B(s): -- lineList corresponding selectedTextLines -- we wish 9-- (We've -- Walk down Zwe hit another -- incrementing needed: moveSecFlag = TRUE oselectedTextlines moves arrow up -- targetLine insertion loop executes mousebutton released: mouseLoc -- above -- calculate Ucurrently -- beyond -- somewhere -- -- vertLoc -- lineYloc `location -- -- inside U(s): toward U(s) -- -- numLines X - h + 1 -- room -- don't we're moving a movedWid = -- testLine = past original newHeading = chapter wAdjust = 0 -- 1 -- old ;, take account (widgetIDs > (20 + stringResource("TooManyWidgets") -- same -- -- we already tested , use those , faster oldChapter mWID chapterID "," & -- clean pList -- targetline > -- we asure -- -- -- "," & outlineText -- we sync up -- We're sparse "map", inefficient a large -- but should work ok our narrow purposes. -- There N^2 slots N entries, -- statements part speedy. It -- 'two loops N + approx ( N* N)/2 times ZoutlineMap[][] fill ZtopicList,ToCList,myPageName,pageList -- tLCoT = -- beginning each "row" have <> TAB -- majorI minorI -- spot i -- inner \] = 1 -- i][1] = 1 & "," & CRLF i + 1 i][j] = 1 tempName tempID & "," topicIDs repage = FALSE font: 's a hidden "sizeSample" units - 1 - -- adjusts . Called adjustSize n * n + 3* v - 5* Asymetrix Widgets Book Copyright 1994 (Corp. Primary ,: Charles Hiestand fhelp : Joseph Brick widgets just about everybody. gives you permission e, revise reuse the individual scripts your own applications. -- You may x, however, Uentire a substantial part redistribution lproduct. retains copyright on original elements . Include notice "Portions are Corporation" they contain copied -- A note on language independence: For ease translating strings that come readers two functions located -- The names these "stringResource" "widgetHelp". enterApplication -- used custom Back handler 4s_backMessageSent 4s_widFirstFlag "Clear Chec&ks" alias resetChecks fhelpText " Xmarks table contents ..." ncheckWids gUse e"E&dit Properties..." "widgetSchmidget" xsysRuntime ..." "Contents" have rebuilt 8, prevent "What's a showing up. -- This property only outline widHelp FALSE statusBar "splash" close readerFix -- turn off = TRUE leaveApplication -- hm, makes sure things Uup, especially 640 X 480 mode Ztemp,doGroup /"contentBar" /= "Main" must be Llevel, i.e. -- no burried tbk_wid_name Label" ) > 1 enterMenu mName, mAlias -- newViewer takes care Mwhere user scrolls down (thus -- genereating another "Object" sel = (targetWindow (onBackground f)=1) enable disable <> " rest <> NULL "myPaste" localWids "myCopy" e"CopyAll" menuItemSelected "Author" -- By navigating we avoid conflicts fskipNavigation -- we can interleave different backgrounds ("HelpIntro") initPage "nextBG" "previousBG" /"main" 4LOGICAL -- a better BACK puts navigation x* initiated sS = -- handling behaves like winhelp's ) > 0 -- we messages trigger notify handlers buttons authorFix -- stub insure no error be generated 4s_currentCopy widObs never be = 0 +) = 1 " && QUOTE & "has been clipboard." \ ToolBook CRLF "copyDialog" ("CopyWidget") initDialog --always a modal " && authoring version newWidget ("BadPaste") -- debug -- code place {somewhere reasonable on -- "border" around copyAll " &&\ them tableOfContents pref updatechecks "tableofcontents" 4s_currentTopic comboRef = comboBox " dropDownItems ITopics dialog box ("NeedHeading") (widgetIDs ) = 20 ("TooManyWidgets") (nameOfWidget) could be more robust ("noName") c"," ~(",", newName /<> " widPage -- misc. 'cause. pcbgM pcTMisc (myPageList "miscellaneous") chapter "heading" chapterID ) > 32 -- won't fit realName "autoPageName" updateTopics locWids = /<> " ("needWidgetToEdit") o) > 1 ("ChooseWidgetToEdit") initDLG "widgetProperties" = sel "," & setTemp, /<> " >checkWidget ) > 1 ("ChooseWidgetToCheck") = sel "," & & ":" && ("askTWName") r<> "Cancel" ") && ") && tWP = tbk_wid_props ("setProps") & tWV = tbk_wid_values textlineCount( ) > 17 tabStops = TAB ) > 6 temp2 = -- shouldn't happen 7"Any data accepted" ("noPubProp") & sOS = /<> " TAB & ("convToSet") & ("learnProps") visited updateChecks "TableofContents" -- returns dark darkBlue 240,25.125,100 % keyWord #" & & "ver. 1.01" & 9#1994" {doesn't ." && \ "Please probably ." && \ 4performing operation." & "If n#want choose a delete." "clearBookWarning" "Clearing 8will K$rretrievable loss ." && \ "Are "clearTopic" %belonging "Close" "Consider converting published & To "doRepage" repage 8now, wait $done adding clearing N?" & &try navigate deleting N. If f't, errors %result.)" $best results, X&""Exclude Fields"" s&default appear." "LastWidget" xbe deleted." , see "Less" "More" "MustCreatetopicName" 'create a "nameOftopic" ." & either qone." X. Navigate "NoDont" "No, don't "NoHelp" )yet "NotImplemented" "Sorry, feature ;implemented." "NoName" associated && "can't && "( "PageOutlineHelp" "In Reader Mode:" & *." & p*outer )" & *ner click on *""Go""" & *chosen B." & & "In $ functionality still available, but also o+structure +." & rearrange Hdragging s#." & "After editing, a good idea c) various structures [,whole" & %a shell "selectNotBGRF" * column"\ :-type Malready x-maximum allowable -(20)."\ "TooManyTopics" N(16)."\ && "To d, please "TopicToDelete" "Wait" "WidgetNotTopic" pick a "YesSure" , I'm "Error occurred fetch, unknown key 3- trgt help_text : catch messy stuff ) > 1 && "[ cached]" "clearWidget" "createTopic" "createWidget" F a "firstPage" M(w/ "lastPage" M(w/ "previousPage" "Previous "nextPage" "Next "repaginate" "Repaginate "Show 8editor." "outlineHelp" cgetting Multiple Choice Initialization and Cleanup Keyboards Alpha Buttons,Qwerty Keyboard,Calculator,Midi Keyboard myPageList 72,58,59,76 widgetIDs 72,58,59,76 Keyboards Miscellaneous Three contentBar enterPage keyDown keyUp -- trap stop infinite loop navigation Bnotify handlers out,true ThreeDeeRect bottomLine topLine heading raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values faceText highlight Table of contentss shadow Table of contentss Table of contentss tableOfContents tableOfContents buttonClick buttonClick tableOfContents currentPage tableOfContents help_text Table of &contents SectionLabel Topic:n: topics topics buttonclick enterPage buttonclick currentPage notifyBefore -- hard wired accomodate multiple backgrounds "main" oenabled FALSE topics help_text &Topics Outline cancel Cancel book outline Book Outline buttonClick buttonClick 8outline" "Cancel" "Book Outline" outline help_text &Outline enterPage Qwerty Keyboard Advanced Widgetry Book Outline Calculator Keyboards chapter FALSE visited chapterID Group id 28 of Page id 59 widgets Ten-key style calculator with memory. A regular old calculator, works great except that it's not solar powered. Calculator Calculator tbk_wid_name memory buttonClick buttonClick 4memory display memory last_key buttonClick buttonClick 4last_key, memory "display" -- display last_key memory buttonClick buttonClick 4memory, last_key "display" "mr" display memory last_key buttonClick buttonClick 4last_key, memory "display" --subtract calculate buttonClick buttonClick calculate ( LBdisplay buttonClick buttonClick display ( decimal clear display last_key buttonClick theStore buttonDoubleClick buttonClick 4last_key "display" Jkeystroke 4theStore, op --initialize temp value operator plusminusbtn display buttonup "display" * (-1) display buttonClick buttonDoubleClick buttonClick 10011997480157360e+036 hotword month buttonup .%, #? decrement daysInMonth is outside range 1 to increment decrement month increment month out of range 1 to 12 month month month decrement increment out of range 00 to 99 month mm / dd / yy newHotwordID initialize 31,28,31,30,31,30,31,31,30,31,30,31 month daysInMonth hotword newHotwordID V, #> mouseLoc marker count lineHeight targetLine lineList tlines llineYloc tline IvertLoc buttonDown lineHeight sizeSample lineHeight lineYloc marker lineHeight adjustSize txClassName Thumb setSliderLimits buttonDown 1,"!# s_sliderPosition HSliderThumb s_sliderv VSliderThumb txClassName s_sliderMin s_sliderMax oslidePos 9sldrPosition buttonStillDown s_sliderV snapSlider s_sliderPosition HSliderThumb VSliderThumb txClassName s_sliderMin s_sliderMax oslidePos sliderPosition buttonUp s_sliderV }[centered HSliderThumb height VSliderThumb txClassName s_sliderMin s_sliderMax width glide setSliderLimits slidePos 9sldrPosition sliderPosition newPos OldMax hSliderThumb pOffset group SliderThumb OldMin vSliderThumb txClassName s_sliderMin s_sliderMax thumb setSliderLimits sliderPosition 9sldrPosition sliderPosition detentList snapSlider sliderMove sliderMax sliderMin sliderMax sliderBounds sliderMin nearestPupp thumb mySliderPos nearestPUPP sliderPos sliderMax curfield numTics mtallTicSpacing sliderMin DxCenter LnumTics adjustNumbers xCenter mySliderMax sliderMin W\adjustNumbers is invalid. sliderMin sliderMax sliderMax sliderMax mySliderMin W\adjustNumbers is invalid. sliderMin ,%H.% myTallTicSpacing W\adjustNumbers tallTicSpacing curLine sliderMax sliderMin thumb sliderMax sliderBounds W\adjustNumbers sliderMin numTics must be a value between 1 and 50. myNumTics nearestPupp nearestPUPP leftMost numTics myTallTicSpacing tallTicSpacing mySliderMin sliderMin myNumTics numTics mySliderMax sliderMax mySliderPos sliderPos startSliderMove sliderMove endSliderMove nearestPUPP getSystemMetrics getSystemMetrics primaryMouseButton kGetValue button ok tb30dlg.dll vSetValue FALSE EDIT message,E3604, BUTtoN ok,B1,TRUE BUTtoN cancel,B3606,FALSE listBox answers 524480,6,25,25,186,74,,,Edit True or False,8,MS Sans Serif,,2,3,130,55,3607,1342177287,128,Answers:,0,,5,32,125,7,3603,1342177280,130,Text,0,answers,5,13,49,21,3596,1352728577,131,,0,message,5,42,124,11,3604,1350631552,129,,0,ok,136,7,44,12,1,1342242817,128,OK,0,cancel,136,22,44,12,3606,1342242816,128,Cancel,0 <ManswerMessage vADialogCallback =ManswerMessage 2 s_answerMessages DialogCallback GetValue SetValue GetnListBoxSelection GetControlText SetControlText SetnListBoxSelection endTBKDialog ,G3607,Answers: ,S3603,Message to Send When Chosen: LISTBOX answers,L3596,TRUE customEdit SetnListBoxSelection listBox answers TBKDialogInit LISTBOX answers GetnListBoxSelection SetControlText Button ok GetControlText endTBKDialog EDIT message listBox answers Button cancel edit message 2 s_answerMessages TBKDialogCommand reader customEdit reader enterPage author tb30dlg.dll vSetValue DialogCallback SetValue GetValue AddListBoxItem DeletenListBoxItem EnableControl GetControlText GetDialogFocus GetListBoxItems GetListBoxSelection GetnListBoxSelection SetControlText SetDialogFocus SetListBoxItems SetnListBoxSelection endTBKDialog listBox answers 524480,9,25,25,228,104,,,Edit Multiple Choice,8,MS Sans Serif,,2,4,171,80,3597,1342177287,128,Answers:,0,,5,59,125,7,3603,1342177280,130,Text,0,answers,5,17,124,39,3596,1352728577,131,,0,add,133,17,37,12,3600,1342242816,128,&Add,0,delete,133,31,37,12,3601,1342242816,128,&Delete,0,edit,133,45,37,12,3602,1342242816,128,&Edit...,0,message,5,69,124,11,3604,1350631552,129,,0,ok,178,7,44,12,1,1342242817,128,OK,0,cancel,178,22,44,12,3606,1342242816,128,Cancel,0 <ManswerMessage ,G3597,Answers: ,S3603,Message to Send When Chosen: LISTBOX answers,L3596, BUTtoN add,B3600,NODISMISS BUTtoN delete,B3601,NODISMISS BUTtoN edit,B3602,NODISMISS EDIT message,E3604, BUTtoN ok,B1,TRUE BUTtoN cancel,B3606,FALSE vADialogCallback 2 s_answerMessages customEdit SetControlText listbox answers SetnListBoxSelection listBox answers button delete edit message jGetListBoxSelection AEnableControl GetListBoxItems TBKDialogInit 1+4!7 V, #> .%, #> .%, #> .%, #> listBox answers QOtbk_wid_props invert of target = TRUE LISTBOX answers Button add Button ok button lGetDialogFocus to handle buttonDown Button edit edit message listbox answers to handle buttonUp Answer Caption: 4DeletenListBoxItem newAnswer endTBKDialog editWidget GetControlText =ManswerMessage AEnableControl send (answerMessage of target) to target GetListBoxItems to set editWidget send customEdit to item 1 of my objects Cancel wAddListBoxItem gobjLayer GetnListBoxSelection SetControlText GvSetDialogFocus BUTtoN cancel button delete SetnListBoxSelection Multiple Choice Answer & answer Button delete EDIT message SetListBoxItems jGetListBoxSelection sptbk_wid_values tbk_wid_name my invert = FALSE 2 s_answerMessages custom,editWidget TBKDialogCommand page,background objLayer reader customEdit reader enterPage author tb30dlg.dll vSetValue DialogCallback SetValue GetValue AddListBoxItem DeletenListBoxItem EnableControl GetControlText GetDialogFocus GetListBoxItems GetListBoxSelection GetnListBoxSelection SetControlText SetDialogFocus SetListBoxItems SetnListBoxSelection endTBKDialog listBox answers 524480,9,25,25,228,104,,,Edit Multiple Choice,8,MS Sans Serif,,2,4,171,80,3597,1342177287,128,Answers:,0,,5,59,125,7,3603,1342177280,130,Text,0,answers,5,17,124,39,3596,1352728577,131,,0,add,133,17,37,12,3600,1342242816,128,&Add,0,delete,133,31,37,12,3601,1342242816,128,&Delete,0,edit,133,45,37,12,3602,1342242816,128,&Edit...,0,message,5,69,124,11,3604,1350631552,129,,0,ok,178,7,44,12,1,1342242817,128,OK,0,cancel,178,22,44,12,3606,1342242816,128,Cancel,0 <ManswerMessage ,G3597,Answers: ,S3603,Message to Send When Chosen: LISTBOX answers,L3596, BUTtoN add,B3600,NODISMISS BUTtoN delete,B3601,NODISMISS BUTtoN edit,B3602,NODISMISS EDIT message,E3604, BUTtoN ok,B1,TRUE BUTtoN cancel,B3606,FALSE vADialogCallback 2 s_answerMessages customEdit SetControlText listbox answers SetnListBoxSelection listBox answers button delete edit message jGetListBoxSelection AEnableControl GetListBoxItems TBKDialogInit 1+4!7 V, #> .%, #> .%, #> .%, #> Cancel QOtbk_wid_props wAddListBoxItem custom,editWidget LISTBOX answers button gobjLayer GetnListBoxSelection Button add SetControlText GvSetDialogFocus listbox answers Button delete send (answerMessage of target) to target SetnListBoxSelection endTBKDialog newAnswer GetControlText lGetDialogFocus answer Multiple Choice Button edit EDIT message listBox answers send customEdit to item 1 of my objects Answer & button delete Answer Caption: 4DeletenListBoxItem Button ok editWidget edit message Button cancel SetListBoxItems =ManswerMessage jGetListBoxSelection sptbk_wid_values tbk_wid_name AEnableControl to handle buttonClick 2 s_answerMessages GetListBoxItems to set editWidget TBKDialogCommand page,background objLayer reader customEdit reader enterPage author 1, "j .&, " minus searchReplace .&+ +E .&, " .&+ +E /searchReplace ainitPage 0]outLineNumber minus indentLevel curLevel subheadings buttonDoubleClick ,!J)" keyDown .&+ + source /searchReplace curmode subheadings source operatingMode source textLineNumber indentLevel subheadings ,%H.% counter indentLevel indentLevel outlineNumber false indentLevel foundNextSibling textLineNumber w, "V ,%H.% V, #> mouseLoc moveSecFlag reader newHeading marker count movedWid ltopicIDs oldChapter pList outlineText minorI lineHeight tPage targetLine topics tempID lineList tlines llineYloc x5chapter repage widgetIDs chapterID stringResource TooManyWidgets y5chapter tline widgetIDs source tempName IvertLoc buttonDown lineHeight sizeSample lineHeight lineYloc marker lineHeight adjustSize Miscellaneous Slow-Motion,Object Effect,Exit Windows,Can't Touch This myPageList 62,61,63,64 widgetIDs 62,61,63,64 Slow-motion Miscellaneous chapter visited chapterID Button id 5 of Page id 61 widgets This widget is useful if you need to let the user slow down a process, such as an animation. This checkbox slows ToolBook down by a particular factor set in the script. in,true ThreeDeeRect bottomLine topLine Slow-Mo nplastTime oplastTime newTime timeGetTime enterPage mmsystem leavePage timeGetTime oplastTime timeGetTime mmsystem notifyBefore lastTime newTime timeGetTime() - lt >= 100 unlinkDLL "mmsystem" notifyAfter DWORD lastTime Slow-Mo tbk_wid_name Slow-Mo ,%H.% rainbowCount buttonStillDown notifyBefore Idle 4rainbowCount NULL) k10 = 0) sObj saveCol Ri + 1 sendNotifyBefore A Rainbow buttonStillDown enterPage leavePage FALSE Object effect Miscellaneous chapter chapterID Button id 1 of Page id 62,Button id 0 of Page id 62 widgets FALSE visited Applies page navigation effects to individual objects. This effect works because of a subtle difference between ToolBook's sysLockScreen property and the Windows API function LockWindowUpdate. You can use these widgets as is for random effects, or alter the scripts to hardwire them to your favorite objects.S Single single_object_effect tbk_wid_name Single Object Multiple multiple_object_effect tbk_wid_name Multiple Objects Exit Windows Miscellaneous chapter FALSE visited chapterID Button id 1 of Page id 63 widgets Demonstrates three methods for exiting Windows. Note: This button has been disabled to prevent accidents. This widget links to the Windows API call for exiting Windows. It then prompts the user for the manner in which it should make the exit. One way is to exit Windows to DOS. Another is to exit Windows and restart it. The third is to reboot the machine. There is an alternative interface embedded in the comments of the script. Exit_Windows Exit_Windows tbk_wid_name Exit Windows Cancel s_currentTopic Select Topic buttonClick buttonClick 4s_currentTopic "Select close Cancel Drag and Drop Text Multiple OLE drag & drop 06cleanUp leavePage ,%H.% dropFiles cleanUp cleanUp objs = c"OLE" "dropFiles" Field widgets chapter chapterID FALSE visited Field id 0 of Page id 30 widgets Drag files from the File Manager into the field below. This field extends ToolBook's OLE capabilities by accepting multiple objects simultaneously, and by displaying the file names of the OLE objects. Just before each drop and at the leavePage message, the OLE objects already on the page are deleted and the text of the field is cleared. This is a function of the page, not the widget. dropFiles OLE Drop field tbk_wid_name enterPage leavepage cleanUp reader NON-ALPHA ,toggleInvert ALPHA txClassName input initialButton initialButtonClass buttonDown invertedButton NON-ALPHA invertedButtonClass ALPHA initialButton initialButtonClass label buttonUp invertedButton .isChild NON-ALPHA ,toggleInvert invertedButtonClass ALPHA txClassName label buttonStillDown buttonDoubleClick FALSE Enter labelText Shift Caps Lock input buttonClick input enterPage 1,"!" invertedButton NON-ALPHA invertedButtonClass ALPHA label toggleInvert FALSE group isChild label field ALPHA txClassName labelText author toggleStatus <+U!! statusbox reader <+U!8 statusbox author .&+ +E theStore decimal default svNumFormat memory clear_all openWindow number display last_key display w, "@ w, "@ theStore savekey number ?strUnderflow display strNoZeroDivide strOverflow clear_all last_key calculate .&, " calculate LBdisplay 0123456789+-*/= keyChar FALSE posNum svNumFormat strDisplayNumber Can't divide by 0. strNoZeroDivide Overflow strOverflow Underflow strUnderflow w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level invalid level for widget: background, book must be "background" or "book" level prop_level level First must be "Next", "Previous", "First", or "Last" invalid direction for widget: Next,Previous,First,Last disablePage direction direction prop_disablePage invalid disablePage: First, last must be "First" or "Last" disablePage prop_disablePage disablePage w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level invalid level for widget: background, book must be "background" or "book" level prop_level level First must be "Next", "Previous", "First", or "Last" invalid direction for widget: Next,Previous,First,Last disablePage direction direction prop_disablePage invalid disablePage: First, last must be "First" or "Last" disablePage prop_disablePage disablePage w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level invalid level for widget: background, book must be "background" or "book" level prop_level level First must be "Next", "Previous", "First", or "Last" invalid direction for widget: Next,Previous,First,Last disablePage direction direction prop_disablePage invalid disablePage: First, last must be "First" or "Last" disablePage prop_disablePage disablePage w, #? disablePage level page of this enterPage w, #? go to level page of this buttonClick prop_level invalid level for widget: background, book must be "background" or "book" level prop_level level First must be "Next", "Previous", "First", or "Last" invalid direction for widget: Next,Previous,First,Last disablePage direction direction prop_disablePage invalid disablePage: First, last must be "First" or "Last" disablePage prop_disablePage disablePage tabPressed tabname J,tabMode obtype tabNum buttonClick etabLimit Cannot set tab tabPressed myTabMode tabMode tabLimit myTabMode tabMode myTabHeight tabHeight myTabHeight tabHeight arrangeTabs myTabSpace tabSpace myTabSpace tabSpace w, #? manual false myNumTabs etabLimit Can only have Must have at least 1 tab arrangeTabs numTabs myNumtabs numTabs manual tabRef tabLabel tabHighlight tabHeight arrangeTabs myNumTabs obtype highlight myTabHeight sized w, #> myTabMode tname myNumTabs myTabSpace anchor arrangeTabs ,%H.% curLine curField topic adjustLines ,%H.% chapterRef pageID Chapter selectedChapter middleGray selected joiner false topics Zselected topicTree topics midspot chapter topic Couldn't navigate to page buttonDown .&, " extractName plast bracket curtopicField midspot joiner topic No topics exist for this chapter. topicTree O@middleGray V, #> ,%H.% topics chapter1 chapter outline extractName resetObj wrkday daysInMonth field 9lresetObj 8weekDay counter :lresetObj buildcal calMonth calYear displayDate 034025036146 isLeapYear 144025036146 leapyear weekDay 31,28,31,30,31,30,31,31,30,31,30,31 leapyear daysInMonth 0,31,59,90,120,151,181,212,243,273,304,334 m,d,y isLeapYear Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday m/d/y dayOfWeek ,!JdY FALSE isLeapYear enterPage today 1, "j .&, " minus searchReplace /searchReplace 0]outLineNumber minus indentLevel curLevel subheadings buttonDoubleClick keyDown .&+ + source /searchReplace curmode subheadings source operatingMode reader JFoperatingmode enterPage JFoperatingmode author JFoperatingmode reader source textLineNumber indentLevel subHeadings ,%H.% counter indentLevel indentLevel outlineNumber false indentLevel foundNextSibling textlineNumber A7oldBook minus Use copy, not cut, on this widget. Cancel B7oldBook You must save this book before copying this widget. .&+ +E quickSort default sortSelf s_noSwap quickSrt quickSort quicksrt s_noSwap quickSrt d_insertLineAux insertLine middleLine insertLineAux enterPage DragAcceptFiles DragQueryFile DragQueryCount DragQueryFile DragQueryValue KERNEL SHELL filesDropped s_WM_DROPFILES DragAcceptFiles GlobalAlloc GlobalLock GlobalUnlock GlobalFree .&+ +E ,%H.% .&+ +E GlobalAlloc DragQueryCount filesDropped GlobalFree GlobalLock DragQueryValue GlobalUnLock dropFiles l_count 06cleanUp filesDropped DragAcceptFiles reader KERNEL SHELL s_WM_DROPFILES leavepage cleanUp propList POtbk_wid_props rptbk_wid_values curval &getPropListFromHandlers widname curProp tbk_wid_name props initDLG .&+ + proplist propList G[updateDB enterPage ,%H.% curline getPropListFromHandlers propList QOtbk_wid_props curLine Uh-oh. Nothing is selected. sptbk_wid_values widname You must name the widget before you can save its properties. tbk_wid_name updateWidget cancel kGetValue button ok tb30dlg.dll vSetValue FALSE EDIT message,E3604, BUTtoN ok,B1,TRUE BUTtoN cancel,B3606,FALSE listBox answers 524480,6,25,25,186,74,,,Edit True or False,8,MS Sans Serif,,2,3,130,55,3607,1342177287,128,Answers:,0,,5,32,125,7,3603,1342177280,130,Text,0,answers,5,13,49,21,3596,1352728577,131,,0,message,5,42,124,11,3604,1350631552,129,,0,ok,136,7,44,12,1,1342242817,128,OK,0,cancel,136,22,44,12,3606,1342242816,128,Cancel,0 <ManswerMessage vADialogCallback =ManswerMessage 2 s_answerMessages DialogCallback GetValue SetValue GetnListBoxSelection GetControlText SetControlText SetnListBoxSelection endTBKDialog ,G3607,Answers: ,S3603,Message to Send When Chosen: LISTBOX answers,L3596,TRUE customEdit SetnListBoxSelection listBox answers TBKDialogInit LISTBOX answers GetnListBoxSelection SetControlText Button ok GetControlText endTBKDialog EDIT message listBox answers Button cancel edit message 2 s_answerMessages TBKDialogCommand reader customEdit reader enterPage author tb30dlg.dll dialog setValue getValue endTBKDialog customDialog buttonClick Button Init and Cleanup showAdvanced kgetValue Button Advanced Widgetry showBasicWidgets Basic Widgets MWidgetHelpBOX Initialization and Cleanup retValue yWidgetHelpInit Button Basic Widgets Notify Messages s_whichDB 0showInitandCleanup ~MshowNotifyMessages Advanced Widgetry Button Notify Messages dialog customDialog kgetValue BasicWidgetInit pCheck Button Back retValue s_whichDB There is no page named Button More customDialog zlBasicWidgetBOX dialog showBasicWidgets kgetValue pCheck Button Back retValue NotifyMessagesBOX s_whichDB There is no page named BNotifyMessagesInit Button More customDialog dialog showNotifyMessages kgetValue pCheck Button Back retValue InitandCleanupBOX s_whichDB There is no page named Button More 2%InitandCleanupInit customDialog dialog showInitandCleanup kgetValue pCheck Button Back retValue AdvancedInit s_whichDB There is no page named Button More customDialog dialog AdvancedBOX showAdvanced A7oldBook basWid notify Use copy, not cut, on this widget. Cancel B7oldBook You must save this book before copying this widget. w, #b w, #b w, #? w, #? w, #? w, #? editWidget volume <)channel Accept ECprogram You can accept these values or edit them. device My program is My volume is My sustain is set to My gliss is set to My channel is rPsustain My name is My device is gliss buttonClick reader editWidget customEdit .&+ +E ,%H.% ,%H.% ,%H.% ,%H.% .&+ +E dlgBox comboBox device volume MidiOutGetNumDevs FALSE <)channel tb30dlg.dll Dialog SetValue GetValue vSetValue button sustain 8dlgInit sPsustain button ok ECprogram =)channel device gliss FCprogram comboBox program rPsustain device mmSystem.dll comboBox volume kgetValue volume button gliss gliss Dialog comboBox channel editWidget ,%H.% ,%H.% ltopicIDs source book outline topics Topics tempID JFoperatingMode Table of Contents IoutLine x5chapter tableofcontents widgetIDs chapterID bgMain myPageID tempName myPageName updateTopics .&+ +E ,%H.% .&+ +E g)updateTopics ltopicIDs book outline page id Table of Contents widgetIDs Bwidgets resetChecks tList tbk_wid_name pageHere pList repage cancel button Close stringResource Book Outline buttonClick cancel book outline Close field stringResource Book Outline buttonDoubleClick edit buttons 1authorBounds book outline JFoperatingmode authorFix edit buttons book outline JFoperatingmode readerBounds readerFix keyDown keyChar Multiple OLE Drag & Drop Drag a textline Field widgets chapter FALSE visited chapterID Field id 3 of Page id 31 widgets You can drag any textline to a new position in the field below. This field allows you to drag a textline up or down and displays the results as you drag. DragTextline dragTextLine beginDrag +",!" +",H4 +",!J +",H4 2, #> +",H4 dragTextLine stillOverDrop beginDrag dragTextLine oselectedTextLines = stillOverDrop pObject, loc currentTextLine currentTextline = &CRLF + 1 dragTextline = DragTextline tbk_wid_name smith Drag a Textline bvxcsawqw Slider widgets Sliders,Ratchet myPageList 33,34,81 widgetIDs 33,34,81 Slider Widgets Can't Touch This Calendar Sliders Slider widgets chapter FALSE visited chapterID Group id 7 of Page id 33,Group id 3 of Page id 33 widgets These widgets demonstrate how to make graphical sliders. The baseball slider uses a resource of the book; the pointer slider uses a line end. horizSlider sldrPosition horizSlider tbk_wid_name centered HSliderThumb txClassName vertSlider sldrPosition vertSlider tbk_wid_name VSliderThumb txClassName Slider with graphic button Slider with line endbutton Sliders Snoopy Ratchet Slider widgets chapter FALSE visited chapterID Group id 123 of Page id 34,Group id 39 of Page id 34 widgets These ratchet sliders constrain the user's choices to certain values. Each widget allows itself to be set only at the hash marks. The user doesn't have intermediate values available, and this fact is reinforced by the visual feedback. The widget on the right also reports what mark it has been set to. slider slider tbk_wid_name ,%H.% 1,!JRY ,%H.% slider buttonDown -- This handler jumps the slider each tick mark mouse moved Zarray x[5], pin[4] i] = ((( U(i+1))-( Ui))/2 )+( x[i] = ( Ui)-82 pos = " = x[1] " = x[2] " = x[3] When " = x[4] " = x[5] slider emitting_Slider emitting_Slider tbk_wid_name slider@ ,%H.% 1,!JRY ,%H.% slider buttonDown -- This handler jumps the slider each tick mark mouse moved Zarray x[5], pin[4] i] = ((( U(i+1))-( Ui))/2 )+( x[i] = ( Ui)-82 pos = " = x[1] " = x[2] " = x[3] When " = x[4] " = x[5] slider2 track Ratchet Book Outline Navigation widgets CBT widgets True and False,Multiple Choice myPageList 36,37 widgetIDs 36,37 True and false CBT widgets chapter FALSE visited chapterID Group id 9 of Page id 36,Group id 4 of Page id 36 widgets These widgets can be set for true and false questions. These widgets send a user-defined message. At Reader level you can right-click the group, then click the Custom edit button on the right-click tool bar to determine which button sends what message. There is also a to set handler that will display the same editing dialog box. You need to set the editWidget property of the group to any value. For example, select the group (just the buttons, not the red border,) then type in the Command window: set editWidget of selection to 1. This property can also be set from the object properties list given by tools30.sbk at Author level; just double-click on the editWidget line. You can place the message handlers in the group script or edit the ones already there. Most of the work is done in a script in an invisible field. You can get to the script of this field by selecting the appropriate group and executing the following command in the Command window: edit script of item 1 of objects of selection. T/F Buttons buttonDown <ManswerMessage buttonUp editWidget You chose answerTrue You chose answerFalse -- Tim Pearson, Asymetrix 1/94 = FALSE >= TRUE (answerMessage editWidget customEdit the handlers below suit your needs -- answerTrue "You chose" && answerFalse T/F Buttons tbk_wid_name editWidget tbk_wid_props custom,editWidget tbk_wid_values widgetParent answerTrue answerMessage &TRUE false answerFalse answerMessage &FALSE T/F Radio Buttons <ManswerMessage buttonClick editWidget You chose answerTrue You chose answerFalse -- Tim Pearson, Asymetrix 1/94 buttonClick (answerMessage editWidget customEdit the handlers below suit your needs -- answerTrue "You chose" && answerFalse T/F Radio Buttons tbk_wid_name editWidget tbk_wid_props custom,editWidget tbk_wid_values widgetParent answerTrue answerMessage &TRUE false answerFalse answerMessage &FALSE customEdit reader enterPage author True and False,Multiple Choice myPageList 36,37 widgetIDs 36,37 True and f Windows or WFW Data widgets chapter chapterID FALSE visited Button id 0 of Page id 17 widgets This widget distinguishes between Windows 3.1 and Windows for Workgroups. This widget checks to see if a driver necessary for Windows for Workgroups is loaded (wfwnet.drv), in order to determine which version of Windows is running. Windows_WFW getModuleHandle getModuleHandle wfwnet.drv Running Windows kernel Running Windows for Workgroups buttonClick buttonClick linkDLL "kernel" WORD getModuleHandle (STRING) ("wfwnet.drv") "Running Windows" Workgroups" unlinkDLL " Windows_WFW tbk_wid_name Windows or WFW Field widgets Insert/Overstrike,Self Sorting Field,Auto-scrollbar Field,Searching Field,Bold; Italic; and Underline,Drag and Drop Text,Drag a Textline,Max Select Field,XSelect Field,Outline myPageList 19,22,20,21,23,25,27,26,28,31,29,30,24 widgetIDs FALSE visited Insert/overstrike Field widgets chapter visited chapterID Field id 4 of Page id 19,Field id 0 of Page id 19 widgets This field is capable of typical "overstrike" behavior. ToolBook does not support overstrike in any of its text fields. But with this handy widget, you can have overstrike behavior in your application. For example, at Reader level, toggle the insert key and type in the field below. Insert_Overstrike overWriteFlag keyDown overWriteFlag keyChar 4LOGICAL overWriteFlag 4logical ` <> Insert_Overstrike tbk_wid_name Now is the time for all good men to come the aid of their quick brown fox.............te endNow is the time for all good men to come the aid of their quick brown fox. Toggle overWriteFlag keyDown overWriteFlag enterPage notifyAfter 4LOGICAL overWriteFlag Insert_Overstrike_Toggle tbk_wid_name keyDown enterPage FALSE Insert/Overstrike Bold, Italic, and Underline Object Effect Outline rearranger Field widgets chapter chapterID FALSE visited Group id 5 of Page id 20 widgets You can move individual textlines or whole sections, by dragging the textlines in the field. Tabbed textlines can be dragged up or down, and whole sections can be moved by dragging the textline at the head of a section. The indicator is an obscured line with a line end on it. There is a field covered by the main field, and we use the bounds of a hotword in the hidden field to find the height of a line of text. Outline_Rearranger lineheight hotfield outfield outline_rearranger sizeSample adjustsize sized enterpage reader -- initialize the sized hotfield "sizeSample" outfield "outline_rearranger" ypix sysPageUnitsPerPixel syssuspendmessages adjustsize ylineheight o,3) notifybefore notifyAfter Outline_Rearranger tbk_wid_name sizeSample \ R Y sizeSample outline_rearranger Frame Animation Introduction to Frame Animation Page Flipping Hiding and Showing objects Moving Objects Move By Move To The Position Property Useful Scripts Simulating Gravity Timing Animation Animating with Resources Simulating a Good 5 Cent Cigarood 5 Cent CigarGood 5 Cent Cigar To The Position Property Simulating Gravity Timing Animation Simulating a Good 5 Cent Cigary Timing Animation The Position Property Moving Objects Move To Move By marker vertLoc vertLoc b value ypix = syspageunitsperpixel halfH B- 3* enterpage reader Max select field Field widgets chapter FALSE visited chapterID Field id 0 of Page id 21 widgets This handler limits the number of selectable lines in a multi-select list box. This handler can be placed in a system book or in the book or page script so it will work with more than one multi-select list box. It takes one parameter, Num, which represents the maximum number of selections allowed. To call the maxSelection handler use the following syntax: to handle buttonClick send MaxSelection 3 end buttonClick MaxSelect MaxSelect tbk_wid_name One One One Two Two Two Three Three Three Four Four Four Five Five Five Max Select Field Windows or WFW Printer Resolution wertwert Z \ \ 4 Outline Field widgets chapter FALSE visited chapterID Field id 7 of Page id 22 widgets Use this widget to create a field you can use as an outline at Reader level. At Author level, you can set the level of the text in the outline by typing Ctrl+Tab. When the outline field is copied and pasted into another book, it retrieves the resources for the plus and minus bitmaps from the first book. outline Big green dogs Great Dane So-so Danes Lesser Danes Collie Doberman Small dogs Sheltie Wiener dog Froo froo dogs Chow Chihuahua Poodle Lap poodle Yappy poodle Snapping poodle Shitzu Cartoon Cats Hobbes Bill Fritz Presidential Cats Socks Bill source outline tbk_wid_name Book "C:\TBEA\SAMPLES\WIDGETS\WIDGT78B.TBK" oldBook Dogs Cats Presidential Catsntial Catstial Catsential CatsPresidential Cats Bills Bill Catsfroo dogs Cats Froo froo dogs Catsfroo dogs Cats Poodle Lap poodle Yappy poodle Snapping poodle Shitzu Cartoon Cats Hobbes Bill Fritz Presidential Cats Socks Bill enterPage author reader Ex Select field Field widgets chapter FALSE visited chapterID Field id 1 of Page id 23 widgets The Ex Select widget allows for an exclusive selection, acting like a single-select list box inside a multi-select list box. The XSelect handler allows multiple selections in a list box as long as the specified line is not selected. Once the specified line is selected, all other lines in the list box are unselected. This handler can be placed in a system book or in the book or page script, so it will work with more than one multi-select list box. The handler takes one parameter, "XLine", which represents the line to make exclusive. To call the Xselect handler use the following syntax: to handle buttonClick send Xselect 5 end buttonClick XLine Ex Select tbk_wid_name One One One Two Two Two Three Three Three Four Four Four FiveFiveFive Show off Field widgets chapter chapterID FALSE visited Field id 0 of Page id 24 widgets This widget is a good example of using Windows directly from ToolBook to do something that is otherwise not possible in ToolBook. While it isn't usually necessary, you can link directly to Windows from ToolBook. This example takes advantage of a Windows capability not built into ToolBook. RotateText RotateText tbk_wid_name Click me and watch me rotate leavePage Self sorting field Field widgets chapter FALSE visited chapterID Group id 10 of Page id 25 widgets This self-sorting field has scripts for sorting any text placed in it, and for inserting any textline in sorted order.- To sort text in this widget field, set the text of the field to the text you want sorted, then send the field the message sortSelf. The "set text & sort" button uses the following script: set text of field "sort" to text of field "data" send sortSelf to field "sort" To insert a new line into the text, send the field the message insertLine with the text of the new line as a parameter. The "insert a textline" button has this script: clear sysError ask "Please supply a textline to insert." if sysError <> "cancel" set newLine to it send insertLine newLine to field "sort" Field to Sort Self Sorting Field tbk_wid_name OKI9.DRV EGA.3GR TIMESBI.TTF PACKAGER.EXE MSD.EXE KBDNE.DLL VGALOGO.RLE TRIUMPH1.WPD SSFLYWIN.SCR DISKB VDDHERC.386 SL.HLP NCM80519.WPD HPPLOT.DRV AB.DLL CLIPBRD.EXE KBDUS.DLL DECCOLOR.WPD DISK6 XLAT850.BIN MMSOUND.DRV COURBD.FOT 40291730.WPD 8514FIX.FON L300_471.WPD NETDDE.EXE OLESVR.DLL PENDIS.DOS PIFEDIT.HLP REGEDITV.HLP MMTLHI.DRV KBDNO.DLL CARDFILE.EXE PLASMA.3GR TESTPS.TXT TIMESB.FON NDIS39XR.DOS HPPCL.DRV VGA30.3GR SND.CPL WINGDING.TTF VTDAPI.386 NETWATCH.EXE DEC2250.WPD MOUSE.SYS EMM386.EXE VDDTLI4.386 EGALOGO.LGO TERMINAL.EXE V7VDD.386 XMSMMGR.EXE ZIGZAG.BMP PMSPL.DLL LANGFRN.DLL HERC850.FON HPLANB.DOS USREDIBM.SHH ARGYLE.BMP L200230&.WPD CLIPBRD.HLP SCHEDMSG.DLL CANYON.MID 8514.DRV VREDIR.386 PACKAGER.HLP SERIFF.FON USER.EXE MSHEARTS.HLP EGACOLOR.2GR SSERIFE.FON MPLAYER.EXE MORICONS.DLL WINDOWS.LOD SSERIFF.FON CONTROL.EXE PE2NDIS.EXE L530_52&.WPD SOL.HLP OLIBW.DRV KBDSW.DLL DEPCA.DOS EGYPT.BMP MAILSPL.EXE TIMESBD.FOT STORE.DLL KBDIC.DLL DISK8 REDBRICK.BMP MSMAIL.EXE CARS.BMP SETUP.INI N2290520.WPD DECLPS20.WPD DEC2150.WPD VIPX.386 SETUP.EXE HPPCL5MS.DRV MAIN.CPL CGA40WOA.FON WINMINE.EXE SEIKO_04.WPD HIMEM.SYS OLECLI.DLL SUPERVGA.DRV SMC_ARC.DOS COURBI.FOT KEYBOARD.DRV UNIDRV.DLL ARIALBI.FOT COMMCTRL.DLL VSBD.386 NI6510.DOS MPU401.DRV V7VGA.DRV IBM4019.DRV MONOUMB2.386 WRITE.HLP SQUARES.BMP OL840518.WPD EGA.SYS SYMBOLB.FON LANGSPA.DLL MSSFS.DLL VGADIB.3GR ARIAL.TTF XLAT863.BIN CANON10E.DRV EGA.DRV PROGMAN.HLP EGA40850.FON CONTROL.HLP IBM17521.WPD WIN386.EXE HPDSKJET.DRV KBDFC.DLL DEC1150.WPD SHELL.DLL FINSTALL.HLP DEC3250.WPD 256COLOR.BMP CARDS.DLL TIMESBD.TTF VDD8514.386 COUR.TTF NOTEPAD.EXE COUR.FOT MODERN.FON SENDFILE.DLL NETWORK.INF CGA80WOA.FON MIDIMAP.CFG EGA80850.FON SETUP.HLP HPELI523.WPD ELNKMC.DOS OLIVETI1.WPD PROPRINT.DRV DISK3 WINLOGO.BMP PROGMAN.EXE CLIPSIBM.SHH MIDIMAP.DRV WFWNET.HLP CAN_ADF.EXE VGALOGO.LGO ELNK16.DOS SYSINI.WRI LMSCRIPT.EXE PIFEDIT.EXE MMTLLO.DRV MOUSEHP.SYS PBRUSH.HLP PROTMAN.EXE VDDCGA.386 TTY.DRV SMARTND.DOS OKI9IBM.DRV DRIVERS.CPL SOUNDREC.HLP NOTEPAD.HLP ESCP2.DRV MSNET.DRV CHARMAP.HLP SSERIFB.FON PRINTMAN.HLP OLITOK.DOS VDMAD.386 VNETWARE.386 POWER.HLP BP1CP2.PCM RINGOUT.WAV WINTUTOR.EXE IBM39521.WPD HPSYSTEM.DRV DISKA VER.DLL VCD.386 IPXODI.COM CHARMAP.EXE CGALOGO.RLE PSCRIPT.DRV TOOLHELP.DLL NETWORK.SAV MMTASK.TSK LMOUSE.DRV HPMOUSE.DRV MT_TI101.WPD IBMTOK.DOS TRNSCHED.DLL WINHELP.EXE VGA.3GR SMCMAC.DOS WIN87EM.DLL COURE.FON CGA.2GR THATCH.BMP NEC24PIN.DRV PLASMA.DRV CGA80850.FON VGA.DRV RECORDER.EXE COMMDLG.DLL NOMOUSE.DRV MSMAIL.HLP L300_493.WPD MSREMIND.EXE TIM17521.WPD N890_470.WPD L500_493.WPD SERIFB.FON LANGSCA.DLL 40293930.WPD CLOCK.EXE PRO4.DOS THINKJET.DRV KBDSG.DLL PRORAPM.DWN DM309.DRV L100_425.WPD COURI.TTF WINFILE.EXE KBDBE.DLL PS1.DRV VDDVGA30.386 PRINTERS.WRI EGAMONO.LGO KBDFR.DLL IBM5204.DRV KBDUSX.DLL REGEDIT.HLP TIMESBI.FOT NET.EXE TIMES.FOT VGAOEM.FON PROPRN24.DRV LBPIII.DRV DD1CP1.PCM NETX.COM I82593.DOS CONTROL.INF CPWIN386.CPL HP_3P522.WPD TI850.DRV TIGA.DRV VDDEGA.386 ELNK3.DOS ELNKII.DOS EXPAND.EXE WSWAP.EXE CANON330.DRV GENDRV.DLL ELNKPL.DOS COURBI.TTF CALC.HLP CARDFILE.HLP VPD.386 LANMAN10.386 MCISEQ.DRV WINCHAT.EXE NETH.MSG WINGDING.FOT EPSON9.DRV FRAMEWRK.DLL SEIKO_14.WPD EGASYS.FON LZEXPAND.DLL CHIMES.WAV REGEDIT.EXE CASTLE.BMP TIMESI.FOT NETAPI.DLL SERIFE.FON TCCARC.DOS ARIALBD.FOT Q2200510.WPD SF4019.EXE CIT24US.DRV WINCHAT.HLP HERCWOA.FON WRITE.EXE HPIID522.WPD VSERVER.386 EGAMONO.RLE NE1000.DOS VGASYS.FON MKTNGIBM.SHH DISK9 WINTUTOR.DAT TBMI2.COM VFORMS.DLL SSSTARS.SCR LEAVES.BMP XLAT861.BIN ARIALI.FOT FINSTALL.DLL EXP16.DOS VGA865.FON WIN.SRC Q820_517.WPD RECORDER.HLP VNETBIOS.386 DEMILAYR.DLL PRTUPD.INF MADGE WIN386.PS2 NETWATCH.HLP NETWARE.HLP ARIALBI.TTF TIM35521.WPD LANGENG.DLL PANSON24.DRV SETUP.INF UNIDRV.HLP PANSON9.DRV EGA40WOA.FON XGA.DRV DRWATSON.EXE OLIGRAB.2GR GLOSSARY.HLP LMOUSE.COM SL.DLL SNDBLST.DRV LANGGER.DLL HRIBM.SHH LANGDUT.DLL KBDPO.DLL SOUNDREC.EXE SCRNSAVE.SCR VNETSUP.386 VNB.386 EGA80WOA.FON CITOH.DRV CGALOGO.LGO CGA40850.FON SCHDPLUS.HLP CLIPSRV.EXE NETWORKS.WRI MOUSEHP.COM WINOA386.MOD SCRIPT.FON KRNL386.EXE HRMDG.SHH EGALOGO.RLE MSHEARTS.EXE MIS.SHH N2990523.WPD SYMBOL.TTF LBPII.DRV KBDLA.DLL OKI24.DRV L630_52&.WPD APP850.FON WIN.CNF PBRUSH.DLL PAINTJET.DRV TKPHZR31.WPD ROUTE.COM KBDHP.DRV HERCLOGO.LGO KBDGR.DLL SYSTEM.SRC NETWARE.DRV TERMINAL.HLP WINMETER.EXE TIMER.DRV WINFILE.HLP VADLIBD.386 SMALLB.FON MSADLIB.DRV SYMBOLE.FON QWIII.DRV NWPOPUP.EXE KRNL286.EXE HONEY.BMP ARCADE.BMP SYSTEM.DRV LSL.COM LVMD.386 KBDFI.DLL CIT9US.DRV VBROWSE.386 SYSEDIT.EXE TASKMAN.EXE WINVER APPS.INF DDEML.DLL EGAMONO.2GR COMM.DRV PSCRIPT.HLP EXECJET.DRV ROMAN.FON SYMBOLF.FON MSIPX.SYS VGACOLRX.GR2 DOSX.EXE SNDBLST2.DRV BLUEMAX.VXD MMSYSTEM.DLL KBDDA.DLL RECORDER.DLL EGAOEM.FON MSSCHED.DLL MCIWAVE.DRV COURF.FON README.WRI KBDUK.DLL CONTROL.SRC ARIALI.TTF PRINTMAN.EXE VPICD.386 WINHELP.HLP COURBD.TTF VGA861.FON MOUSE.DRV SSMARQUE.SCR EPSON24.DRV O5241503.WPD TIGAWIN.RLM SETUP.TXT MSD.INI CANON130.DRV ARIALBD.TTF HPIIP522.WPD MSCMOUSE.DRV VPOWERD.386 TKPHZR21.WPD VGAMONO.2GR GDI.EXE HERCLOGO.RLE EGAHIBW.DRV VGACOLOR.2GR V7VGA.3GR KBDSF.DLL NE2000.DOS WINMINE.HLP USREDMDG.SHH SMALLF.FON TIMESI.TTF SMARTDRV.EXE KBDCA.DLL IMPEXP.DLL VGAMONO.DRV MAILMGR.DLL NDDEAPI.DLL VDDXGA.386 WFWSETUP.CPL EGAMONO.DRV ARIALB.FON LMSCRIPT.PIF SMALLE.FON DOSAPP.FON KBDSP.DLL DISK2 KBDIT.DLL RINGIN.WAV TIMES.TTF MSIPX.COM MSCVMD.386 EPL75523.WPD IPX.OBJ HERCULES.2GR EVX16.DOS VDDTIGA.386 CHKLIST.CPS WORKGRP.SYS EGAFIX.FON RIVETS.BMP WGPOMGR.DLL TTY.HLP WININI.WRI VGA850.FON 386MAX.VXD TRIUMPH2.WPD MPLAYER.HLP POWER.DRV SMC3000.DOS KBDDV.DLL HERMES_2.WPD MCICDA.DRV DSWAP.EXE VWC.386 VGAFIX.FON SCHDPLUS.EXE COURI.FOT 8514OEM.FON SYMBOL.FOT IBMCOLOR.DRV SETUP.REG WFWNET.DRV CALC.EXE N890X505.WPD MOUSE.COM SETUP.SHH PROTMAN.DOS PBRUSH.EXE U9415470.WPD MAC586.SYS ARIAL.FOT VGA860.FON MAPI.DLL 8514SYS.FON 8514SYS.FONON MAPI.DLL 8514SYS.FONPD MOUSE.COM SETUP.SHH PROTMAN.DOS PBRUSH.EXE U9415470.WPD MAC586.SYS ARIAL.FOT VGA860.FON MAPI.DLL 8514SYS.FON86.SYS ARIAL.FOT VGA860.FON MAPI.DLL 8514SYS.FONL 8514SYS.FONL 8514SYS.FONI.DLL 8514SYS.FON 8514SYS.FON 8514SYS.FON VGA860.FON MAPI.DLL 8514SYS.FON 8514SYS.FONL 8514SYS.FONA860.FON MAPI.DLL 8514SYS.FONL 8514SYS.FONL 8514SYS.FONSYS.FONL 8514SYS.FON14SYS.FONL 8514SYS.FONSYS.FONL 8514SYS.FON WINOLDAP.MODDD 8514SYS.FON WINOLDAP.MODPAG.BMPMPG.BMPP.BMPMP.BMPPPPG.BMPMPPZAG.BMPMPMPBMPMP.BMPPBMPMPMPPBMP |sortSelf buttonClick buttonClick "data" sortSelf set text and sort cancel Please supply a textline to insert. insertLine newLine buttonClick buttonClick ("Please supply a insert." r<> " newLine insertLine insert a textline tbk_wid_name 256COLOR.BMP 386MAX.VXD 40291730.WPD 40293930.WPD 8514.DRV 8514FIX.FON 8514OEM.FON 8514SYS.FON AB.DLL APP850.FON APPS.INF ARCADE.BMP ARGYLE.BMP ARIAL.FOT ARIAL.TTF ARIALB.FON ARIALBD.FOT ARIALBD.TTF ARIALBI.FOT ARIALBI.TTF ARIALI.FOT ARIALI.TTF BLUEMAX.VXD BP1CP2.PCM CALC.EXE CALC.HLP CAN_ADF.EXE CANON10E.DRV CANON130.DRV CANON330.DRV CANYON.MID CARDFILE.EXE CARDFILE.HLP CARDS.DLL CARS.BMP CASTLE.BMP CGA.2GR CGA40850.FON CGA40WOA.FON CGA80850.FON CGA80WOA.FON CGALOGO.LGO CGALOGO.RLE CHARMAP.EXE CHARMAP.HLP CHIMES.WAV CHKLIST.CPS CIT24US.DRV CIT9US.DRV CITOH.DRV CLIPBRD.EXE CLIPBRD.HLP CLIPSIBM.SHH CLIPSRV.EXE CLOCK.EXE COMM.DRV COMMCTRL.DLL COMMDLG.DLL CONTROL.EXE CONTROL.HLP CONTROL.INF CONTROL.SRC COUR.FOT COUR.TTF COURBD.FOT COURBD.TTF COURBI.FOT COURBI.TTF COURE.FON COURF.FON COURI.FOT COURI.TTF CPWIN386.CPL DD1CP1.PCM DDEML.DLL DEC1150.WPD DEC2150.WPD DEC2250.WPD DEC3250.WPD DECCOLOR.WPD DECLPS20.WPD DEMILAYR.DLL DEPCA.DOS DISK2 DISK3 DISK6 DISK8 DISK9 DISKA DISKB DM309.DRV DOSAPP.FON DOSX.EXE DRIVERS.CPL DRWATSON.EXE DSWAP.EXE EGA.3GR EGA.DRV EGA.SYS EGA40850.FON EGA40WOA.FON EGA80850.FON EGA80WOA.FON EGACOLOR.2GR EGAFIX.FON EGAHIBW.DRV EGALOGO.LGO EGALOGO.RLE EGAMONO.2GR EGAMONO.DRV EGAMONO.LGO EGAMONO.RLE EGAOEM.FON EGASYS.FON EGYPT.BMP ELNK16.DOS ELNK3.DOS ELNKII.DOS ELNKMC.DOS ELNKPL.DOS EMM386.EXE EPL75523.WPD EPSON24.DRV EPSON9.DRV ESCP2.DRV EVX16.DOS EXECJET.DRV EXP16.DOS EXPAND.EXE FINSTALL.DLL FINSTALL.HLP FRAMEWRK.DLL GDI.EXE GENDRV.DLL GLOSSARY.HLP HERC850.FON HERCLOGO.LGO HERCLOGO.RLE HERCULES.2GR HERCWOA.FON HERMES_2.WPD HIMEM.SYS HONEY.BMP HP_3P522.WPD HPDSKJET.DRV HPELI523.WPD HPIID522.WPD HPIIP522.WPD HPLANB.DOS HPMOUSE.DRV HPPCL.DRV HPPCL5MS.DRV HPPLOT.DRV HPSYSTEM.DRV HRIBM.SHH HRMDG.SHH I82593.DOS IBM17521.WPD IBM39521.WPD IBM4019.DRV IBM5204.DRV IBMCOLOR.DRV IBMTOK.DOS IMPEXP.DLL IPX.OBJ IPXODI.COM KBDBE.DLL KBDCA.DLL KBDDA.DLL KBDDV.DLL KBDFC.DLL KBDFI.DLL KBDFR.DLL KBDGR.DLL KBDHP.DRV KBDIC.DLL KBDIT.DLL KBDLA.DLL KBDNE.DLL KBDNO.DLL KBDPO.DLL KBDSF.DLL KBDSG.DLL KBDSP.DLL KBDSW.DLL KBDUK.DLL KBDUS.DLL KBDUSX.DLL KEYBOARD.DRV KRNL286.EXE KRNL386.EXE L100_425.WPD L200230&.WPD L300_471.WPD L300_493.WPD L500_493.WPD L530_52&.WPD L630_52&.WPD LANGDUT.DLL LANGENG.DLL LANGFRN.DLL LANGGER.DLL LANGSCA.DLL LANGSPA.DLL LANMAN10.386 LBPII.DRV LBPIII.DRV LEAVES.BMP LMOUSE.COM LMOUSE.DRV LMSCRIPT.EXE LMSCRIPT.PIF LSL.COM LVMD.386 LZEXPAND.DLL MAC586.SYS MADGE MAILMGR.DLL MAILSPL.EXE MAIN.CPL MAPI.DLL MCICDA.DRV MCISEQ.DRV MCIWAVE.DRV MIDIMAP.CFG MIDIMAP.DRV MIS.SHH MKTNGIBM.SHH MMSOUND.DRV MMSYSTEM.DLL MMTASK.TSK MMTLHI.DRV MMTLLO.DRV MODERN.FON MONOUMB2.386 MORICONS.DLL MOUSE.COM MOUSE.DRV MOUSE.SYS MOUSEHP.COM MOUSEHP.SYS MPLAYER.EXE MPLAYER.HLP MPU401.DRV MSADLIB.DRV MSCMOUSE.DRV MSCVMD.386 MSD.EXE MSD.INI MSHEARTS.EXE MSHEARTS.HLP MSIPX.COM MSIPX.SYS MSMAIL.EXE MSMAIL.HLP MSNET.DRV MSREMIND.EXE MSSCHED.DLL MSSFS.DLL MT_TI101.WPD N2290520.WPD N2990523.WPD N890_470.WPD N890X505.WPD NCM80519.WPD NDDEAPI.DLL NDIS39XR.DOS NE1000.DOS NE2000.DOS NEC24PIN.DRV NET.EXE NETAPI.DLL NETDDE.EXE NETH.MSG NETWARE.DRV NETWARE.HLP NETWATCH.EXE NETWATCH.HLP NETWORK.INF NETWORK.SAV NETWORKS.WRI NETX.COM NI6510.DOS NOMOUSE.DRV NOTEPAD.EXE NOTEPAD.HLP NWPOPUP.EXE O5241503.WPD OKI24.DRV OKI9.DRV OKI9IBM.DRV OL840518.WPD OLECLI.DLL OLESVR.DLL OLIBW.DRV OLIGRAB.2GR OLITOK.DOS OLIVETI1.WPD PACKAGER.EXE PACKAGER.HLP PAINTJET.DRV PANSON24.DRV PANSON9.DRV PBRUSH.DLL PBRUSH.EXE PBRUSH.HLP PE2NDIS.EXE PENDIS.DOS PIFEDIT.EXE PIFEDIT.HLP PLASMA.3GR PLASMA.DRV PMSPL.DLL POWER.DRV POWER.HLP PRINTERS.WRI PRINTMAN.EXE PRINTMAN.HLP PRO4.DOS PROGMAN.EXE PROGMAN.HLP PROPRINT.DRV PROPRN24.DRV PRORAPM.DWN PROTMAN.DOS PROTMAN.EXE PRTUPD.INF PS1.DRV PSCRIPT.DRV PSCRIPT.HLP Q2200510.WPD Q820_517.WPD QWIII.DRV README.WRI RECORDER.DLL RECORDER.EXE RECORDER.HLP REDBRICK.BMP REGEDIT.EXE REGEDIT.HLP REGEDITV.HLP RINGIN.WAV RINGOUT.WAV RIVETS.BMP ROMAN.FON ROUTE.COM SCHDPLUS.EXE SCHDPLUS.HLP SCHEDMSG.DLL SCRIPT.FON SCRNSAVE.SCR SEIKO_04.WPD SEIKO_14.WPD SENDFILE.DLL SERIFB.FON SERIFE.FON SERIFF.FON SETUP.EXE SETUP.HLP SETUP.INF SETUP.INI SETUP.REG SETUP.SHH SETUP.TXT SF4019.EXE SHELL.DLL SL.DLL SL.HLP SMALLB.FON SMALLE.FON SMALLF.FON SMARTDRV.EXE SMARTND.DOS SMC_ARC.DOS SMC3000.DOS SMCMAC.DOS SND.CPL SNDBLST.DRV SNDBLST2.DRV SOL.HLP SOUNDREC.EXE SOUNDREC.HLP SQUARES.BMP SSERIFB.FON SSERIFE.FON SSERIFF.FON SSFLYWIN.SCR SSMARQUE.SCR SSSTARS.SCR STORE.DLL SUPERVGA.DRV SYMBOL.FOT SYMBOL.TTF SYMBOLB.FON SYMBOLE.FON SYMBOLF.FON SYSEDIT.EXE SYSINI.WRI SYSTEM.DRV SYSTEM.SRC TASKMAN.EXE TBMI2.COM TCCARC.DOS TERMINAL.EXE TERMINAL.HLP TESTPS.TXT THATCH.BMP THINKJET.DRV TI850.DRV TIGA.DRV TIGAWIN.RLM TIM17521.WPD TIM35521.WPD TIMER.DRV TIMES.FOT TIMES.TTF TIMESB.FON TIMESBD.FOT TIMESBD.TTF TIMESBI.FOT TIMESBI.TTF TIMESI.FOT TIMESI.TTF TKPHZR21.WPD TKPHZR31.WPD TOOLHELP.DLL TRIUMPH1.WPD TRIUMPH2.WPD TRNSCHED.DLL TTY.DRV TTY.HLP U9415470.WPD UNIDRV.DLL UNIDRV.HLP USER.EXE USREDIBM.SHH USREDMDG.SHH V7VDD.386 V7VGA.3GR V7VGA.DRV VADLIBD.386 VBROWSE.386 VCD.386 VDD8514.386 VDDCGA.386 VDDEGA.386 VDDHERC.386 VDDTIGA.386 VDDTLI4.386 VDDVGA30.386 VDDXGA.386 VDMAD.386 VER.DLL VFORMS.DLL VGA.3GR VGA.DRV VGA30.3GR VGA850.FON VGA860.FON VGA861.FON VGA865.FON VGACOLOR.2GR VGACOLRX.GR2 VGADIB.3GR VGAFIX.FON VGALOGO.LGO VGALOGO.RLE VGAMONO.2GR VGAMONO.DRV VGAOEM.FON VGASYS.FON VIPX.386 VNB.386 VNETBIOS.386 VNETSUP.386 VNETWARE.386 VPD.386 VPICD.386 VPOWERD.386 VREDIR.386 VSBD.386 VSERVER.386 VTDAPI.386 VWC.386 WFWNET.DRV WFWNET.HLP WFWSETUP.CPL WGPOMGR.DLL WIN.CNF WIN.SRC WIN386.EXE WIN386.PS2 WIN87EM.DLL WINCHAT.EXE WINCHAT.HLP WINDOWS.LOD WINFILE.EXE WINFILE.HLP WINGDING.FOT WINGDING.TTF WINHELP.EXE WINHELP.HLP WININI.WRI WINLOGO.BMP WINMETER.EXE WINMINE.EXE WINMINE.HLP WINOA386.MOD WINTUTOR.DAT WINTUTOR.EXE WINVER WORKGRP.SYS WRITE.EXE WRITE.HLP WSWAP.EXE XGA.DRV XLAT850.BIN XLAT861.BIN XLAT863.BIN XMSMMGR.EXE ZIGZAG.BMP VWC.386 WFWNET.DRV WFWNET.HLP WFWSETUP.CPL WGPOMGR.DLL WIN.CNF WIN.SRC WIN386.EXE WIN386.PS2 WIN87EM.DLL WINCHAT.EXE WINCHAT.HLP WINDOWS.LOD WINFILE.EXE WINFILE.HLP WINGDING.FOT WINGDING.TTF WINHELP.EXE WINHELP.HLP WININI.WRI WINLOGO.BMP WINMETER.EXE WINMINE.EXE WINMINE.HLP WINOA386.MOD WINOLDAP.MOD WINTUTOR.DAT WINTUTOR.EXE WINVER WORKGRP.SYS WRITE.EXE WRITE.HLP WSWAP.EXE XGA.DRV XLAT850.BIN XLAT860.BIN XLAT861.BIN XLAT863.BIN XLAT865.BIN XMSMMGR.EXE ZIGZAG.BMP ZIGZAG.BMP< Auto-scrollbar field Field widgets chapter FALSE visited chapterID Field id 0 of Page id 26 widgets This field recognizes when the text starts to overflow, and turns itself into a scrolling field. By testing the textOverflow property, this field becomes a scrolling field when it holds more text than it can display. The Details field in this book uses this method. Auto_Scroll zashowOrHideScrollbar enterPage zashowOrHideScrollbar leaveField zashowOrHideScrollbar keyUp zashowOrHideScrollbar showOrHideScrollbar notifyBefore showOrHideScrollbar notifyAfter E> 0 Auto_Scroll tbk_wid_name jfkdls;a fdjklsa;fhndfg dfg dfh;ajfklds; enterPage leaveField keyUp Auto-scrollbar Field Calculator Searching field Field widgets chapter FALSE visited chapterID Group id 3 of Page id 27 widgets By typing in the field at the top, you can find an entry in the field below. In response to the enterPage message for this page, the scrolling field fills an array with its text. This helps speed the search that takes place after each keyDown message in the upper field. search search tbk_wid_name index .&+ + itemArray enterPage buttonUp notifyBefore 4ARRAY STRING itemArray[] fill B] order oselectedTextlines activate after again alias align angle application argument ascending background backgroundimage before bitand bitnot bitor bitshiftleft bitshiftright bitxor break caption changes character characters chars check chooseresource clear close closefile closeremote commandwindow conditions contains context continue createfile deactivate decrement default descending dimensions direction disable dynamic eighth eject enable excluding execute executeremote export extend fifth first fixed format forward fourth fxdissolve fxwipe fxzoom getremote graphic handle helptext import importgraphic increment insteadof items keepremote linkdll local locateonly magnify menubar menuenabled menuitem menuitemchecked menuitemenabled menustate middle minimized modal ninth normal notactive notifyafter notifybefore number openfile order pageimage password pause previous print properties readfile records reference remove request reset resource resourcecount resourcelist respondremote restore return scrollbar search second seconds seekfile select sendnotifyafter sendnotifybefore separator setmenuhelptext setmenuitemhelptext setmenuitemname setmenuname setremote seventh shift silently sixth speed spooler start store target tenth textfrompoint textline textlines third ticks topic transition translatewindowmessage uncheck unlinkdll unselect until untranslateallwindowmessages untranslatewindowmessage using variable variables while window within without words writefile seed seekfile select self send sendnotifyafter sendnotifybefore separator set setmenuhelptext setmenuitemhelptext setmenuitemname setmenuname setremote seventh shift show silently sixth slow sort speed spooler start step store target tenth textfrompoint textline textlines then third this ticks time to tool topic transition translatewindowmessage uncheck unlinkdll unselect until untranslateallwindowmessages untranslatewindowmessage using variable variables when while window with within without word words writefilefile enterPage Bold, italic, and underline Field widgets chapter FALSE visited chapterID Group id 4 of Page id 28 widgets The buttons below will bold, italicize, or underline any selected text. These buttons send the bold, italic, or underline message to change any text you have selected. The group script uses a notify handler to determine the correct state for the buttons after new text has been selected. Bold_Italic_Underline .&, " hasUnderline Italic hasItalic hasBold underline FALSE italic s_widOldText Underline notifyAfter 4s_widOldText = TRUE FALSE hasBold = hasItalic = hasUnderline = Bold_Italic_Underline tbk_wid_name buttonClick buttonClick FALSE inverted Italic buttonClick buttonClick FALSE inverted Underline buttonClick buttonClick FALSE inverted This is a test of the Bold, Italic, and Underline widget buttons.dsfdklfjdksl;ajfa Drag and drop text Field widgets chapter FALSE visited chapterID Field id 0 of Page id 29 widgets This widget enables you to select text, then drag it into another field. This widget allows you to drag any text out of it and then drop that text into any field that has its allowDrop property set to true. You can create such a field in the application you paste the widget into by drawing a field, then setting allowDrop to true from the Field Property dialog box. Drag_Drop_Text Drag_Drop_Text tbk_wid_name Drag&Drop: Select some text in this field and drag it to one of the others. One of the other fields allows drops, the other doesn't. Test, stest tetstetst stillOverDrop enterDrop stillOverDrop sourceObj, loc FALSE caretLocation enterDrop Field id 0 of Page id 29 widgets This widget enables you to select text, then drag it into another field. Multiple choice Data widgets Time and Date,Spinners,Validate on leaveField; Numbers,Validate on leaveField; Text,Validate on Keystroke; Numbers,Validate on Keystroke; Text,Directories and Files,Add and Remove myPageList 9,10,11,12,79,8,14,13,15,80,86,16,17 widgetIDs 9,10,11,12,79,8,14,13,15,80,86,16,17 Spinners Data widgets chapter FALSE visited chapterID Group id 29 of Page id 8,Group id 17 of Page id 8,Group id 6 of Page id 8 widgets These widgets let you set data in a field by "spinning" to the desired value. In the time and date widgets, select what part you want to change. All three spinners are groups. The integer spinner has simple scripts in each button that increment and decrement the value in the field. The date and time spinners are more sophisticated. The buttons set the value of the selected part of the date or time; the fields need some fairly complicated algorithms to recognize which values are legal. Integer Integer tbk_wid_name integer spinUp w%spinUp buttonDown w%spinUp buttonStillDown spinUp "integer" integer spinDown |spinDown buttonDown |spinDown buttonStillDown spinDown "integer" integer tbk_wid_name month month buttonDown month month buttonStillDown selectedHotwords "day" "month" "year" increment decrement increment evaluate(day) 04 / 19 / 777 month tbk_wid_name ;seconds seconds minute minute buttonDown ;seconds seconds minute minute buttonStillDown selectedHotwords "hour" "Time" "minute" "AMPM" increment decrement increment evaluate(day) 09 : 25 : 27 PMM minute seconds integer:spinner: date:spinner: time:spinner:er Spinners Outline Self Sorting Field ???????? Validate on leaveField, numbers Data widgets chapter FALSE visited chapterID Field id 3 of Page id 9,Field id 2 of Page id 9,Field id 1 of Page id 9,Field id 0 of Page id 9 widgets This widget validates numeric data when the user leaves the field.s The widget fields will only accept data of the type described in the fields to the left of the widgets. The widget tests the data for the valid type when the user leaves the field.Q LeaveField_Number The value in the field must be a number. leaveField xisType(REAL, "The value must be a LeaveField_Number tbk_wid_name 034.344r LeaveField_Integer The value in the field must be an integer. leaveField x(isType(REAL, k1) = 0) "The value must be integer." LeaveField_Integer tbk_wid_name -12333.444444 LeaveField_PosNumber The value in the field must be a positive number. leaveField x(isType(REAL, "The value must be a positive LeaveField_PosNumber tbk_wid_name 55.5444444444 LeaveField_PosInt The value in the field must be a positive integer. leaveField x(isType(REAL, k1 = 0) "The value must be a positive integer." LeaveField_PosInt tbk_wid_name 5444444765444 Number: Integer: Positive Number: Positive Integer: FALSE Validate on leaveField, Numbers Add and Remove fgdfgh Validate on leaveField, text Data widgets chapter FALSE visited chapterID Field id 6 of Page id 10,Field id 4 of Page id 10,Field id 1 of Page id 10,Field id 0 of Page id 10 widgets This widget validates text when the user leaves the field.o The widget fields will only accept data of the type described in the fields to the left of the widgets. The widget tests the data for the valid type when the user leaves the field. The first widget uses a pattern editable from the script. The third and fourth widgets use the sysDateFormat and sysTimeFormat. LeaveField_Pattern ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz string does not match key: FALSE NNN-**-AA-NNN valid string ,.-*e tempKey alpha numeric seperator 0123456789 leaveField -- A key consists arbitray length four different -- "N" means the that must be a -- "A" (alpha. -- "-" 9seperator. -- Anything (we used "*") c"I don't care". -- Use establish your own = "NNN-**-AA- tempKey = key = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" numeric = "0123456789" = " ,.-*e" valid = TRUE FFALSE does xmatch key:" && LeaveField_Pattern tbk_wid_name 234-s@-WE-234444 LeaveField_Whitespace 2, "L ,!JA" ,!Ja" ,%H.% The characters in the field must all be in the alphabet. leaveField = 32 = 9)) < 65) > 90 < 97) > 122) "The must alphabet." LeaveField_Whitespace tbk_wid_name Foobar Barfoorrrrrrrrr Pattern match: Alpha - whitespace: LeaveField_Date not a valid date, use: leaveField xisType( xa valid r, use:" && LeaveField_Date tbk_wid_name 1/1/6555 Date: LeaveField_Time not a valid time, use: leaveField xisType( xa valid I, use:" && LeaveField_Time tbk_wid_name 12:00:00 AM Time: FALSE Validate on keystroke, numbers Data widgets chapter FALSE visited chapterID Field id 3 of Page id 11,Field id 2 of Page id 11,Field id 1 of Page id 11,Field id 0 of Page id 11 widgets The numerical value is validated after each keystroke.k The widget fields will only accept data of the type described in the fields to the left of the widgets. The widget tests the data after each keystroke. Keystroke_Number 1234567890-+ 1234567890 characterPosition keyChar key, isShift, isControl ZSTRING characterTyped = ansitoChar( numberDigits = characterPosition = caretLocation j = "." ~(".", ) = 0 h> 0 X> 1) "1234567890-+" "1234567890" key = Keystroke_Number tbk_wid_name 4254.7644444444444444 Keystroke_Int 1234567890-+ 1234567890 keyChar key, isShift, isControl ZSTRING characterTyped "1234567890" caretLocation "1,0" "1234567890-+" Keystroke_Int tbk_wid_name -567563 Keystroke_PosNum 1234567890 1234567890+ keyChar key, isShift, isControl ZSTRING characterTyped = ansitoChar( numberDigits = "1234567890+" _ = "." ~(".", ) = 0 "1234567890" Keystroke_PosNum tbk_wid_name 98.56577577776565777 Keystroke_PosInt numberDigits 1234567890 1234567890+ keyChar key, isShift, isControl ZSTRING characterTyped = ansitoChar( numberDigits = "1234567890+" "1234567890" Keystroke_PosInt tbk_wid_name 8765408765444 Number: Integer: PosNum:er PosInt: FALSE Validate on Keystroke, Numbers sdgsdfg MIDI Keyboard Validate on keystroke, text Data widgets chapter FALSE visited chapterID Field id 6 of Page id 12,Field id 5 of Page id 12,Field id 0 of Page id 12 widgets This widget validates the text after each keystroke.3 The widget fields will only accept data of the type described in the fields to the left of the widgets. The test is made after each keystroke. The pattern for the first widget is a user property. ! Keystroke_FormatText NNN-AAA-*NN templet Keystroke_FormatText tbk_wid_name 345-yrt-434 Patterned text: Alpha - whitespace: AlphaNumeric - whitespace: Keystroke_Alphawhitespace ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz keyChar key, isShift, isControl ZSTRING characterTyped = ansitoChar( numberDigits = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" Keystroke_Alphawhitespace tbk_wid_name widget widget Keystroke_Alphanumeric ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 keyChar key, isShift, isControl ZSTRING characterTyped = ansitoChar( numberDigits = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" = 8 = 9 = 32 Keystroke_Alphanumeric tbk_wid_name jkljk34 33fjklasssssssssssssss FALSE Validate on Keystroke, Text Outline Rearranger Tab widget Directories and files Data widgets chapter visited chapterID Field id 2 of Page id 13,Field id 4 of Page id 13,Field id 1 of Page id 13,ComboBox id 3 of Page id 13,Field id 0 of Page id 13 widgets These fields can navigate to and display information from your DOS directories. These five widgets provide a way to move around in the DOS file system. Changing items here actually changes what drive you are logged onto and what directory is current. &Directories directories directories tbk_wid_name CHARLIE PROBLEMEX HANDBOOK STEVE WHOWHERE WIDGETS GWSWIN HIDDEN JURASSIC JXBETA MSDNCD MSMAIL MSVCPP PDOXWIN SOUND THINGS TSCSI WINDOWS WINVIDEO WINWORD2 ZIPPERX HELPHOOK HFORM HOOKS INPUT INSTVER LISTHORZ LOWPASS MACROHLP MAKEAPP MCITEST MEMORY MIDIMON MULTIPAD MUSCROLL MYPAL MYSCRIB OUTPUT OWNCOMBO OWNERB PALETTE PENCNTL PENPAD PRNTFILE PROFILER QWGDEMO REVERSE ROTARY SELECT SHOWDIB SHOWGDI SNOOP SORTDEMO SRVRDEMO TDOSMEM TIMERS TOOLHELP VERSTAMP WINMEM32 WMFDCODE XTENSION LAURELM HOURIR BRIANT CHARLESO ERIKR FRANKL DICKE BRUCEL MIYUKIH JOHNJ SARAHV TRANSFER CHARLES CHRISC CHUCKW CLAUDE STEVEW CATHYS ALLANF LENORAF CRAIG JOHNCO DANNS DARLENEM DAVEH KEVINB LINDAA DAWNM DEBBIE INGRIDF DENNISO STEVET GIGIL DOUGY TERRYL WHITEY SCOTT MIREIZ LORIJ CHARLESC TAMMYH AUSTRIA MITCHELL SWISS SAVER DENNISC DOUGK EPOCH SCOTTM MIKEF GER_CPL ELAINER MELODY JOHNGO SCOTTSC GREGE HARRIETL HARRYS CSC_TOM JACKIEV MIKEN JEAND JEFFA JOELK JEFFU JENNIFER WHITNEYM JEREANG DICKH JANETS RANDYA JOHNA JOHNB JOHNC JOHNG JOHNT JONES JORDANS JOSEPHB JOSHB JULIE KATHERIN KEITHC YVETTEB DIDIERB LANCE LAURELC LISAA CSC_TAMY LORIP WAYNEW MARCS MARIEF BETHR MARKMA MARTY KIKIW RICKS BRIANH MICHAELS JEFFM DEBBIEP MIKEM MOUSE NADIMH NANETTE NORMS PAULD PAULG PAULM PHILP LOGOS DENNISL RICKE MICHELEC DIANED ROSSG ROSSH CHARLOTT SCREENS SHABBIR LISAM SARAHH SHELLEYH SHERRI SHIRLEY SHUANGL SKUSALES STEVEB STEVEBA STEVEBEC STEVENW SUSAND SUSANM SUZYS MARKR TERONU TRACEY TRAINING TYLERB SCOTS WHOWHERE WINNIE TONYA SUSANP DAVIDS SYPLUS JOHND DALEW JENNW JULIEP BETHH PRODUCTI MIKES MARGOTP MICHAELO STEVEC JANETL LYNNEP TYRONEF MIKEST KRISTINE BILLS SANDYW GAARL MIKEP BRADC SUSANH STEPHEN STEVEF D&rives Drives Drives tbk_wid_name Fi&les file list file list tbk_wid_name ADVANCED.DIA BASWID.BMP BASWIDG.DIA BO.TXT BOOK.TXT CAL.TBK CLEAR.TXT CRPT01.TBK CRPT03.TBK CRPT04.TBK DWWIDCRP.LOG EXIT.TXT FIELD.TBK FKEYB.TXT INITCL.DIA ISOBJECT.TBK KAREN.TBK MINUS.BMP NOTIFY.BMP NOTIFY.DIA OUTLINEA.TBK PLUS.BMP PRTRES.TBK REPAGE.TXT SAVEAS.TBK SAVEAS2.TBK SCALSLI1.TBK SCALSLID.TBK SETTEST.TBK TAB.TBK TABBY.TBK THUMB.TBK TIMWIDGT.TBK TMP.TXT WIDDLG.SBK WIDG.DIA WIDG101C.TBK WIDG101D.TBK WIDGETS.ICO WIDGETS.TBK WIDGT84.TBK WIDGT99B.TBKDG.DIA WIDGETS.ICO WIDGETS.TBK WIDGT75.TBK WIDGT79.TBK WIDGT84.TBK WIDGT93.TBK WIDGT95.TBK WIDGT96.TBK WIDGT98B.TBK WIDGT98C.TBK WIDGT99A.TBK WIDGT99B.TBK WIDGT99C.TBK.SBK WCANAS.DOC WHOWHERE.PRO WINCOMT.DLL WINCONST.HLP WRKBNCHT.DLLL MSIPX.TXT NEKO.INI NET.BAT NETBIOS.EXE NETX.TXT OCEANSCD.SDF OCEANSHD.SDF OCVER.TXT PCDLIB.DLL PDOXUSRS.NET ROUTE.TXT SETUP.BMP SHELL.CFG START.TXT TOWIN.BAT VIRUS.TXT Current Directory CurrentDirectory w, #> vgetcurrentDirectory getCurrentDrive drive updateDirectoryInfo notifyBefore updateDirectoryInfo path drive = getCurrentDrive() &":\"&getcurrentDirectory( CurrentDirectory tbk_wid_name C:\TBEA\SAMPLES\CONTACT\PROBLEMDOSST\RESWDLGCK File Name file name file name tbk_wid_name CONTACT.ICOO Button updateDirectoryInfo updateFileInfo selectFile selectFile updateFileInfo updateDirectoryInfo enterPage activateInstance acceptFile FALSE Directories and Files Exit Windows Ex Select field gsfdddrts Add and remove Data widgets chapter visited chapterID Group id 4 of Page id 14 widgets You can move information back and forth between these two fields. You can also drag the text back and forth.' Like the old Macintosh Font/DA mover, you can use this control to move information back and forth between a source field and a destination field. Add_and_Remove Add_and_Remove tbk_wid_name Source FALSE allowDrop buttonClick buttonStillDown beginDrag endDrag allowDrop sourceObject FALSE buttonClick xenabled oselectedTextlines <> drag beginDrag endDrag targetobject Source tbk_wid_name Henry Harriet HarryrrietHenryet Henry Harry Destination FALSE allowDrop remove buttonClick buttonStillDown beginDrag remove endDrag allowDrop sourceObject FALSE buttonClick xenabled oselectedTextlines <> drag beginDrag endDrag targetobject Destination tbk_wid_name Harold Hildagaarddagaardietgaard destination Destination source buttonClick enterPage buttonClick ZINT thisLine selectedTextlines "source" "Destination" <> CRLF "destination" oenabled FALSE notifyBefore tbk_wid_name Add >> remove Destination source buttonClick enterPage buttonClick ZINT thisLine selectedTextlines "Destination" "source" <> CRLF oenabled FALSE notifyBefore remove tbk_wid_name << Remove enterPage FALSE Time and date Data widgets chapter FALSE visited chapterID Field id 1 of Page id 15,Field id 0 of Page id 15 widgets These fields display the current date and time. AutoDate and AutoTime initialize themselves on the enterPage message with a notifyBefore handler. You can get and set the formats in which they show the date and time with any legal OpenScript time format. The widgets will set their default format and immediately update. For example, type the following script in the Command window: set format of field "autoDate" to "dd/mm/yy". autoDate format enterPage prop_format format prop_format format notifyBefore value oprop_format sendNotifyBefore autoDate tbk_wid_name format borderStyle tbk_wid_props list,none,rectangle,shadowed,inset,raised tbk_wid_values mm/dd/yy prop_format 05/20/9420, 1993 autoTime 4 N i autoTime tbk_wid_name format borderStyle period tbk_wid_props list,none,rectangle,shadowed,inset,raised tbk_wid_values h:min:sec AMPM prop_format period timerID 1:37:24 PMM Auto date:nameer Auto time:nameer enterPage leavePage Win version & DOS version Data widgets chapter chapterID FALSE visited Button id 0 of Page id 16 widgets This button can retrieve and display the version numbers for DOS and Windows. The Windows call GetVersion returns the running versions of Windows and DOS in a packed format. This widget makes the link, makes the call, and unpacks the information for you, displaying it in a readable form. Win_DOS dmajorNumber DOS version: minorNumber GetVersion dminorNumber kernel Windows version: GetVersion verNum majorNumber buttonClick buttonClick linkDLL "kernel" DWORD GetVersion() verNum WverNum k65536 DverNum y65536 majorNumber minorNumber dmajorNumber dminorNumber "Windows version:" && n& "." & b& CRLF & \ "DOS `& "." & -- deal fdll refCount unlinkDLL " Win_DOS tbk_wid_name Show Win and DOS versions Win Version & Dos Version Show off Searching Field Slow-Motion Dialog dminorNumber "Windows version:" && n& "." & b& CRLF & \ "DOS `& "." & -- deal fdll refCount unlinkDLL " Win_DOS tbk_wid_name Show Win and DOS versions Win Version & Dos Version Show off customEd x5chapter Details Cvisited zashowOrHideScrollbar contentBar Reader heading enterPage ClearChecks topics contentBar enterBackground contentBar topics x5chapter ainitPage updateChecks chapterID chapterID topics ~= "Reader" visited "heading" /"contentBar" chapter showOrHideScrollbar J"Details" FALSE enabled disable "ClearChecks" chapterID y-- shouldn't happen, but you never know initPage updateChecks Widget Label Description Label Description: Description Details Label Details:ion Details showOrHideScrollbar showOrHideScrollbar E> 0 -- raised autoPageName 6Wrealname enterPage notifyBefore realname autoPageName tbk_wid_name tbk_wid_values Widget:: Description Label Name:iption: enterPage Advanced widgetryd cleanupeerss Table of Contents contentbar tableOfContents leavePage topics contentBar tableOfContents Table of contents heading enterPage ClearChecks enterBackground enabled B"tableOfContents" /"contentbar" up toolbar pref /"contentBar" FALSE "heading" "Table contents" disable c"Page" "ClearChecks" out,true ThreeDeeRect bottomLine topLine tableOfContents chapter1 Navigation widgets check1 chapter2 The Position Property 59 The Script Recorder 63 The Move Command 68 Move By 58 Move To 57 Moving on Idle 64 topics pageID Data widgetsidgetsn check2 chapter3 Timing Animation 66 Simulating Gravity 67 topics pageID Field widgetssta check3 chapter4 Chickens 26 Goats 25 topics pageID Slider widgetsta check4 chapter5 CBT widgetsets check5 chapter6 Keyboardstsets check6 chapter7 Miscellaneouss check7 chapter8 Widget helpus check8 chapter9 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Widget helpusd check9 chapter10 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Widget helpus check10 chapter11 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Widget help check11 chapter12 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Navigation check12 chapter13 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Navigation check13 chapter14 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Navigation check14 chapter15 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Navigation check15 chapter16 How It Works 26 Hiding and Showing 25 Animating with Resouces 61 Page Flipping 62 Untitled 74 topics pageID Navigation check16 out,true ThreeDeeRect bottomLine topLine topic J%|%OO raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values highlight Table of contents shadow Table of contents Table of contents Click one of the topics below to view information on that subject.ct.ubject. Table of Contents Book Outline Topics ClearChecks enterBackground contentbar heading enterPage topics contentbar heading widgetIDs chapterLabel widgetIDs updateCheckMarks initPage topics updateChecks widgetIDs updateCheckMarks ainitPage ainitPage previous enable c"Page" "ClearChecks" up toolbar "heading" /"contentbar" -- updates . sent 4the entered. initPage "chapterLabel" widgetIDs updateCheckMarks FALSE updateChecks out,true ThreeDeeRect bottomLine topLine out,true ThreeDeeRect bottomLine topLine chapterLabel raisedField tbk_wid_name faceColor highlightColor shadowColor tbk_wid_props color,hls color,hls color,hls tbk_wid_values highlight Widget helpussgetsn shadow Widget helpussgetsn Widget helpussgetsn Click one of the buttons below to view information on that widget..t....... Topics 0,28,19 topicList "I j!u topic1 pageId Intro to widgetseField, numbers check1 topic2 pageId Basic widgetsrdveField, texters check2 topic3 pageId Notify messagesgeroke, numberss 61 check3 topic4 pageId Initialization and cleanupterss check4 topic5 pageId Advanced widgetryroke, textbers check5 topic6 pageId Self sorting fieldlesd, Textrs check6 topic7 pageId Searching field fileserlineers check7 topic8 pageId Auto-scrollbar fields, Text check8 topic9 Bold, italic, and underline check9 topic10 Drag a textlinend underline check10 topic11 pageId Drag and drop textversionne check11 topic12 pageId Multiple OLE drag & dropns 25 check12 "I $ ! "I 0! topic13 pageId Show offor WFWtion& Drops 61 check13 topic14 2">", pageId Windows or WFWelineuces62 check14 "`#l# topic15 pageId Move by commandline4 check15 topic16 pageId Moving on idlec check16 topic17 (&6&, pageId Tonyc7r7 check17 &('4' topic18 \'j', pageId Barbara8 check18 topic19 topic9r8 check19 topic20 topic108 check20 Topics contentBar Table of Contents 10,14 selectChars 24,25 Table of Contents Data widgets dfgsdfgshywe Navigation widgets Auto Page,Auto Buttons,Folder Tab Widget myPageList 3,4,5,6 widgetIDs 3,4,5,6 Time and Date CBT Widgets True and False Auto page Navigation widgets chapter FALSE visited chapterID Field id 2 of Page id 3,Field id 1 of Page id 3 widgets These fields automatically display the current page number and page name. Both fields use notifyBefore enterPage handlers to set the text of the field to the name and number of the page. In order to see the field update if you name a page or change its name or number, you must send the enterPage message, or navigate away from the page and then return to it. autoPageNumber enterPage notifyBefore autoPageNumber tbk_wid_name tbk_wid_values autoPageName enterPage notifyBefore autoPageName tbk_wid_name tbk_wid_values Auto page Auto page number: Auto page name:r enterPage Auto Page Auto Buttons Content Buttons jhfhgjfghj Auto buttons Navigation widgets chapter FALSE visited chapterID Group id 5 of Page id 4 widgets ToolBook automatically enables and disables these buttons. In the example below, they work on the page, but they should be pasted onto a background.Q ToolBook uses the same script and user properties to enable and disable these buttons depending on what page the buttons are on. To get and to set handlers determine what page ToolBook navigates to when the button is clicked and the page the button is disabled on. The caption of the button is also the actual command. Tools30.sbk includes information for widgets of this kind, and you can edit them from that sysBook. Make sure tools30.sbk is a system book. Right-click the button, click the Custom edit button on the right-click tool bar (just left of the Help button), and then double-click the value for the property in the "Browser" that appears. AutoButtons AutoButtons tbk_wid_name autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level direction prop_disablePage D Z \ autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level direction First prop_disablePage Previous autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,First,Previous,Next,Last tbk_wid_values background prop_level direction prop_disablePage autoDisable Navigation button tbk_wid_name level direction disablePage tbk_wid_props list,background,book list,Next,Previous,First,Last tbk_wid_values background prop_level direction First prop_disablePage First enterPage Tab widget Widget Navigation widgets chapter FALSE visited chapterID Group id 144 of Page id 5 widgets This widget can display from 1 to 6 tabs as shown below.o Pressing a tab sends the tabPressed message with the parameter of the tab number pressed. Currently, this message is handled in the widget; you'll have to forward the message if you want to handle it at the page or background. The widget should resize gracefully no matter what you do. Use the Group editor to resize the individual tabs. All handlers are in the folder group script. You can set the properties of this widget in tools30.sbk. For details see the "Advanced Widgetry" Help topic. To change the number of tabs, set numTabs of the widget to a number between 1 and 6. Note: To add more than 6 tabs, see comments in the folder group script. To change the height of the tabs, set tabHeight of the widget to a number in page units. (Currently it's at 275.) To change the selected tab without clicking the tab itself, set tabMode of the widget to the appropriate number. To change the amount of space between each tab, set tabSpace of the widget to a number in page units. To change the labels on the tabs, change the caption of the button in the tab group using the right-click menu. folder @ OO R t qp mytabheight myNumTabs myTabMode myTabSpace tbk_wid_name numTabs tabHeight tabMode tabSpace tbk_wid_props tbk_wid_values obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel obtype tabHighlight tabLabel highlight Validate on leaveField, Text Field Widgets Notify Messages splash Content buttons FALSE visited Navigation widgets chapter chapterID Group id 146 of Page id 6,Field id 36 of Page id 6 widgets The buttons below act as a table of contents or an outline. The chapter headings on the left recognize their associated pages. The "buttons" (they are actually fields) on the right navigate to the pages with those names. Use the following command in the Command window to use the field at the upper-right to set the two levels of the outliner: set outline of group tableOfContents to text of field "outline". Type Ctrl+Tab to indent subordinate items below the top-level text. outline outline tbk_wid_name Poodles Great Danes So-so Danes Siamese cats Fussy cats Decorator cats Cats who love dogs Gold fish Silver fish Sushiiiiiiiih sushihhhhhh tableOfContents tableOfContents tbk_wid_name H!M > Chapters chapter1 Poodles Great Danes So-so Danes topics pageID Dogse Animations chapter2 pageID Siamese cats Fussy cats Decorator cats Cats who love dogs topics Catsng Objectsns chapter3 Gold fish Silver fish Sushi topics pageID FishsesScriptsls chapter4 pageID Chickens 26 Goats 25 topics Farm Animals chapter5 chapter5 chapter6 chapter6? chapter7 chapter7 chapter8 chapter8 Topics topic1 pageId Poodles cats 26 59 topic2 pageId Great DanesShowing 253 topic3 pageId So-so Danesatsanesouces 61 topic4 pageId Cats who love dogs 62 topic5 pageId Move To 57 topic6 pageId Moving on Idle 64 topic7 pageId Tonyc7r7 topic8 pageId Barbara8 topic9 topic9r8 topic10 topic108s bracket joiner FALSE System Arial MS Sans Serif MS Sans Serif System Arial Courier New Arial Arial Times New Roman Times New Roman Times New Roman Times New Roman Times New Roman MS Sans Serif 2,7,18,32,35,38,60,65,71 MS Sans Serif topics Arial 2,7,18,32,35,38 topicIDs System sicWidgetBOX sicWidgetINIT Arial MS Sans Serif MS Sans Serif System MS Sans Serif Arial MS Sans Serif Arial Slider widgets CBT widgets Keyboards Miscellaneous Widget help itandCleanupINIT MS Sans Serif 2,7,18,32,35,38,60,65 help Description contains "number" Description Description Text of RecordField "Description" contains "number" 2,7,18,32,35,38,60,65 MS Sans Serif Courier New sicalSymbols 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65 MS Sans Serif mes New Roman cellaneous Widget help GROUPBOX Notify Messages,G39,Notify Messages BUTTON More,B35,TRUE BUTTON Back,B36,TRUE BUTTON Cancel,B37,TRUE STATIC Notify Message,S38,Notify messages are useful for letting the widget know what is going on without modifying any scripts BITMAP Notify Messages,p65,bitmap "Notify" tifyMessagesINIT 524480,5,25,25,169,127,,,Init and Cleanup,8,MS Sans Serif,Init and Cleanup,9,0,157,93,39,1342177287,128,Initialization and Cleanup,0,More,17,100,47,14,35,1342242816,128,&More,0,Back,69,100,42,14,36,1342242816,128,&Back,0,Cancel,114,100,43,14,37,1342242816,128,&Cancel,0,Init and cleanup,14,16,147,70,38,1342177280,130,Text,0 itAndCleanupBOX GROUPBOX Init and Cleanup,G39,Initialization and Cleanup BUTTON More,B35,TRUE BUTTON Back,B36,TRUE BUTTON Cancel,B37,TRUE STATIC Init and cleanup,S38,We can use "notifyBefore copy" handlers to initialize the widget as it is being copied, and possibly to initialize the book it is being pasted into. We can also use "notifyAfter paste" or "notifyAfter make" handlers to initialize and cleanup the new widget itAndCleanupINIT 524480,5,25,25,237,189,,,Advanced Widgetry,8,MS Sans Serif,Advanced Widgetry,11,3,217,151,39,1342177287,128,Advanced Widgetry,0,More,46,159,47,14,35,1342242816,128,&More,0,Back,99,159,42,14,36,1342242816,128,&Back,0,Cancel,144,159,43,14,37,1342242816,128,&Cancel,0,Advanced,22,21,202,122,38,1342177280,130,Text,0 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65 Navigation widgets Data widgets Field widgets Slider widgets CBT widgets Keyboards Miscellaneous Widget help Times New Roman Times New Roman cellaneous Widget help Navigation widgets Data widgets Field widgets Slider widgets CBT widgets Keyboards Miscellaneous Widget help andlers to initialize and cleanup the new widget all Fonts MS Sans Serif Courier New 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65 2,7,18,32,35,38,60,65,94 Field widgets Slider widgets CBT widgets Keyboards Miscellaneous Widget help 2,7,18,32,35,38,60,65,94 2,7,18,32,35,38,60,65 Field widgets Slider widgets CBT widgets Keyboards Miscellaneous Widget help dget help dget help 29,39,1342177287,128,Notify Messages,0,More,17,138,47,14,35,1342242816,128,&More,0,Back,68,138,42,14,36,1342242816,128,&Back,0,Cancel,114,138,43,14,37,1342242816,128,&Cancel,0,Notify Message,16,15,142,28,38,1342177281,130,Text,0,Notify Messages,15,43,145,83,65,1342177280,TBKDLGBitmap,bitmap "Notify",0 tifyMessagesBOX GROUPBOX Advanced Widgetry,G39,Advanced Widgetry BUTTON More,B35,TRUE BUTTON Back,B36,TRUE BUTTON Cancel,B37,TRUE STATIC Advanced,S38,Tools30.sbk knows quit a bit about widgets. It can tell if an object is a widget when that object has the user property "tbk_wid_name" set to some value. It also knows about two other properties: 1) tbk_wid_props is a carriage-return line-feed delimited list of properties (user properties) that the widget has and that can be initialized and set according to the parameters of property # 2. 2) tbk_wid_values is a CRLF list with the same number of textlines as tbk_wid_props. Textlines in the two properties correspond. The first item of each textline in tbk_wid_values declares what kind of values the property can take. This can be any of "custom,text,list,boolean,na." The next items in the list will be the legal values for that property. Widgets Tool Bar Page "ContentBar" copyDialog py a Widget Page "copyDialog" Book Outline Book Outline Page "Book Outline" Select Topic Select Topic Page "Select Topic" Widgets widgetProperties Advanced Widgetry ge "Dialog" Widget Properties page "widgetProperties" Select a Widget to Check. splash Page id 92 Page "splash" Page id 78 of Book "C:\TBEA\SAMPLES\WIDGETS\WIDGT67.TBK" Useful patterns Data widgets chapter chapterID FALSE visited Field id 4 of Page id 79,Field id 1 of Page id 79 widgets This widget recognizes data entered in a standard pattern of numbers. Here are two widgets ready to go into your application. They both validate the data on keystroke, the first will only accept a valid social security number, the second a valid telephone number. Keystroke_SSN ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz templet seperator ,.-/ alpha numeric characterTyped string 0123456789 Etemplet keyChar Etemplet enterField key, isShift, isControl templet = -- user property alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" numeric = "0123456789" seperator = " ,.-/" caretLocation = characterTyped = o(key) characterNumber = ( NNN-NN-NNNN templet Keystroke_SSN tbk_wid_name 123-45-6789 Social Security Number: Keystroke_Phone ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz templet seperator ,.-/ alpha numeric characterTyped string 0123456789 Etemplet keyChar Etemplet enterField key, isShift, isControl templet = alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" numeric = "0123456789" seperator = " ,.-/" caretLocation = characterTyped = o(key) characterNumber = ( NNN-NNN-NNNN templet Keystroke_Phone tbk_wid_name 206-637-16000 Telephone Number: FALSE Qwerty keyboard input leavePage "input" Keyboards chapter FALSE visited chapterID Group id 277 of Page id 58 widgets A qwerty keyboard that returns the letter that is clicked.U Clicking the buttons in the keyboard will display text in the field. N.B. This widget has problems drawing itself in high resolution mode (1024 by 768 or greater) when using large fonts. You can fix this by adjusting the u QWERTY_Keyboard QWERTY_Keyboard tbk_wid_name input ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName ALPHA txClassName Enter NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName lT`TiT NON-ALPHA txClassName NON-ALPHA txClassName Caps Lock NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName Shift NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName Shift NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName NON-ALPHA txClassName enterPage CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar widgets &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Copy Ctrl+C myCopy Copy &All Ctrl+Shift+C copyAll &Paste Ctrl+V myPaste Clear Chec&ks resetChecks Clear the check marks from the table of contents and all the topic pages. &Size to Page F11 sizetopage F&ind... F5 Au&thor F3 author &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history &Help &About... About &Contents... F1 contents &What's a Widget?... widgetHelp Status &Bar F12 statusbar undo Ctrl+Z cut Ctrl+X copy Ctrl+C paste Ctrl+V clear Del command Shift+F3 Save Ctrl+S SaveDialog Open Ctrl+O OpenDialog Properties Shift+F6 Properties Preview Dialog Ctrl+W ShowDialog group Ctrl+G group edit editor F3 Browse highlightColor value shadowColor faceColor sized spupp syspageunitsperpixel syssuspendmessages highlightColor value shadowColor faceColor sized spupp syspageunitsperpixel syssuspendmessages value month k12) + 1 < 1 > 12 &&"out range 1 year (+ 1) < 0 > 99 daysInMonth m = y = m <> 2 "31,28,31,30,31,30,31,31,30,31,30,31" k4 = 0 k100 <> 0) k400 = 0) "month" "day" "year" value ZLONG days = daysInMonth() 5) + 1 %"00" %"00" < 1 outside range 1 %"00" k12) + 1 %"00" %"00" < 1 > 12 &&"out %"00" + 1) %"00" %"00" < 0 > 99 %"00" initialize 4OBJECT newHotwordID %"mm / dd / yy" m = m <> 2 "31,28,31,30,31,30,31,31,30,31,30,31" y = k4 = 0 k100 <> 0) k400 = 0) value month k12) + 1 < 1 > 12 &&"out range 1 year (+ 1) < 0 > 99 daysInMonth m = y = m <> 2 "31,28,31,30,31,30,31,31,30,31,30,31" k4 = 0 k100 <> 0) k400 = 0) notifyBefore linkDLL "user" WORD widTimerStart=SetTimer( ,DWORD) +End = KillTimer( translateWindowMessage windowHandle on 0x0113 clockTick otimerID operiod * 1000, 0) notifyAfter widTimerEnd( unlinkDLL " hWnd, msg, value oprop_format sortSelf ZARRAY STRING dataArray[] ZLONG numberLines, i = TRUE fill B] order 4 = dimensions ( startProfile("quickSort") quickSortTextlines , 1, endProfile() i] &CRLF = FALSE , lo, hi vKey, vSwapBuffer vSplitPoint, i ZSTACK paramStack clo < hi lo + 1 i] < i] = lo] = - lo > hi - ) = 0 highlightColor value shadowColor faceColor sized spupp syspageunitsperpixel syssuspendmessages --Save the initial Bthat was pressed compare }handler --toggle Akeyboard so only one inverted. 4initialButton, initialButtonClass "input" txClassName >= "ALPHA" toggleInvert >, "NON- --Check released over a different a buttonClick FToolBook will , invertedButton, invertedButtonClass objectFromPoint( 9s = " Us = " FALSE nlabel sysPageUnitsPerPixel), -( el * 5) --As mouse drug around Bdown buttons cursor passes them. Roff isChild( l), -( l * 5) {so I always }pairs. labelText = "Shift" = "Ctrl" = "Alt" = "Caps Lock" = "Tab" , TRUE = "Enter" keyEnter = "<-" notifyAfter --This takes care popping up inverting targetObject. toggleObject, class l), -( l * 5) l * 5) --returns objectInQuestion a child parentInQuestion acting The enter special because --parts. notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level "invalid widget:"&& G &CRLF&\ "must be "" direction "Next,Previous,First,Last" "", "" "", "" oprop_disablePage &CLRF&\ notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level "invalid widget:"&& G &CRLF&\ "must be "" direction "Next,Previous,First,Last" "", "" "", "" oprop_disablePage &CLRF&\ notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level "invalid widget:"&& G &CRLF&\ "must be "" direction "Next,Previous,First,Last" "", "" "", "" oprop_disablePage &CLRF&\ notifyBefore odisablePage && " " && olevel) oenabled FALSE buttonClick " && value oprop_level "invalid widget:"&& G &CRLF&\ "must be "" direction "Next,Previous,First,Last" "", "" "", "" oprop_disablePage &CLRF&\ adjustLines curField M"&i) curLine curfield b + ( selectedChapter value chapterRef )"&i) pageID middleGray() lightGray midspot b + ( m"joiner"-- topicTree(v) -- you will probably want modify the following -- error handling execpt " FALSE "Couldn't navigate " && topicCount textlineCount( Nexist curtopicField M"&i) extractName(t) M"&i) U"1" plast U"bracket" k2 = 0 p1 + ( y2 + 1) 240,63.5,2.1875 values table contents -- e.g. " outline tableOfContents ZtopicList,curChapterField chapterCount "&i) "chapter1" key, isShift, isControl -- N numeric, A alpha, - seperator, anything templet = -- user property O = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" = "0123456789" = " ,.-/" caretLocation = characterTyped = o(key) characterNumber = ( "hour" "Minute" "AMPM" minute value #+ 1) %"00" %"00" < 0 > 59 outside range 0 %"00" k12) + 1 %"00" %"00" < 1 > 12 &&"out %"00" + 1) %"00" %"00" < 0 > 59 %"00" initialize 4OBJECT newHotwordID %"hh : j: sec buttonClick MaxSelection omaxNumber --This handler will limit the selectable lines --a multi- list box. Fcan be placed fwork fmore than one It takes parameter: Represents maximum selections allowed call following syntax: ZLVselectedLine ("Don't know . Please enter a positive integer." (selectedTextLines Target) > Num value isType(INT, -- here neatness, xreally necessary buttonClick XSelect --The allows exclusive 3handler will --multiple selections a list box %the specified xselected. --Once other lines --become unselected. Sort a single- uinside a This can be placed work fmore than one takes paramter: -- XLine: Represents call Xselect following syntax: ZLVsel ("Which Ushould we exclude?" omyNumber selectedTextlines (LVSel) selectedTextLines value isType(INT, onum "Please a positive integer." sortSelf ZARRAY dataArray[] ZSTRING sortedText array fill B] order quickSort -- convert dimensions( i] & CRLF trailing -- update o= default -- The tthree handlers aup a Standard recursive QuickSort. -- Keep mind that arrays are passed Hreference, Hvalue. fArray[] 4s_noSwap quickSrt ), 1, dlo, hi hi > lo j, lo, ((lo+hi) (lo+1) i] < s_noswap quicksrt , lo, +1,hi Ztemp -- use inserting a single U. Will maintain insertLine newLine insertLineAux( -- inserts txt, maintaining -- works only already ending ZinsertSpot midPoint middleLine -- looking )values less than current -- Kgreater -- exists > tlc 4chrOffset, textBuff <> -1 @ = 0 ZnewOffset chOff tL <> -1 <> 0 <> 0 odefaultAllowDrag endDrag targetobject, pageLoc 4theSelectedText ( <> = "0,0" beginDrag notifyBefore notifyAfter 4INT s_WM_DROPFILES 0x0233 linkDLL "SHELL" 2DragAcceptFiles (WORD, DragQueryCount = DragQueryFile ( v, DWORD, ? DragQueryValue = , POINTER, KERNEL" | GlobalAlloc( 5 GlobalLock( GlobalUnlock( GlobalFree( (sysClientHandle,1) translateWindowMessage on filesDropped hwnd, wmsg, wp, lplo, lphi ZhMem, pMem = TRUE cleanUp l_count ( wp , -1 , 0, 0 ) objectFromPoint( ) <> ) = "dropFiles" 66,256) (wp, 0, , 256 ) 1(0, (wp, i-1, , 256) 1(0, ) & GlobalUnLock( objs = myCounter = 0 "OLE" I* 200 b* 200 = False unTranslateWindowMessage -- deal fdll refCount unlinkDLL " -- prevent E.S. xincluded -- This handler jumps the slider each tick mark mouse moved Zarray x[5], pin[4] -- find midpoint between 0i] = ((( U(i+1))-\ Ui))/2 )+( x[i] = ( Ui)-82 pos = " = x[1] " = x[2] " = x[3] When " = x[4] " = x[5] "track" pinNumber() -- This handler jumps the slider each tick mark mouse moved Zarray x[5], -- find midpoint between lines renamed allow ;widgets on [i] = ((( U(i+6))-\ U(i+5)))/2 )+( U(i+5)) x[i] = ( U(i+5))-82 pos = < pin[1] "slider2" = x[1] When -- moves the slider xPix sysPageUnitsPerPixel sliderMin sliderMax scale sliderBounds nearestPupp( oldP nearestPUPP( pos - oldMouseX sliderPos mysliderPos startSliderMove leftMButton primaryMouseButton() -- S-handed mousing newMouseX newP b(x1, 9-dx),x2-w) n-x1)* )/(x2-x1-w)+ sliderMove mySliderPos endSliderMove objectFromPoint( isChild( toggleInvert obuttonPressed buttonClick FALSE toggleObject = TRUE oinvertedButton <> R <> objectInQuestion, parentInQuestion $ <> notifyAfter -- Implementation transition FX individual -- Syntax: -- showWithTrans < {list>, < Eeffect> -- hideWithTrans < -- CJC buttonClick linkDLL "USER" LockWindowUpdate(WORD) , "dissolve ), "wipe unlinkDLL "user" pObjList, pTrans -- SHOW OBJECT LIST: xNULL) -- RESET , EAT PAINTING: sysClientHandle) lockWindowUpdate(0) -- TRANSITION TO THIS PAGE: buttonClick linkDLL "USER" LockWindowUpdate(WORD) ZobjTracker rObj 5& "," hideWithTrans , "dissolve showWithTrans unlinkDLL " .pObjList, pTrans -- SHOW OBJECT LIST: xNULL) -- RESET , EAT PAINTING: sysClientHandle) lockWindowUpdate(0) -- TRANSITION TO THIS PAGE: transition buttonClick howToExit linkDLL "user" INT ExitWindows(DWORD, "Do you want restart exiting?" \ "Restart" "Cancel" -- ignore reboot = 66 "Reboot" -- one will Syour machine! = 67 also sysmenu alt-F4 "This Rclose Uapplications . Are sure f"Yes, "No, don't c"No, exitBook unlinkDLL " -- well, Wreally need -- ) takes two parameters. -- used determine what happens exits. -- :three choices Y are -- -- To just , pass 0. -- defined %EW_RESTARTWINDOWS value 67, -- EW_REBOOTSYSTEM 5.H, -- reserved a 0 must always be Bfunctional, lines buttonClick oToggle graphic bitmap "plus" otoggle -minus" notifyBefore Copy egoes "You must 4copying widget." \ f"Save" "Cancel" saveAs -- here we a property so that can remember -- where came oldBook notifyAfter -- Warning: original deleted moved -- happens, will fail. eresource "Use o, on updateDB stl = oselectedTextLines enabled "allcontrols" B"mainEdit" B"mainDelete" t = info = 9,t)+1 U(t) datatype = pRef = dataType combobox "editType" "Field" mode "options" "Accept "integer" "Allow numbers only" "Read "boolean" "Dropdown List" "dropdown list" "logical" "custom" "Custom" B"values" "Property" && 9,t)-1 t & ":" updateFromDB t = tabloc = 9,t)+1 dtype = "accept retval = " -- "read edittype & "," & U(t) buttonClick keyDownArrow keyLast initDLG sel Zproplist nm = tbk_wid_name propList = getPropListFromHandlers( props = tbk_wid_props vals = tbk_wid_values propcount = propCount curProp = curval = curVal "widname" selectedtextlines updateDB s = C( s) curline = -- trailing updateWidget sel "Uh-oh. Nothing nm = "You must pthe widget 4you can tlcount = curLine = tabloc = close mode value Zvallist fref = "listItems" "logical" enabled origVal icount = updateButtons selectedTextLines Zretval "boolean" "listitems" C(t) checkLinks drive = getCurrentDrive() setCurrentDirectory( .&":.\"& path = getCurrentDirectory( updateFileInfo l&":.\" selectFile &":.\" updateDirectoryInfo &":.\" oselectedTextlines qrefCount DLLs requires leaving clean uncheckLinks notifyBefore ZSTRING fileList = getDirectoryOnlyList( &"*", "N") B = "."&CRLF&".." linkDLL sysToolBookDirectory & "tb30dos.dll" INT unlinkDLL pry & " notifyAfter --stub prevent no notifyhandlers message exist pathAndFile keep causing ES selectChange newDrive checkLinks = TRUE drive = setCurrentDrive( setCurrentDirectory( ;&":") updateDirectoryInfo Y&":.\" updateFileInfo s&":.\" selectFile &":.\" = FALSE uncheckLinks enterDropdown odropDownItems getDriveList() notifyBefore ZSTRING fileList linkDLL sysToolBookDirectory & "tb30dos.dll" bgetCurrentDrive() INT unlinkDLL try & " notifyAfter --stub prevent & handlers message exist pathAndFile buttonClick checkLinks drive = getCurrentDrive() selectFile $&":\"& getCurrentDirectory( A) &"\", W, FALSE uncheckLinks y, TRUE notifyAfter updateFileInfo "activateInstance notifyBefore ; path, file "*.*" fileList = getFileOnlyList( F, "", "N") linkDLL sysToolBookDirectory & "tb30dos.dll" STRING unlinkDLL iry & " --stub prevent no notifyhandlers message exist updateDirectoryInfo pathAndFile keep causing ES keyEnter parseFileName checkLinks fileExists( acceptFile = -18 seperatePath( path = drive = getCurrentDrive() setCurrentDirectory( 0&":"& update , TRUE <> "\" setCurrentDrive( getCurrentDirectory( <> ".\" , FALSE sendNotifyBefore selectFile "", uncheckLinks o= default , directoryChange updateDirectoryInfo &":\"& updateFileInfo &":\"& notifyBefore , confirm "*.*" pathAndFile ZSTRING fileName & <> ".." x"\" x":") = ".\" getFileAttributes( linkDLL sysToolBookDirectory & "tb30dos.dll" INT unlinkDLL ry & " notifyAfter --stub keep causing ES no handler buttonClick printerRes() "This has a resolution " && \ H" && && "dots per inch." "GDI" WORD createIC (STRING, INT getDeviceCaps ( deleteDC ( linkDLL sysToolBookDirectory & "tb30win.dll" t GetWinIniVar ( LOGPIXELSX = 88 -- Windows constants LOGPIXELSY = 90 driverInfo = getWinIniVar("windows", "device") deviceName = "There attached." unlinkDLL " y & " deviceFile = devicePort = hDC = prnXRes = prnYRes = y & " P& "," & -- Tim Pearson, Asymetrix 94 customEdit 4 s_answerMessages Z init, box linkDLL sysToolBookDirectory & "tb30dlg.dll" STRING DialogCallback (WORD, & GetValue ( ?SetValue ( YGetnListBoxSelection( xGetControlText ( INT SetControlText ( -endTBKDialog ( = ",G3607,Answers: ,S3603, Send When Chosen: LISTBOX answers,L3596,TRUE" & CRLF & "FALSE EDIT message,E3604, BUTtoN ok,B1, J,B3606, box = "524480,6,25,25,186,74,,, True False,8,MS Sans Serif,,2,3,130,55,3607,1342177287,128, ,0,,5,32,125,7,3603,1342177280,130, 5,13,49,21,3596,1352728577,131,,0, 5,42,124,11,3604,1350631552,129,,0,ok,136,7,44,12,1,1342242817,128,OK,0, J,136,22,44,12,3606,1342242816,128,Cancel,0" "listBox (windowHandle e,box, Bok") = unlinkDLL y & " TBKDialogInit hDlg,ctrlId,hWnd,msg,ctrlName SetnListBoxSelection( TBKDialogCommand ` = " w = 1 = 512 = "Button 0) -- 0 = notifyBefore -- Tim Pearson, Asymetrix 1/94 customEdit 4 s_answerMessages Z init, box linkDLL sysToolBookDirectory & "tb30dlg.dll" STRING DialogCallback (WORD, & GetValue ( ?SetValue ( YGetnListBoxSelection( xGetControlText ( INT SetControlText ( -endTBKDialog ( = ",G3607,Answers: ,S3603, Send When Chosen: LISTBOX answers,L3596,TRUE" & CRLF & "FALSE EDIT message,E3604, BUTtoN ok,B1, J,B3606, box = "524480,6,25,25,186,74,,, True False,8,MS Sans Serif,,2,3,130,55,3607,1342177287,128, ,0,,5,32,125,7,3603,1342177280,130, 5,13,49,21,3596,1352728577,131,,0, 5,42,124,11,3604,1350631552,129,,0,ok,136,7,44,12,1,1342242817,128,OK,0, J,136,22,44,12,3606,1342242816,128,Cancel,0" "listBox (windowHandle e,box, Bok") = unlinkDLL y & " TBKDialogInit hDlg,ctrlId,hWnd,msg,ctrlName SetnListBoxSelection( TBKDialogCommand c = " z = 1 = 512 = "Button 0) -- 0 = notifyBefore notifyBefore -- hard wired accomodate multiple backgrounds /"main" oenabled FALSE buttonClick loc,isShift,isCtrl initPage -- different behavior pressed notifyAfter "table Of Contents"\ xthe notifyBefore notifyAfter linkDLL "USER" WORD widTimerStart=SetTimer( ,DWORD) +End = KillTimer( translateWindowMessage windowHandle on 0x0113 clockTick otimerID + 1, operiod * 1000, 0) widTimerEnd( unlinkDLL " hWnd, msg, value oprop_format notifyBefore -- hard wired accomodate multiple backgrounds oenabled FALSE "main" dest() = buttonClick loc,isShift,isCtrl initPage "contentBar" /= "Main" chapter tempPageList = widgetIDs destPageNum isObject(" " && pgNum = notifyAfter "table Of Contents" \ xthe -- Charlie Hiestand & Tim Pearson, Asymetrix 1/94 Ctrl+Shift+Click used %the panic kill hung MIDI notes /sustain pedal, which sustains a #roperty = does xunlink ~dlls except dialog box. { loc, isShift, isCtrl 4 s_channel, s_device, s_currentKey ZSTACK objs openMIDI A <> gli = ogliss playMIDI ) = "down" objectFromPoint( xsus stopMIDI = FALSE = TRUE <> NULL 4 s_hMidiOut, MidiOutShortMsg( &packDword(192 + oprogram,0)) %44 + ovolume)) "Unable 28 + Z pMem X"KERNEL" WORD GlobalAlloc ( ,DWORD) POINTER GlobalLock ( 9Handle ( I GlobalUnlock ( ` GlobalFree ( linkDLL X"mmsystem.dll" midiOutOpen ( MidiOutReset ( MidiOutClose ( MidiOutGetNumDevs () closeMIDI %() <= 0 devices found" = getWinPointer(32) MidiOutOpen( 0,0,0) freeWinPointer( nSize hMem Z retValue X = GlobalHandle( packDWord a, b, c a + (b * 256) + (c * 65536) notifyAfter notifyBefore customEdit obj oeditWidget = -- "val" will always be 's there %part " syntax. init, sysToolBookDirectory & "tb30dlg. STRING Dialog SetValue ( 1 GetValue ( "mmSystem. odlgInit," ' "," H "," = i - 1 + 1) "comboBox = i - 1 + 1) = i - 1 + 1) = i - 1 + 1) odlgBox, getValue( Bok") = -- You can also these directly "tools30.sbk" sysbook. unlinkDLL y & " buttonClick temp " && >& CRLF "My gliss " && "My sustain " && "My program " && "My volume " && "My channel " && "My device " && "You can accept these values them." f"Accept" "Edit" editWidget -- -- -- -- perfectly equivalent notifyBefore customEdit obj k" will always be 's there %part " syntax. , init, retValue linkDLL sysToolBookDirectory & "tb30dlg.dll" STRING Dialog SetValue ( 1 GetValue ( "mmSystem. WORD MidiOutGetNumDevs () = TRUE odlgInit," ","FALSE") = i - 1 + 1) "comboBox = i - 1 + 1) = i - 1 + 1) 2 --fake z, should be derived = i - 1 + 1) odlgBox, getValue( Bok") = directly the "tools30.sbk" sysbook. unlinkDLL y & " notifyBefore -- hard wired accomodate multiple backgrounds oenabled FALSE "main" dest() = 4-- recommended method prevent infinite loops -- see another buttonClick loc,isShift,isCtrl initPage notifyAfter "table Of Contents" \ xthe /= "Main" chapter tempPageList = widgetIDs destPageNum isObject(" " && pgNum = notifyBefore -- hard wired accomodate multiple backgrounds /"Topics" "main, oenabled FALSE buttonClick loc,isShift,isCtrl initPage -- different behavior pressed notifyAfter "table Of Contents"\ xthe buttonClick linkDLL "gdi" INT setBKMode(WORD, CreateFontIndirect(POINTER) ) Selectobject( OTextout( ^,STRING, nDeleteObject( user" GetDC( ReleaseDC( kernel" GlobalAlloc( DWORD) GlobalLock( GlobalUnlock( GlobalFree( sysToolBookDirectory & "tb30win.dll" clientFromPage( -- create the font Windows ZhLogFont,pLogFont, hFont, hPreviousFont, hDC, angle 66, 64) -- see pg 307 o SDK Programmer's Reference, vol. 3 -- ( entry LOGFONT structure) .(0, 0) -- Rheight, required -16 works but high resolution, large fonts. -- 2 width, default 0 -- 4 escapement below -- 6 ignored .(8, 0) -- weight, 500 = medium, 0 = don't care -- 10 -- 11 -- 12 -- 13 )(14, 2) -- output precision -- 15 clip -- 16 quality )(17, 0) -- pitch family, 32 Swiss, 0 1(18, ) -- faces will . Here we use Arial, most other TrueType -- let know who we are hDC = sysClientHandle) setBkMode( -- force repaint pageUnitsToClient( xPos = yPos = 3600 .( 4, , hDC) -- deal fdll refCount unlinkDLL " y & " notifyBefore -- This {serves %the table contents 8. It updated 'Book Outline dialog box outLine pageList ZLONG maxtopics, listCount ZOBJECT currentGroup, currentField ZSTACK obs -- A zthat acts like a -- Force be a prevent further conversions loop. ZSTRING currentTopic limited ) -- a ("g"&i) -- currenttopic pgId remaining tabs ("g"&i) -- turn on selected goPage initPage -- highlights "buttons" (they're really fields) value WHITE LIGHTGRAY darkBlue() -- updates checkmarks. Only checks chapter have been visited updateChecks numChapters -- representing a " -- each made up a checkbutton. ("g"&i) -- Yreferences checkref myPageID -- stored -- a a userProperty -- It possible fail rebuilding a clearing -- so we must isObject(" " && myPageId) subPages widgetIds -- walk through curPageID FALSE checkRef buttonClick stringResource("clearBookWarning") \ &YesSure") 4NoDont") "Cancel" linkDLL "tb30dlg.dll" STRING saveAsDlg( ,INT) #"Save a New Blank Widgets ","blankwid.tbk","","ToolBook files (*. <> NULL newBook = ,TRUE -- we really don't want -- nor messages. sysSuspendMessages = -- cache references backgrounds -- give some default values /"Main" p1OfBgM /"Topics" p1OfBgT -- ['em out selectPage -- Hnow only) -- clean J"Details" J"Description" -- but what there are no sS = = FALSE chapter chapterID initPage [bgM; [p1OfBgm -- myPageList widgetIDs -- Jparameter "False" helps prevent overwriting existing books -- topicIDs -- j checks widgetHelp "WidgetHelp" widHelp -- final update N(on updateTopics resetChecks comboBox "Select buttonClick 4s_currentTopic stringResource("ChooseWidget") /"Main" < 2 -- i.e., 1, v why xcover a few bases? cLastWidget") tl <> /<> "main" tPage /<> " widgetNotTopic") selectPage updateTopics initpage initPage -- the was = "contentBar" doRepage updateTopics Ztemp,pageList,outlineList,chapterList ZtopicList, ToCList -- cache references bgMain /"main" fBOL names -- build various lists myPageName myPageID & "," G& CRLF chapterID tempName tempID TAB & %& "," widgetIDs outliner source operatingMode "off" topicIDs outLine "tableofcontents" \ /"Table Contents" repage updateFlag ZINT pageCounter = TRUE pageHere = tList (tlist) curTopic pList isObject(" " && tbk_wid_name widgets resetChecks = FALSE -- prepare a "close" buttonClick ><> "help" "Book Outline" stringResource(Close) authorFix isOpen lockScreen operatingmode authorBounds buttons" readerFix readerBounds key, isShift, isCtrl -- trying avoid a keyA saveAs keyEnter buttonClick loc,isShift,isCtrl (topicIDs 8) = 16 stringResource("TooManyTopics") /<> " cnameOfTopic) could be more robust mustCreateTopicName) cQUOTE c"," ~(",", "chapterLabel" CRLF & "," & initPage updateTopics doRepage -- This N"' lives on the serves table contents every chapter. Each -- has one a userProperty containing a -- list numbers BookOutline dialog box passed handler via pageList parameter. widgetIDs limited ZLONG maxtopics,listCount ZLOGICAL vst,badPageFlag ZSTACK objs ZOBJECT currentCheck,currentField,currentGroup ZcurPageID isObject(" " && -- debug: unnecessary test, I hope FALSE isn't there! i -- shorter upDatetopics 8outline" -- -- find that been visited ("g"&i) -- update each Mbased on pgID -- checkmark, appropriate selected remaining tabs ("g"&i) -- updates checkmarks. called instead coming -- since only need be updated updateChecks -- representing a " -- made up a checkbutton. curtopic ("g"&i) fieldRef checkRef " && goPage -- turn on initPage -- highlights M"buttons" (they're really fields) value WHITE LIGHTGRAY darkBlue() highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized decrement increment decrement month increment out of range 1 to 12 month month decrement increment out of range 00 to 99 ,!JdY 31,28,31,30,31,30,31,31,30,31,30,31 month daysInMonth decrement increment decrement month increment out of range 1 to 12 month month decrement increment out of range 00 to 99 ,!JdY 31,28,31,30,31,30,31,31,30,31,30,31 month daysInMonth SetTimer widTimerStart KillTimer widTimerEnd period hfwidTimerStart clockTick :timerID enterPage widTimerEnd :timerID leavePage format clockTick :timerID clockTick :timerID clockTick prop_format format prop_format format quickSort endProfile +]quickSortTextlines R1startProfile sortSelf quickSortTextlines highlight highlightColor shadow shadowColor faceColor highlight highlightColor shadow shadowColor faceColor ,%H.% ,%H.% spupp highlight shadow sized ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz templet seperator ,.-/ alpha numeric characterTyped string 0123456789 Etemplet keyChar Etemplet enterField hotword seconds Minute buttonUp decrement minute increment is outside range 0 to 59 minute minute minute minute decrement increment out of range 1 to 12 decrement out of range 00 to 59 ;seconds increment seconds seconds seconds seconds hh : min : sec AMPM seconds minute newHotwordID initialize hotword newHotwordID !MaxSelection maxNumber buttonClick ,%H.% maxNum Don't know the maximum number of selections to allow. Please enter a positive integer. MaxSelection maxNumber Please set this value to a positive integer. maxNum maxNumber maxNum DXSelect buttonClick ,%H.% Which line should we exclude? zmyNumber XSelect Please use a positive integer. myNumber + , / + , / + , / + , / + , / .&+ + index numberItems binarySearch itemArray keyChar + , / + , / + , / + , / FALSE upper found itemArray binarySearch 1, "Q textBuff chrOffset buttonDown 1, "Q chOff textBuff chrOffset buttonStillDown textBuff chrOffset default buttonUp .&+ +E default mouseEnter default mouseLeave field theSelectedText endDrag theSelectedText beginDrag FALSE txClassName Thumb setSliderLimits buttonDown 1,"!# false s_sliderPosition HSliderThumb s_sliderv VSliderThumb txClassName s_sliderMin s_sliderMax oslidePos 9sldrPosition buttonStillDown s_sliderV false snapSlider s_sliderPosition HSliderThumb VSliderThumb txClassName s_sliderMin s_sliderMax oslidePos sliderPosition buttonUp s_sliderV HSliderThumb VSliderThumb txClassName s_sliderMin s_sliderMax glide setSliderLimits slidePos 9sldrPosition sliderPosition newPos OldMax hSliderThumb pOffset group SliderThumb OldMin vSliderThumb txClassName s_sliderMin s_sliderMax thumb setSliderLimits sliderPosition 9sldrPosition sliderPosition detentList snapSlider ,%H.% 1,!JRY ,%H.% slider buttonDown buttonDown pinNumber track buttonStillDown ,%H.% 1,!JRY ,%H.% slider2 pinNumber sliderMove startSliderMove sliderMax sliderMin nearestPUPP HendSliderMove sliderMax sliderBounds sliderMin mysliderPos nearestPupp leftMButton mySliderPos sliderPos `primaryMouseButton newMouseX oldMouseX buttonDown .isChild ,toggleInvert button [ebuttonPressed buttonUp \ebuttonPressed ,toggleInvert buttonDown .isChild ,toggleInvert buttonStillDown invertedButton invertedButton toggleInvert FALSE group isChild ,%H.% invertedButton LockWindowUpdate ushowWithTrans dissolve fast wipe fast left nThideWithTrans buttonClick LockWindowUpdate lockWindowUpdate showWithTrans LockWindowUpdate lockWindowUpdate hideWithTrans LockWindowUpdate ushowWithTrans dissolve fast nThideWithTrans buttonClick LockWindowUpdate lockWindowUpdate showWithTrans LockWindowUpdate lockWindowUpdate hideWithTrans Cancel cancel No, don't exit Windows This will close all your applications and exit Windows. Are you sure you want to do this? ExitWindows Restart No, don't Yes, exit Windows 9rexitBook Do you want to exit Windows, or exit and restart Windows after exiting? buttonClick ExitWindows To make this button functional, edit the script and remove the line "break" three lines from the end of the script. exitBook .&, " toggle minus Toggle Toggle buttonClick Cancel B7oldBook You must save this book before copying this widget. A7oldBook B7oldBook minus Use copy, not cut, on this widget. dropdown list options allcontrols mainEdit boolean Field custom editType Dropdown List datatype Accept any data Read only mainDelete logical field Custom updateDB accept any data field custom editType dropdown list dtype retval read only updateFromDB G[updateDB buttonClick G[updateDB keyLast keyUp .&+ + false listItems eupdateButtons logical @origVal boolean listitems logical vgetCurrentDirectory getCurrentDrive selectFile setCurrentDirectory checkLinks drive jupdateFileInfo zeupdateDirectoryInfo uncheckLinks buttonDoubleClick checkLinks getDirectoryOnlyList uncheckLinks updateDirectoryInfo tb30dos.dll getCurrentDirectory getCurrentDrive setCurrentDirectory getDirectoryOnlyList checkLinks tb30dos.dll uncheckLinks selectFile updateFileInfo selectFile setCurrentDirectory checkLinks drive jupdateFileInfo zeupdateDirectoryInfo uncheckLinks setCurrentDrive selectChange )getDriveList checkLinks uncheckLinks enterDropdown checkLinks uncheckLinks updateFileInfo tb30dos.dll getCurrentDrive setCurrentDirectory setCurrentDrive getDriveList checkLinks tb30dos.dll uncheckLinks selectFile updateDirectoryInfo w, #> vgetCurrentDirectory getCurrentDrive FALSE selectFile checkLinks drive uncheckLinks buttonClick selectFile buttonDoubleClick jupdateFileInfo enterPage jupdateFileInfo activateInstance fileList getFileOnlyList checkLinks uncheckLinks updateFileInfo tb30dos.dll getFileOnlyList getCurrentDrive getCurrentDirectory checkLinks tb30do.dll uncheckLinks selectFile updateDirectoryInfo l7parseFileName keyChar .&+ +E getCurrentDrive fileExists FALSE setCurrentDirectory acceptFile checkLinks drive vgetCurrentDirectory seperatePath selectFile uncheckLinks setCurrentDrive default update parseFileName vgetCurrentDirectory setCurrentDirectory jupdateFileInfo zeupdateDirectoryInfo update l7parseFileName selectFile checkLinks uncheckLinks getFileAttributes seperatePath tb30dos.dll fileExists getFileAttributes getCurrentDrive getCurrentDirectory setCurrentDirectory setCurrentDrive checkLinks tb30dos.dll uncheckLinks acceptFile updateFileInfo updateDirectoryInfo 1, #? 1, #? dots per inch. printerRes This printer has a resolution of buttonClick prnYRes device deviceFile LOGPIXELSX tb30win.dll prnXRes windows deviceName kScreateIC driverInfo devicePort createIC getDeviceCaps deleteDC 4getDeviceCaps LOGPIXELSY GetWinIniVar NdeleteDC *getWinIniVar There is no printer attached. printerRes main,topics enterPage .&+ +E .&+ +E FALSE ainitPage buttonClick table Of Contents keyDown topics table Of Contents keyUp enterPage SetTimer widTimerStart KillTimer widTimerEnd period hfwidTimerStart clockTick :timerID widTimerEnd :timerID leavePage format clockTick :timerID clockTick :timerID clockTick prop_format format prop_format format enterPage .&+ +E .&+ +E contentBar ainitPage buttonClick page id tempPageList x5chapter widgetIDs topics table Of Contents keyDown topics table Of Contents keyUp copenMIDI s_device <)channel hplayMIDI device tstopMIDI s_channel s_currentKey rPsustain gliss buttonDown tstopMIDI s_channel s_currentKey rPsustain buttonUp packDword volume Unable to play MIDI device ECprogram s_hMidiOut s_channel s_currentKey MidiOutShortMsg playMIDI packDword volume Unable to stop MIDI device s_hMidiOut s_channel MidiOutShortMsg stopMIDI freeWinPointer s_device MidiOutOpen mmsystem.dll KERNEL closeMIDI s_hMidiOut GlobalAlloc GlobalLock GlobalHandle GlobalUnlock GlobalFree device $bgetWinPointer Unable to open MIDI device MidiOutGetNumDevs No MIDI devices found midiOutOpen MidiOutShortMsg MidiOutReset MidiOutClose MidiOutGetNumDevs openMIDI s_device B%MidiOutClose s_hMidiOut u0MidiOutReset closeMIDI GlobalAlloc GlobalLock getWinPointer GlobalUnlock GlobalFree GlobalHandle freeWinPointer packDWord copenMIDI enterPage copenMIDI reader closeMIDI leavePage closeMIDI author reader editWidget customEdit .&+ +E ,%H.% ,%H.% ,%H.% .&+ +E dlgBox comboBox device volume MidiOutGetNumDevs FALSE <)channel tb30dlg.dll Dialog SetValue GetValue vSetValue button sustain 8dlgInit sPsustain button ok ECprogram =)channel device gliss FCprogram MidiOutGetNumDevs comboBox program rPsustain device mmSystem.dll comboBox volume kgetValue volume button gliss gliss Dialog comboBox channel editWidget enterPage .&+ +E .&+ +E ainitPage buttonClick topics table Of Contents keyDown topics table Of Contents keyUp page id tempPageList x5chapter widgetIDs Topics main,topics enterPage .&+ +E .&+ +E FALSE ainitPage buttonClick table Of Contents keyDown topics table Of Contents keyUp .&+ +E .&+ +E Selectobject setBKMode ,"T"No CreateFontIndirect Selectobject Textout DeleteObject DeleteObject GlobalAlloc GlobalLock GlobalUnlock GlobalFree GlobalAlloc tb30win.dll GlobalUnlock clientFromPage CreateFontIndirect }ReleaseDC GetDC ReleaseDC GlobalFree GlobalLock GetDC kernel dcTextout setBkMode buttonClick leavePage outLine false goPage Zselected ainitPage buttonDown [darkBlue selected checkref widgetIds Cvisited subPages FALSE curPageID page id myPageID value updateChecks .&+ +E .&+ +E Cancel Widget Save a New Blank Widgets Book clearBookWarning p1OfBgT g)updateTopics Description saveAsDlg tb30dlg.dll blankwid.tbk ltopicIDs topics y5chapter Topics myPageList newBook ainitPage FALSE WidgetHelp YesSure stringResource Topic p1OfBgM NoDont resetChecks widgetIDs ToolBook files (*.tbk),*.tbk :widHelp chapterID Details saveAsDlg Select Topic buttonClick .&+ +E .&+ +E .&+ +E g)updateTopics contentBar tPage ainitPage stringResource XdoRepage ainitpage LastWidget widgetNotTopic ChooseWidget buttonClick w, "V .&+ +E .&+ +E .&, #> .&+ +E cancel nameOfTopic g)updateTopics ltopicIDs ltopicIDs topics Topics ???????? ainitPage TooManyTopics stringResource topics XdoRepage chapterLabel mustCreateTopicName buttonClick g)upDatetopics FALSE Cvisited Cvisited book outline false page id Zselected widgetIDs checkRef FALSE fieldRef Cvisited Cvisited curPageID page id curtopic updateChecks false Zselected ainitPage buttonDown [darkBlue selected minus baswid Notify wwwww wwwwp wwwww wwwwwp wwwwww Key Up Key Down Enter Key lo Right Up Enter Key lo Right Down Enter key lo Left Up Enter key Lo Left Down Enter Key hi Left Up Enter key hi Left Down Enter Key hi Right Up Enter key hi Right Up Key Up Left Key Down Left Key Up Right Key Down Right Key Up Center Key Down Center Key Up Key Down Enter Key lo Right Up Enter Key lo Right Down Enter key lo Left Up Enter key Lo Left Down Enter Key hi Left Up Enter key hi Left Down Enter Key hi Right Up Enter key hi Right Up Key Up Left Key Down Left Key Up Right Key Down Right Key Up Center Key Down Center Exclaim Exclaim wwwwwp wwwwwp wwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp wwwwwwww wwwwwwww wwwwwwww wwwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp wwwwwwww wwwwwwww wwwwp wwwwwwww wwwwwwww wwwwwwwwp wwwwwwwp wwwwwwwp wpwwp wwpwp wwwwwwwp wwwwwwwp wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwww wwwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp wpwwpwwp wpwwpwwp wpwwpwwp wpwwpwwp wwpwwp wwwwwwwp wwwwwwwp wwwwwwwp wwwwwwwp wwwwpp wwwwp wwwwp wwwwp wwwwp 8**W,,PG`$ 00K00 =<{gNOB +@*%,9PZ`# ;v<rgNO &@**,9 PZ$$# gNOOB *W9PZ$$# \1;br &&8%%PPH$ ;;=;;== 1;4m{d +&**,9GZ$$ b<mm<;11; \1=Y{gNu 8%%,9PZ C;=11;;CC4 K<<m< 4C=0= rggNOO &**%, PZ`$## 11;;0CK<m rrmb44 0;0;; 1;vmrdNN &&**%W9ZH <m<<bCCb4b <YYbYK0K1 0K00=0C0 \;YmddgOBB &*&JL&%,, bb4b44CC0C =C==0 v<rdgNN +&&*9, ,PGH`$## 4b4=C== 4v;;0 \;4rddNO &%W99GG ZH$$## =0Kb4 rdNNOBB &*%,9GZZH vCCKCvC4bm \1;;vmr dgNNOB &&%%,9GZZ 4CKK04<< 0v<{d &@%%, 0KK00C0==C 40;v0; Y<{ddgNN &*%%,,9 G9GZHH 00CCKK 04YK0 &*@%%, Y<<Ybb %,,9G9 bb<YY<4Y Y<44Y<4Y 0Ym{gN GZZHHZHH 1;=0=C b<b4Y 4<YKK {ggOuBB &*%%,% C=4=44 YY<YbYYv0 &**%% 9GGHZHH$$# =C4CbC4vvY <<b<Y4K00; r{gNO +&&**%,% ,,99G9G9 HZHZHH 11;1;= 0;==0C00 10Yrd **%%W, $$H$# uNNuB HHGHHZ 0v<r{ddgN WW99P $H$HZH &&*@8*%WW ,PPZZ`H ##$$# ##$$##$## r{ddNuB **%W,tPP`Z ##$$## ;;0=1\11= =<rr{dgNOO L&8%WWt,P rr{{dgNOuB &&8*8% ==4<mm ddNgNNBB *@*@*%*W,9 t`H`$$ %W%t,t9PPZ LL@*@*% %,,t9PPZ`` Z`$`$$# ADAA' !'!!'' EEII' EI33IA3E EIAEE AI3AIA EAEIEE3 3IIEI A!'3A IEI3A 'AEIE3 3IIAA A!Q!' 33IEED jj 66 j j"|wl 3A3EDDE AA'!Q!!' '!''! /SM_"6 s5"5" -/||SS]] 6 " /22/2// axMaMM 2--22/2 66 6 cll[l ??Unzy wFF--2 j 6"M :c[ -(--2--//S ,GZZ` 2//SSaM j "M NJ9G9,, @HHG% 9PZ`` 99%88o (2-22//Sxa ,GGk&+t8 2//Sxa^ 6 6_M %@*tW ((-2-2SS --//SSaa^ 77J77 8+NBO &W*)L@*,%8 :cc[ qq(2(2-/2/ Ok8W&JJLL &@8+u 2-//Sxa^^p 6"M]| :c[ 2-22/SSa^^ W*W%8u{ @LJ7kJ& 22--//Sx^^ &%W88++u &JJ77J J&Wyu 2(-2/SSxa^ +&tUty BJJ@*%%W J77kkJL8++ Fqq((2-2- -/SSx +$`P8 >>\4N LJ)J7 :c[ 2((--/SSxa U&*&&*% &&`Pt+ &8*@@ )L*8o F--2(2-2-/ /Sxaa^^ p_MM]| &*8&8 PPW&+ ++88Wo 4d*&J JJ8y~ : ::l[ wX--(2(( 22//S 9,%%9,, ::l[ -2--2 Sxxa^^ _MM]| @&8&8P L%,99%% 1vd+* c::c[[ p"__M] 1mN*& L*%ZG% wXF(( 2(22( //S]xa^^ ""MM]| )77)) Xq((2 xaM_^ J9,%9,% S]]a_ ,Ht+& +8+&++tzo +8tzy @99%L "M--FX 8ozTR \{O88 f "]/-F 22/SS//]/S //||- %HPW&&J ++88o >1mO+*& 2//2/ )L,9% ]2-XXFF -2/2/22 N*88JJ 4N+*8 _a]--(FX XXF-q((-(- A~oo8oo =N8W* _]|2-qFXi F-FFqqi &J@%, o\>>= d+*W8* @@UeQf \>>=g+*P *U.eef pp_^a n..eeQff c::ccl QQf!f ;d+*% kL%%@ jVj5 2|2(F 1<O8*+ )L**@) ]||-w )Ln.T QeQfQ Fw[c: !.QQ!Q ;d+*8+ ??..Q.QQ!! 3'ffD =g+88 ))7tn.. O88*& Q.Qe.QQ 1mg+o E}}f} 44<<m {ddgNNONN 4v4==4 ,G3596,Keyboard Settings ,G3599,MIDI Settings ,S3604,Program: ,S3605,Volume: ,S3606,Channel: ,S3607,Device: BUTTON gliss,B3602,TRUE BUTTON sustain,B3603,FALSE COMBOBOX program,C3608,&0 COMBOBOX volume,C3609,0 COMBOBOX channel,C3610,&0 COMBOBOX device,C3611,&0 BUTTON ok,B1,TRUE BUTTON cancel,B2,FALSE ,G3596,Keyboard Settings ,G3599,MIDI Settings ,S3604,Program: ,S3605,Volume: ,S3606,Channel: ,S3607,Device: BUTTON gliss,B3602,TRUE BUTTON sustain,B3603,FALSE COMBOBOX program,C3608,&0 COMBOBOX volume,C3609,0 COMBOBOX channel,C3610,&0 COMBOBOX device,C3611,&0 BUTTON ok,B1,TRUE BUTTON cancel,B2,FALSE Navigation widgets Auto page Auto buttons Tab widget Content buttons Data widgets Validate on leaveField, numbers Validate on leaveField, text Validate on keystroke, numbers Validate on keystroke, text Useful patterns Spinners Add and remove Directories and files Time and date Calendar Printer Resolution Win version & DOS version Windows or WFW Field widgets Insert/overstrike Outline Outline rearranger Max select field Ex Select field Self sorting field Searching field Auto-scrollbar field Bold, italic, and underline Drag a textline Drag and drop text Multiple OLE drag & drop Show off Slider widgets Sliders Ratchet Scale Slider CBT widgets True and false Multiple choice Keyboards Alpha keyboard Qwerty keyboard Calculator MIDI keyboard Miscellaneous Object effect Slow-motion Exit Windows Can't touch this Widget help Intro to widgets Basic widgets Notify messages Initialization and cleanup Advanced widgetry