ToolBook 3.0

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

/ ToolBook 3.0 / ToolBook v3.0.iso / tb30 / samples / scrapbk.tbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1994-05-19 | 1.3 MB | 5,643 lines

clipart 69 gotScript FALSE FALSE clipart 70 gotScript FALSE FALSE clipart 71 phone -- Script moved userproperty scrapbook_script HScrapBook gotScript Group "phone" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader show group 1 of self step i from 2 to 6 hide group i of self notifybefore enterPage show group 1 of self step i from 2 to 6 hide group i of self to handle buttonclick step i from 2 to 6 show group i of self hide group (i-1) of self show group 1 of self hide group 6 of self scrapbook_script Q aR Q Ab n,}"[ clipart 72 camera -- Script moved userproperty scrapbook_script HScrapBook gotScript Group "camera" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader step i from 1 to 5 hide group i of self notifybefore enterPage step i from 1 to 5 hide group i of self to handle buttonclick show group 1 of self step i from 2 to 5 show group i of self hide group (i-1) of self hide group 5 of self scrapbook_script 0* U ` C ` ~. U j0 2 clipart 73 cash register -- Script moved userproperty scrapbook_script HScrapBook gotScript Group "cash register" scrapbook_scriptList notifyAfter make spot = stopSpot of group "drawer" item 1 of spot = item 1 of spot*item 1 of syspageunitsperpixel item 2 of spot = item 2 of spot*item 2 of syspageunitsperpixel move group "drawer" by spot notifybefore enterPage move group "drawer" to position of rectangle "spot" to handle buttonclick spot = stopSpot of group "drawer" numsteps = 5 x = item 1 of spot*item 1 of syspageunitsperpixel/numsteps y = item 2 of spot*item 2 of syspageunitsperpixel/numsteps step i from 1 to numSteps move group "drawer" by x,y pause 1 seconds move group "drawer" to position of rectangle "spot" scrapbook_script drawer 3167,2707 startSpot 66,41 stopSpot clipart 74 plane -- Script moved userproperty scrapbook_script HScrapBook gotScript Group "plane" scrapbook_scriptList notifyAfter author item 1 of position of self = 0 notifyAfter enterPage item 1 of position of self = 0-(item 1 of syspageunitsperpixel)-(item 1 of size of self) numSteps = 20 stepSize = ((item 1 of size of this window * item 1 of syspageunitsperpixel) + item 1 of size of self)/numSteps step i from 1 to numSteps move self by stepSize,0 scrapbook_script +Y"x "l h#k " %!l u j+S X "l h#k " %!l TYPE YOUR TEXT HERE clipart 75 fish bowl gotScript Group "school" scrapbook_scriptList school -- Script moved userproperty scrapbook_script HScrapBook notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader show group 1 of self step i from 2 to 10 hide group i of self notifybefore enterPage show group 1 of self step i from 2 to 10 hide group i of self to handle buttonclick step i from 2 to 10 show group i of self hide group (i-1) of self hide group 10 of self show group 1 of self scrapbook_script vr. ; clipart 76 slam dunk -- Script moved userproperty scrapbook_script HScrapBook gotScript Group "slam dunk" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader show group 1 of self step i from 2 to 6 hide group i of self notifybefore enterPage show group 1 of self step i from 2 to 6 hide group i of self to handle buttonclick step i from 2 to 6 show group i of self hide group (i-1) of self hide group 6 of self show group 1 of self scrapbook_script }-2 m. v.b < r&H-W> "0-O@ 'r&H- #p&@)gG C%@#;X .X#y_ C+ (Ya *&%Mb 3~19y 1&,&2 !.-e!K F-5! N1V&Q ~+-&N1 @/8" 1"$+3r% *; u. 0@# 10$ /x$H0 clipart 77 air mail -- Script moved userproperty scrapbook_script HScrapBook gotScript Group "air mail" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader step i from 1 to 5 hide group i of self notifybefore enterPage step i from 1 to 5 hide group i of self to handle buttonclick show group 1 of self step i from 2 to 5 show group i of self hide group (i-1) of self if i = 2 hide group "start" of self end hide group 5 of self show group "start" of self scrapbook_script d7=7 6 :N- _ PS)S V $T6 Pwvw start %"%`$b% l%/ 15,15 lastUnits 1993,1994. Asymetrix Corporation. All Rights Reserved. * 9gives you permission e, revise, reuse the * --* individual scripts your own * --* applications. You may P entire --* substantial part redistribution i product. * retains copyright on original elements . Include notice: --* "Portions 1993, 1994. they contain copied --* Author: Michael Florence --* Information on how organized: --* The thumbnails are shown a child called "imager". This * displays Xactual * --* full con the comments * will refer ~ which should be * --* interpeted fits /). * --* If looking --* Multi-instance drag drop code: --* primarily --* relies heavily overriding ToolBook behavior ]Windows * --* API functions. SDK documentation probably be * --* helpful understanding --* Using TBM_EVALUATE TBM_EXECUTE --* uses --* initTBMs, executeTBKMessage evaluateTBKMessage handlers. --* easy lift out another * --* progress --* shows --* /modify --* Printing --* dialog ( ") sets up options * --* calls doPrint --* Handling Translated messages SaveAs --* about * --* resolve problem. translating --* . (also see Script Library) * enterApplication SYSTEM LOGICAL s_oldRightClick -- reset screen = "inset" -- intialize initDLLs structures initVars = sysReaderRightClick k = FALSE leaveApplication lpExpression, lpRetValue, lpEvalStruct, lpBuffer -- release memory held freeWinPointer( X"tb30dos.dll" X"tb30dlg. X"tb30win. X"user" X"kernel" /= "art" sysPageUnitsPerPixel <> lastUnits '= TRUE fieldUpdate buttonUpdate frameUpdate -- INITIALIZATION HANDLERS STRING art_removeFile = LONG art_fileSize = getFileSize ) art_freeSpace = getFreeDiskSpace ( sortTextlines = art_sortList = listToTextline = art_textlineToList = INT art_sendKeys = sendkeys WORD art_registerWindowMessage = RegisterWindowMessage ( v art_sendMessage = SendMessage j,POINTER) xfindWindow = FindWindow ,DWORD) getWindow = getParent = getWindowText = GetWindowText ( getClassWord = GetClassWord ( art_windowFromPoint = WindowFromPoint ( art_setCapture = SetCapture INT art_releaseCapture = ReleaseCapture () /messageBox = MessageBox art_getFreeSystemResources= GetFreeSystemResources ( tickCount = GetTickCount () tTimer = SetTimer killTimer = KillTimer ,INT) postMessage = PostMessage getModuleFilename = GetModuleFilename ( art_globalAlloc = GlobalAlloc art_globalFree = GlobalFree art_globalLock = GlobalLock art_globalUnlock = GlobalUnlock art_globalReAlloc = GlobalReAlloc GlobalHandle = art_getTempFileName = GetTempFileName (INT, art_getFreeSpace = GetFreeSpace ( registers allocates necessary buffers build msgExecute, msgEvaluate nRetValueLength, nMaxMsgSize X = art_RegisterWindowMessage(" pointers t = 4096 n = 1024 ' = getWinPointer( 2 = 3 = 2 = g failed = NULL translates mouse initTranslatedMsgs msgCallBack imagerHandle = clientHandle translateWindowMessage on 513 WM_LBUTTONDOWN on 514 WM_LBUTTONUP on 515 WM_LBUTTONDBLCLK on 516 WM_RBUTTONDOWN on 517 WM_RBUTTONUP a custom callback be used translated a "SAVE AS". SAVEAS doCallBack initMouseMoveMsgs on 512 WM_MOUSEMOVE untranslateMouseMove untranslateWindowMessage 512 -- initialize tabOffset ; -- tracks what displayed actualCategoryPage ; -- holds a category sub- currentCategoryPage ; -- lastTab ; -- 9clicked currentItem 8= 1 ; -- update ; -- main needs updating -- MEMORY a block -- arguments: memChunk = /desired -- returns: LOCAL memHandle, lPointer memhandle = (66, k) ;-- FIXED,ZEROINIT msgBox(str_NoMem(), str_NoAlloc( ), "Stop", "OkCancel", 1, "task") R 1, " lpointer = success status passFlag art_GlobalHandle( t <> 0 memError(), str_memNoFree(), " <> 0 -- MENU EDIT selected enterMenu whatMenu, whatAlias = " $<> " currentObject disable e"copyObj" e"deleteObj" e"editObj" e"viewObj" enable hard codes a lookup table -- If renamed, still be sent must be untranslated retranslated. saves -- comparison posted saveAs s_art_currentBook, ourselves art_PostMessage( < ,0,0) copies clipboard whatPage, , obj isObject( oldCursor = K = currentPage actualPage -- replace gotScript walkobj( statusbar = str_objectCopied() deletes ARRAY freeSpot[2][4] , whatName, actualObj -- cache speed -- 8= findItem( -- appropriate placeholder array FREESPOT -- flushHighlight s_art_dragObj " = currentcategory 8&&"-"&&actualName currentpage keywords moves oldCategory = -- can't ostandard routine because I want preload strings -- default itself " = " combobox " %modal -- OK, CANCEL -- closed -- Only isOpen comboBox " -- findPage targetRect = findFreeSpot( newObj = copyObject( whatpage (categories 8= i-1 lasttab "wrapItUp placing }thumnail Q does a te temp filename compactScrapBook lpMem, tempFile = art_GetTempFileName(0," fileName = 4info oldDate = = str_dateTime() lastSaved startInfoTimer ! removes clipart resets removeAllObjects freespot[2][4] asure U(),str_OKtoReset(), " sysSuspendMessages = &% = -- -- % > 1 -- currentTab artCount * = 0 -- z&tabs 9"&i) fliptabs 0 -- &viewers defaultPosition $" = " $" = " c'" = " " = " F% traps creroutes doDialog " ", str_printOptions() B$ box. aboutScrapBook ", str_about(), systemInfo -- UTILITY windows messagebox -- NOTE: whatButtons, defaultButton, modality 3)optional parameters -- defaults, a single OK appliciationModal whatCaption, whatMessage, whatIcon, "whatStyle hWnd retValue 5 = 0x0001 = "AbortRetryIgnore" ` = 0x0002 = "YesNoCancel" = 0x0003 = 0x0004 = "RetryCancel" = 0x0005 H0x0010 = "Question" H0x0020 = "Exclamation" H0x0030 H0x0040 H0x0100 H0x0200 H0x1000 H0x2000 = "" = "" art_messageBox( = "OK" = "Yes" = "No" key being pressed Escape cdragging (hWndPrevMouseCapture 5re <> art_ReleaseCapture() art_SetCapture( \-common dialogs (except * = non ymeans MODAL ( ; --KLUDGE + <> -- If executed -- For more information, /OpenScript Libarary s_hWNDInfo Q/same untranslateAllWindowMessages -- stopInfoTimer -- -- walks whatItem -- prints -startPage, numPages ,cale ( prevSize, prevSpot printerPageBitmap = be scaled printerScaling = "Printer" )Actual" -- scaling thisPage = numpages groupFlag = >+ i - 1) ) > 1 b(1250, b(50, -- MULTI-INSTANCE SUPPORT 3apps running finds 2instances. Load up 4booklist passed listBooks bookList[][] Hreference ,counter = art_getWindow(windowhandle 0,0) <> 0 -- <> 0 = nameOfFile( -- 's a str_TBEXE() str_MTBEXE() whatWin = nameOfWindow( windowRefFromHandle( ) <> parenthandle znothing noOp() str_toolBookCaption() #n())+1 buffSize = f! = checkBuffer( ! <> ][1] = ][2] = ][3] = art_getWindowText( 1,80) modulehandle = art_getClassWord( ,-16) " = art_getModuleFilename(moduleHandle, 2,80) , whatMsg /wRetType ) = 9 fa know value so we can test later pointerSTRING(0, 3"TBM_FAILED") pointerPOINTER(0, pointerWORD(4, pointerINT(10, xguarentee was successful %appName()," 6+ on:"&CRLF& %", 1, " bytes needed newSize .- = newlp = ;'directCopy(),str_tooMany(), " 5'1, " /6 = *only during dev ;be removed prior myReset 8" = " 9" = " B<" = " " = " [dropdownitems "picker" " = " lastChecked "info1" "info2" -- CODE COMMENTING scans -- mode 1 = -- 2 = @remote -- 3 = walkObj obj, :STACK s_scriptObjList +whatObj, recurse, firstFlag <=" = str_scanning() _2 = scrapbook_scriptList =" = str_commenting() >" = str_uncommenting() resetProgress targetScript maxCount >" = 3 <> <> 1 (obj) = 1 ,"onBackground windowreffromhandle("& &")") /="&& &&"="&& =- <> "GROUPRECORDFIELD" &")") buffsize > 0 ". = &" <> MAKE ,QUOTE&" +notifyBefore _notifyAfter x = " y = " z = " x OR y OR z 1warning(), str_make(), " 12, " IT = " + = (" ,"realname &&"= &&"="&& commentScript A property bring D 0 = -- 1 = D = 0 = str_notice() a3 = str_miniNotice() &" = &&"= realName UIremainder entirely -- facilitate internationalization str_toolbook "TB30.EXE" "MTB30. str_appName str_version "Version" str_infoString1 "Created "Copyright 1994"& " HMon" str_infoString2 I3.0"& 1994"& " -- Memory Strings str_noMem "Out str_noAlloc "Could str_memError Hbeen str_reset G OK "mm/dd/yy hh: jAMPM" "About str_objectCategory str_keywordSearch "Keyword str_directCopy "Direct "There Mtoo many e. Either G some reduce str_dragError "An ERROR occurred trying Try reducing -- Code Commenting str_warning "WARNING!" Continue |P risk." userproperty -- TAB str_category str_categoryChange change str_enterNewName "Enter a str_multipleObjects "Multiple str_moreThanOne one .8grouped N correctly" str_NoItems M books." Viewer str_copying "Copying" "Scanning" "Uncommenting" str_printing str_search str_noMatch "No match found." str_backToStart beginning?" str_objectDescription str_mustEnter ^M a str_compressed str_bytes str_categories str_items str_ofMemory str_diskSpace str_resources -- HELP TEXT str_helpText "Paste {currently on B"flipleft" "Show B"flipright" B"backwardTab" iA = |A = B"forwardTab" !B. ( g05)" SPACE [dropdownitems "picker" " = " clipart 53 gotScript FALSE FALSE clipart 54 gotScript FALSE FALSE clipart 55 gotScript FALSE 0 o FALSE clipart 56 gotScript FALSE 3 o Q B ~ Q FALSE clipart 57 gotScript FALSE FALSE clipart 58 gotScript FALSE B B 1 ` B FALSE clipart 59 gotScript FALSE FALSE clipart 60 gotScript FALSE g * / FALSE clipart 61 gotScript FALSE FALSE clipart 62 gotScript FALSE o 3 Q FALSE clipart 63 gotScript FALSE FALSE clipart 64 gotScript FALSE FALSE clipart 65 gotScript FALSE FALSE clipart 66 gotScript FALSE FALSE clipart 67 gotScript FALSE FALSE clipart 68 gotScript FALSE FALSE clipart 68 clipart 37 gotScript FALSE Q 3 Q ~ $ ~ R FALSE clipart 38 gotScript FALSE FALSE clipart 39 gotScript FALSE ~ Q _ Q ~ B ~ 3 ~ FALSE clipart 40 gotScript FALSE FALSE clipart 41 gotScript FALSE FALSE clipart 42 gotScript FALSE FALSE clipart 43 gotScript FALSE w @@@ FALSE clipart 44 gotScript FALSE FALSE clipart 45 gotScript FALSE R J 6 FALSE clipart 46 gotScript FALSE v > f FALSE clipart 47 gotScript FALSE FALSE clipart 48 gotScript FALSE FALSE clipart 49 gotScript FALSE FALSE clipart 50 gotScript FALSE FALSE clipart 51 gotScript FALSE FALSE clipart 52 gotScript FALSE FALSE . .. DRAG TBK DRAG CUR HAND CUR NODROP CUR SCRAP TBK SCRAPBK DOC SCRAPBK ICO SCRAPBK TBK SCRAPBK1TBK clipart 22 clipart 26 clipart 62 clipart 66 clipart 23 actualName Gas Station keywords Building category Buildings gotScript FALSE FALSE clipart 23 clipart 32 clipart 36 clipart 63 clipart 24 gotScript FALSE FALSE clipart 25 gotScript FALSE FALSE clipart 26 gotScript FALSE FALSE clipart 27 gotScript FALSE FALSE clipart 28 gotScript FALSE FALSE clipart 29 gotScript FALSE FALSE clipart 30 gotScript FALSE ~ ~ ~ B B Q Q B $ ` B o Q FALSE clipart 31 gotScript FALSE FALSE clipart 32 gotScript FALSE FALSE clipart 33 gotScript FALSE ~ ` ` ~ $ FALSE clipart 34 gotScript FALSE 3 $ ` 3 B FALSE clipart 35 gotScript FALSE 7 61M FALSE clipart 36 gotScript FALSE FALSE tScript FALSE clipart 10 actualName Banner keywords Banner category Banners gotScript FALSE FALSE clipart 10 clipart 18 clipart 47 clipart 49 clipart 74 clipart 11 actualName Name Plate keywords Plate category Banners gotScript FALSE FALSE clipart 11 clipart 35 clipart 53 clipart 77 clipart 79 clipart 12 actualName Name Plate keywords Plate category Banners gotScript FALSE FALSE clipart 13 actualName Skyscraper keywords Building category Buildings gotScript FALSE FALSE clipart 14 actualName Hotel keywords Building category Buildings gotScript FALSE FALSE clipart 15 actualName keywords Building category Buildings gotScript FALSE FALSE clipart 16 actualName keywords Building category Buildings gotScript FALSE FALSE clipart 17 actualName Government keywords Building category Buildings gotScript FALSE FALSE clipart 17 clipart 19 clipart 33 clipart 55 clipart 71 clipart 18 actualName Hospital keywords Building category Buildings gotScript FALSE 3 ~ B FALSE clipart 19 actualName Stadium keywords Building category Buildings gotScript FALSE ~ < B ( Y FALSE clipart 20 actualName University keywords Building category Buildings gotScript FALSE FALSE clipart 21 actualName Condo keywords Building category Buildings gotScript FALSE FALSE clipart 22 actualName Residential keywords Building category Buildings gotScript FALSE FALSE clipart 22 Cancel Animated Group 11 Group 12 freespot numPages FALSE gotScript Group "cash register" scrapbook_scriptList notifyAfter make spot = stopSpot of group "drawer" item 1 of spot = item 1 of spot*item 1 of syspageunitsperpixel item 2 of spot = item 2 of spot*item 2 of syspageunitsperpixel move group "drawer" by spot notifybefore enterPage move group "drawer" to position of rectangle "spot" to handle buttonclick spot = stopSpot of group "drawer" numsteps = 5 x = item 1 of spot*item 1 of syspageunitsperpixel/numsteps y = item 2 of spot*item 2 of syspageunitsperpixel/numsteps step i from 1 to numSteps move group "drawer" by x,y pause 1 seconds move group "drawer" to position of rectangle "spot" scrapbook_script page "clipart 73" actualPage Cash Register actualName Cash Register keywords Animated category 3495,2880 realSize Group id 164 of Page id 113 actualObj drawer 3167,2707 startSpot 66,41 stopSpot THdHy 8JTJo gotScript Group "plane" scrapbook_scriptList notifyAfter author item 1 of position of self = 0 notifyAfter enterPage item 1 of position of self = 0-(item 1 of syspageunitsperpixel)-(item 1 of size of self) numSteps = 20 stepSize = ((item 1 of size of this window * item 1 of syspageunitsperpixel) + item 1 of size of self)/numSteps step i from 1 to numSteps move self by stepSize,0 scrapbook_script page "clipart 74" actualPage Flying Plane actualName Biplane,Plane,Banner keywords Animated category 9511,1356 realSize Group id 98 of Page id 114 actualObj fUa g ^: M jcI ` :dB L ~_C b 6`B ` @bL ` Rek V $h| ` hir ] &ju L Vgt ` TYPE YOUR TEXT HERE Animated Group 11 freespot numPages FALSE gotScript Group "school" scrapbook_scriptList page "clipart 75" actualPage Swimming Goldfish actualName Fish Bowl,Fish keywords Animated category 6489,4649 realSize Group id 217 of Page id 116 actualObj school notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader show group 1 of self step i from 2 to 10 hide group i of self notifybefore enterPage show group 1 of self step i from 2 to 10 hide group i of self to handle buttonclick step i from 2 to 10 show group i of self hide group (i-1) of self hide group 10 of self show group 1 of self scrapbook_script Animated Group 11 freespot numPages FALSE gotScript Group "slam dunk" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader show group 1 of self step i from 2 to 6 hide group i of self notifybefore enterPage show group 1 of self step i from 2 to 6 hide group i of self to handle buttonclick step i from 2 to 6 show group i of self hide group (i-1) of self hide group 6 of self show group 1 of self scrapbook_script page "clipart 76" actualPage Slam Dunk actualName Basketball,Sports keywords Animated category 6933,5854 realSize Group id 281 of Page id 117 actualObj }-2 m. r&H-e6 "0-%8 'r&H- #p&@) *&%WT 3~15n 1&,&2 !.-e! F-5!_s ~+-&N1 @/8"gw 0p#Cx 4:'!| 1"$+3r%}| n-3(9~ *; u. 0@# 10$ /x$H0 Animated Group 11 freespot numPages FALSE gotScript Group "air mail" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader step i from 1 to 5 hide group i of self notifybefore enterPage step i from 1 to 5 hide group i of self to handle buttonclick show group 1 of self step i from 2 to 5 show group i of self hide group (i-1) of self if i = 2 hide group "start" of self end hide group 5 of self show group "start" of self scrapbook_script page "clipart 77" actualPage Flying Msil actualName Air Mail,Envelope keywords Animated category 5423,5524 realSize Group id 453 of Page id 118 actualObj start %"%`$b% l%/ art 1 clipart 2 actualName Arrows keywords Directional Arrows category Arrows gotScript FALSE FALSE clipart 3 actualName Arrows keywords Directional Arrows category Arrows gotScript FALSE FALSE clipart 3 clipart 30 clipart 38 clipart 45 clipart 54 clipart 4 actualName Arrows keywords Directional Arrows category Arrows gotScript FALSE FALSE clipart 5 actualName Curved Arrow keywords Directional Arrows category Arrows gotScript FALSE FALSE clipart 5 clipart 34 clipart 43 clipart 50 clipart 58 clipart 6 actualName Arrows keywords Directional Arrows category Arrows gotScript FALSE FALSE clipart 7 actualName Award Plate keywords Plate,Banner category Banners gotScript FALSE FALSE clipart 8 actualName Prize Ribbons keywords Ribbons category Banners gotScript FALSE FALSE clipart 9 actualName Banner keywords Banner category Banners gotScript FALSE FALSE Banner category Banners gotScript FALSE People numPages Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 Group 23 freeSpot FALSE FALSE gotScript page "clipart 30" actualPage Children actualName Kids,Book keywords People category 3135,2539 realSize Group id 91 of Page id 60 actualObj ~ ~ ~ B B Q Q B $ ` B o Q FALSE gotScript page "clipart 31" actualPage Cash Machine actualName Woman keywords People category 2892,2235 realSize Group id 85 of Page id 62 actualObj DNTNy bN~No FALSE gotScript page "clipart 32" actualPage Graduate actualName Man,College keywords People category 2250,2505 realSize Group id 80 of Page id 63 actualObj FALSE gotScript page "clipart 33" actualPage Business Woman actualName Woman keywords People category 1770,4107 realSize Group id 61 of Page id 64 actualObj ~ ` ` ~ $ FALSE gotScript page "clipart 34" actualPage Business Man actualName keywords People category 1788,4126 realSize Group id 83 of Page id 65 actualObj 3 $ ` 3 B FALSE gotScript page "clipart 35" actualPage Business Meeting actualName People keywords People category 4328,2130 realSize Group id 204 of Page id 66 actualObj FALSE gotScript page "clipart 56" actualPage Carpenter actualName Woman keywords People category 2025,4029 realSize Group id 62 of Page id 91 actualObj 3 o Q B ~ Q People clipart 2 clipart 6 clipart 20 clipart 28 clipart 68 clipart 60 People -$KDe Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 Group 23 Group 24 freespot numPages FALSE gotScript page "clipart 36" actualPage Man at Computer actualName Man,Computer keywords People category 2791,2730 realSize Group id 87 of Page id 67 actualObj FALSE gotScript page "clipart 37" actualPage Woman at Copier actualName Woman,Copy Machine keywords People category 2889,3684 realSize Group id 88 of Page id 69 actualObj $:* j Q 3 Q ~ $ ~ R FALSE gotScript page "clipart 38" actualPage Man at Copier actualName Man,Copy Machine keywords People category 3090,3680 realSize Group id 79 of Page id 70 actualObj FALSE gotScript page "clipart 39" actualPage Woman on Phone actualName Woman,Desk,Computer,Phone keywords People category 2893,3165 realSize Group id 96 of Page id 71 actualObj ~ Q _ Q ~ B ~ 3 ~ FALSE gotScript page "clipart 55" actualPage Astronaut actualName Space keywords People category 2280,3984 realSize Group id 69 of Page id 90 actualObj 0 o FALSE gotScript page "clipart 57" actualPage actualName Man,Cook keywords People category 2865,3302 realSize Group id 62 of Page id 92 actualObj FALSE gotScript page "clipart 58" actualPage Farmer actualName Man,Tractor keywords People category 3120,3417 realSize Group id 111 of Page id 93 actualObj B B 1 ` B 7 @@@ ' @@@ ? @@@ FALSE gotScript page "clipart 60" actualPage Painter actualName Woman keywords People category 2295,3928 realSize Group id 63 of Page id 96 actualObj People Group 11 Group 12 Group 13 freespot numPages FALSE FALSE gotScript page "clipart 59" actualPage Auto Mechanic actualName Man,Engine,Car keywords People category 3864,2760 realSize Group id 90 of Page id 94 actualObj 0$L$o FALSE gotScript page "clipart 61" actualPage Policeman actualName Man,Cop keywords People category 2565,4094 realSize Group id 70 of Page id 97 actualObj FALSE gotScript page "clipart 62" actualPage Welder actualName Woman keywords People category 3403,3270 realSize Group id 55 of Page id 98 actualObj o 3 Q Office numPages Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 Group 23 Group 24 freeSpot FALSE gotScript page "clipart 24" actualPage Pen and Paper actualName Paper,Pen,Notepad keywords Office category 2865,3990 realSize Group id 71 of Page id 53 actualObj FALSE gotScript page "clipart 25" actualPage actualName Post-It,Tack keywords Office category 2315,2055 realSize Group id 17 of Page id 55 actualObj 0 @ y N j o FALSE gotScript page "clipart 26" actualPage File Cabinet actualName Files keywords Office category 2173,3263 realSize Group id 19 of Page id 56 actualObj 6'R'o FALSE gotScript page "clipart 27" actualPage actualName Files keywords Office category 3495,2325 realSize Group id 6 of Page id 57 actualObj FALSE gotScript page "clipart 28" actualPage Rolodex actualName Cardfile keywords Office category 2370,1935 realSize Group id 27 of Page id 58 actualObj "2>2o FALSE gotScript page "clipart 29" actualPage Calendar actualName Calendar keywords Office category 4253,2430 realSize Group id 28 of Page id 59 actualObj X:h:y FALSE gotScript page "clipart 40" actualPage Briefcase actualName Briefcase keywords Office category 4996,3347 realSize Group id 68 of Page id 72 actualObj FALSE gotScript page "clipart 47" actualPage actualName Letter,Envelope keywords Office category 2966,1650 realSize Group id 29 of Page id 80 actualObj Office clipart 25 clipart 52 clipart 56 clipart 65 Office Group 11 freespot numPages FALSE FALSE gotScript page "clipart 48" actualPage actualName Letter,Envelope keywords Office category 4966,2430 realSize Group id 26 of Page id 81 actualObj Building f*tD8cL numPages Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 Group 23 freeSpot FALSE Office actualName Building keywords Building category FALSE gotScript page "clipart 13" actualPage 2743,4264 realSize Group id 81 of Page id 38 actualObj N+^+y Hotel actualName Building keywords Building category FALSE gotScript page "clipart 14" actualPage 4360,3415 realSize Group id 99 of Page id 40 actualObj fEvEy Restaurant actualName Building,Cafe keywords Building category FALSE gotScript page "clipart 15" actualPage 3285,2773 realSize Group id 97 of Page id 43 actualObj d0dy >dZdo actualName Building keywords Building category FALSE gotScript page "clipart 16" actualPage 4075,2445 realSize Group id 108 of Page id 44 actualObj School actualName Building,Library keywords Building category FALSE gotScript page "clipart 17" actualPage 3840,2652 realSize Group id 130 of Page id 45 actualObj Hospital actualName Building,Ambulance keywords Building category FALSE gotScript page "clipart 18" actualPage 3852,2805 realSize Group id 88 of Page id 46 actualObj 3 ~ B Stadium actualName Building keywords Building category FALSE gotScript page "clipart 19" actualPage 4761,2235 realSize Group id 72 of Page id 47 actualObj ~ < B ( Y Building clipart 27 clipart 29 clipart 67 clipart 69 clipart 76 clipart 72 Building Group 11 Group 12 Group 13 Group 14 freespot numPages FALSE Town Hall actualName Building keywords Building category FALSE gotScript page "clipart 20" actualPage 3915,3915 realSize Group id 191 of Page id 48 actualObj Condominium actualName Building keywords Building category FALSE gotScript page "clipart 21" actualPage 3421,2710 realSize Group id 135 of Page id 50 actualObj :M1 + ,aHao House actualName Building,Residential keywords Building category FALSE gotScript page "clipart 22" actualPage 4737,2235 realSize Group id 61 of Page id 51 actualObj Gas Station actualName Building,Gas Pump keywords Building category FALSE gotScript page "clipart 23" actualPage 4111,2760 realSize Group id 95 of Page id 52 actualObj Banners numPages Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 freeSpot FALSE Chrome Plate actualName Plate,Steel keywords Banners category FALSE gotScript page "clipart 7" actualPage 3690,1740 realSize Group id 74 of Page id 29 actualObj 0"L"o Blue Ribbon actualName Ribbon,Award keywords Banners category FALSE gotScript page "clipart 8" actualPage 1215,2655 realSize Group id 46 of Page id 31 actualObj Banner actualName Ribbon,Scroll keywords Banners category FALSE gotScript page "clipart 9" actualPage 4275,780 realSize Group id 33 of Page id 34 actualObj $B@Bo Ribbon actualName Banner,Scroll keywords Banners category FALSE gotScript page "clipart 10" actualPage 3195,1140 realSize Group id 35 of Page id 35 actualObj Gold Plate actualName Plate,Brass keywords Banners category FALSE gotScript page "clipart 11" actualPage 3870,825 realSize Group id 29 of Page id 36 actualObj 4XDXy RXnXo Silver Plate actualName Plate,Steel keywords Banners category FALSE gotScript page "clipart 12" actualPage 3870,855 realSize Group id 37 of Page id 37 actualObj 0a. { Banners clipart 24 clipart 42 clipart 46 clipart 64 Arrows numPages Group 11 Group 12 Group 13 IrregularPolygon 14 Group 21 Group 22 freeSpot FALSE 4 Point Arrow actualName Arrow keywords Arrows category FALSE gotScript page "clipart 2" actualPage Group id 5 of Page id 23 actualObj 4 Point Arrow actualName Arrow keywords Arrows category FALSE gotScript page "clipart 3" actualPage Group id 5 of Page id 25 actualObj F V y 4 Point Arrow actualName Arrow keywords Arrows category FALSE gotScript page "clipart 4" actualPage Group id 5 of Page id 26 actualObj Circular Arrow actualName Arrow keywords Arrows category FALSE gotScript IrregularPolygon id 0 of Page id 27 acutalObj page "clipart 5" actualPage 1680,1890 realSize 4 Point Arrow actualName Arrow keywords Arrows category FALSE gotScript page "clipart 6" actualPage Group id 5 of Page id 28 actualObj FALSE gotScript page "clipart 54" actualPage Pointing Hands actualName Hands keywords Arrows category 3330,3030 realSize Group id 41 of Page id 89 actualObj Arrows clipart 12 clipart 16 clipart 21 clipart 61 Animated numPages Group 11 Group 12 freeSpot FALSE gotScript Group "phone" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader show group 1 of self step i from 2 to 6 hide group i of self notifybefore enterPage show group 1 of self step i from 2 to 6 hide group i of self to handle buttonclick step i from 2 to 6 show group i of self hide group (i-1) of self show group 1 of self hide group 6 of self scrapbook_script page "clipart 71" actualPage Ringing Phone actualName Telephone,Phone keywords Animated category 6338,5562 realSize Group id 258 of Page id 111 actualObj Q Y< n,}"/u gotScript Group "camera" scrapbook_scriptList notifyAfter make show objects of self notifyAfter author show objects of self notifyAfter reader step i from 1 to 5 hide group i of self notifybefore enterPage step i from 1 to 5 hide group i of self to handle buttonclick show group 1 of self step i from 2 to 5 show group i of self hide group (i-1) of self hide group 5 of self scrapbook_script page "clipart 72" actualPage Camera with flash actualName 35mm,camera,flash keywords Animated category 3969,5591 realSize Group id 158 of Page id 112 actualObj ` C ` Animated clipart 15 clipart 37 clipart 39 clipart 51 clipart 73 frameUpdate frameUpdate search about w, #? w, #? 3str_toolbook !Oversion str_version str_appName =oldReaderRightClick version title enterPage =oldReaderRightClick leavePage "title" = str_toolbook()&&str_appName() "version" = str_version()&& oldReaderRightClick = sysReaderRightClick k = FALSE 'k = oldReaderRightClick version title ToolBook ScrapBookBookser dialog buttonclick buttonclick close "dialog" Created with ToolBook 3.0 Copyright 1994 Asymetrix Corporationonionon version Version 1.06203ookBrowser str_infoString1 FALSE str_infoString2 hilite buttonClick rightButtonUp buttonClick "info" = str_infoString1() "hi" "hilite" ring2() = FALSE = NOT rb FALSE hilite ScrapBook wwwwwwwp wwwwwwwp wwwwwp wwwwwp wwwwwwwp about clipart 4 clipart 40 clipart 48 info2 Available Resources: info1 buttonclick buttonclick close "info" title ToolBook ScrapBookBookser FALSE hilite progress progress progress enterpage progress progress maxCount value maxSize Uncommenting progress Uncommenting item 0 of 1U frame progress imager freespot numPages 12,12 lastUnits 15,15 imager clipart 13 clipart 31 clipart 57 clipart 59 clipart 75 BKextractObject AUTHOR (BviewObj WM_RBUTTONUP hWndPrevMouseCapture $BcopyObj FALSE imager isShift isControl BKextractObject s_art_dragObj 4QcurrentObject art_SetCapture 0editObj AUTHOR n%initMouseMoveMsgs m9lastPosition WM_LBUTTONDOWN .&+ +E gotScript @WM_LBUTTONUP destination = parent of currentpage of whatWin; scrapObj of this book lockscreen of whatWin = TRUE; get screenToPageunits( ,whatWin); pagePos Vstr_dragError g*hasMake selection of whatWin = newObj; lockscreen of whatWin = FALSE; );send make to name of whatName PRINTMAN.EXE scrapObj of this book = newObj untranslateMouseMove 5#nameOfWindow = NULL normalizeMouse if newobj <> NULL; newSpot = AUTHOR wyart_windowFromPoint hWndPrevMouseCapture destination = currentpage of whatWin; syscursor = 1;syslockscreen = TRUE;syslockscreen = FALSE executeTBKMessage clear gotScript of clear scrapObj of this book newobj = copyObject( cIart_getParent clear hasMake of imager 7walkobj Copy Error actualPage msgBox no drop whatWin = windowreffromhandle( ,destination); s_art_dragObj P art_ReleaseCapture !evaluateTBKMessage scrapbook_ art_SetCapture str_TBEXE in windowreffromhandle( else; IdoPrint str_MTBEXE whatWin newSpot actualPos clear scrapbook_scriptList of status nameOfFile position of newObj = IT; startPage if onBackground of whatWin; WM_LBUTTONUP G5WM_MOUSEMOVE imager cIart_getParent AUTHOR pagePos normalizeMouse l9lastPosition s_art_dragObj P art_ReleaseCapture str_TBEXE whatName str_MTBEXE actualPos no drop wyart_windowFromPoint PRINTMAN.EXE nameOfFile WM_MOUSEMOVE actualObj group author (no keywords) }]dragRect . (shift+click/copy, ctrl+click/edit, rightclick/view) of this page page,background oldCursor nameString actualName statusString statusbar keywords keyString (unnamed) mouseEnter mouseY mouseX normalizeMouse zsflushHighlight utfreeSpot imager }]dragRect s_art_dragObj 4QcurrentObject normalizeMouse backdrop PAGEBACKGROUND s_art_lastPos extractObject ZiM0[ [yj)\\ 4]t/z] ^0n]^ hNHIh vinitTBMs imager {initVars s_oldRightClick oinitDLLs enterApplication freeWinPointer tb30dos.dll lpBuffer tb30win.dll lpEvalStruct tb30dlg.dll s_oldRightClick lpRetValue kernel lpExpression leaveApplication lastUnits imager frameUpdate lastUnits fieldUpdate 52buttonUpdate enterpage fieldUpdate buttonUpdate frameUpdate GetModuleFilename art_getModuleFilename GlobalAlloc art_globalAlloc GlobalFree art_globalFree GlobalLock art_globalLock GlobalUnlock art_globalUnlock GlobalReAlloc art_globalReAlloc GlobalHandle art_GlobalHandle GetTempFileName art_getTempFileName GetFreeSpace art_getFreeSpace tb30dos.dll tb30win.dll tb30dlg.dll RegisterWindowMessage art_registerWindowMessage SendMessage art_sendMessage FindWindow art_findWindow getWindow art_getWindow getParent art_getParent GetWindowText art_getWindowText GetClassWord art_getClassWord WindowFromPoint art_windowFromPoint SetCapture art_setCapture ReleaseCapture art_releaseCapture MessageBox art_messageBox GetFreeSystemResources art_getFreeSystemResources GetTickCount art_tickCount SetTimer art_setTimer KillTimer art_killTimer PostMessage art_postMessage removeFile art_removeFile getFileSize art_fileSize getFreeDiskSpace art_freeSpace sendkeys art_sendKeys kernel sortTextlines art_sortTextlines sortList art_sortList listToTextline art_listToTextline textlineToList art_textlineToList initDLLs $bgetWinPointer nRetValueLength lpBuffer lpEvalStruct TBM_EVALUATE msgEvaluate lpRetValue msgExecute uart_RegisterWindowMessage TBM_EXECUTE lpExpression nMaxMsgSize initTBMs +#,#; imager WM_RBUTTONDOWN WM_LBUTTONDOWN uart_RegisterWindowMessage WM_LBUTTONDBLCLK doCallBack WM_RBUTTONUP msgCallBack WM_LBUTTONUP initTranslatedMsgs imager WM_MOUSEMOVE initMouseMoveMsgs imager untranslateMouseMove actualCategoryPage `currentCategoryPage a9lastTab update currentItem tabOffset initVars str_NoAlloc msgBox OkCancel _art_globalLock art_globalAlloc str_NoMem getWinPointer msgBox iMstr_memNoFree FALSE OkCancel art_GlobalHandle art_globalUnlock hYart_globalFree 03str_memError freeWinPointer deleteObj 3QcurrentObject author viewObj editObj copyObj enterMenu art_PostMessage msgCallBack s_art_currentBook saveAs .&+ +E gotScript 3QcurrentObject FALSE imager oldCursor 7walkobj actualPage str_objectCopied update statusbar copyObj .&+ +E 3QcurrentObject FALSE actualPage oldCursor vtfreeSpot actualPage update _findItem utfreeSpot zsflushHighlight currentItem currentCategory deleteObj w, #? actualPage display s_art_dragObj actualName currentcategory viewObj w, "V ,%H.% categories targetRect findFreeSpot utfreeSpot tabOffset newObj keyword vtfreeSpot oldCategory actualName keywords lcategory whatPage FALSE currentCategory s_art_dragObj QfindPage a9lasttab actualName update dialog whatName wrapItUp Object Category currentCategory category keywords editObj .&+ +E fileName $bgetWinPointer startInfoTimer freeWinPointer oldDate hDart_GetTempFileName oart_removeFile lastSaved =initTranslatedMsgs str_dateTime default compactScrapBook .&+ +E ,%H.% dialog str_reset categories msgBox imager dfliptabs `currentCategoryPage vtfreespot yjstr_OKtoReset keywords OkCancel center display progress a9lastTab {artCount currentTab currentItem tabOffset default removeAllObjects reader print pages str_printOptions 5UdoDialog printpages str_about about 5UdoDialog aboutScrapBook systemInfo Cancel YesNo Ignore Exclamation system Information AbortRetryIgnore part_messageBox OkCancel Abort Question YesNoCancel Retry RetryCancel msgBox deleteObj hWndPrevMouseCapture untranslateMouseMove art_SetCapture default P art_ReleaseCapture keyDown FALSE update dialog doDialog startInfoTimer s_hWNDInfo imager estopInfoTimer s_art_currentBook =initTranslatedMsgs doCallBack ,%H.% categories categories findItem .&+ +E FALSE print pages groupFlag scale default doPrint w, "Q 0nstr_toolBookCaption charcount(selection of this window) command [ !evaluateTBKMessage checkBuffer selection of this window 5#nameOfWindow str_TBEXE YUart_getWindow whatName buffSize str_MTBEXE whatWin nameOfFile status listBooks lpBuffer buffer art_getWindowText nameOfWindow lpBuffer art_getClassWord modulehandle art_getModuleFilename status nameOfFile +",""m nRetValueLength art_sendMessage lpEvalStruct retVal msgEvaluate lpRetValue TBM_FAILED lpExpression status evaluateTBKMessage retVal msgExecute lpExpression art_sendMessage executeTBKMessage freeWinPointer $bgetWinPointer nRetValueLength msgBox newlp str_directCopy str_tooMany OkCancel FALSE lpRetValue status checkBuffer words ) option keyword search list search FALSE imager dfliptabs book list `currentCategoryPage info1 object selected items center info2 display progress lastChecked a9lastTab keyword list print pages picker dialog print options currentTab scale currentItem tabOffset category myReset V, #> f* Cancel onBackground of windowreffromhandle( 7Wrealname notifyAfter make FALSE is in script of scrapbook_scriptList of Exclamation gotScript = name of whatName GROUPRECORDFIELD "{maxCount progress #{maxCount iresetProgress buffSize str_scanning realname of estr_make executeTBKMessage notifyBefore make script of oldCursor H/targetScript checkBuffer uniquename of msgBox OkCancel scrapbook_scriptList object of s_scriptObjList progress str_uncommenting @\commentScript !evaluateTBKMessage scrapbook_ charcount(objects of of this background = objects of ;name of default <> NULL str_commenting str_warning status to handle make walkObj 1, "D executeTBKMessage = scrapbook_script of str_notice script of textline 1 of script of name of !evaluateTBKMessage = realName of scrapbook_script scrapbook_script str_miniNotice clear scrapbook_script of status commentScript ToolBook str_toolbook TB30.EXE str_TBEXE MTB30.EXE str_MTBEXE ScrapBook str_appName Version str_version Asymetrix Corporation Created by Michael Florence Copyright 1994 str_infoString1 Asymetrix Corporation Copyright 1994 Created with ToolBook 3.0 str_infoString2 Out of Memory str_noMem bytes of memory. Could not allocate str_noAlloc Memory Error str_memError Could not free memory. str_memNoFree Object has been copied to clipboard. str_objectCopied Reset ScrapBook str_reset Click OK to remove ALL objects and reset the ScrapBook. str_OKtoReset mm/dd/yy hh:min AMPM str_dateTime Print Options str_printOptions About ScrapBook str_about Object Category str_objectCategory Keyword Search str_keywordSearch Direct Copy str_directCopy ToolBook - str_toolBookCaption There are too many objects to copy. Either free some memory or reduce the number of objects selected str_tooMany An ERROR occurred trying to copy the image. Try reducing the number of objects on the page. str_dragError WARNING! str_warning The object to be copied contains a MAKE handler. Continue at your own risk. str_make w, #? str_appName -- Script moved to userproperty scrapbook_script by str_notice w, #? scrapbook_script by str_appName str_miniNotice Category - str_category . (ctrl+click to change category name) str_categoryChange Enter a new name for this category. str_enterNewName Multiple Objects str_multipleObjects The new object has more than one item. It must be grouped to function correctly str_moreThanOne No items selected in any other books. str_NoItems Copying str_copying Scanning str_scanning Commenting str_commenting Uncommenting str_uncommenting Printing str_printing Search str_search No match found. str_noMatch No match found. Continue from beginning? str_backToStart Object Description str_objectDescription You must enter a category for the object. str_mustEnter compressed on str_compressed bytes str_bytes categories str_categories items str_items of memory str_ofMemory of disk space str_diskSpace resources str_resources forwardTab Paste object currently on clipboard. Search for item by keywords. search Show the previous page of this category. backwardTab Direct-copy selected object in another ToolBook instance. direct copy Show the next category. (click = move one category / ctrl-click = moves 5) clipboard flipleft flipright Show the previous category. (click = move one category / ctrl-click = moves 5) Show the next page of this category. str_helpText Miscellaneous Transportation 8JI6a numPages Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 Group 23 freeSpot FALSE 15,15 lastUnits FALSE gotScript page "clipart 63" actualPage Tractor Trailer actualName Semi,Truck,18 Wheeler keywords Transportation category 4031,2625 realSize Group id 145 of Page id 99 actualObj .9>9y L9h9o FALSE gotScript page "clipart 64" actualPage Private Plane actualName Airplane keywords Transportation category 4273,2610 realSize Group id 45 of Page id 101 actualObj LD$ j FALSE gotScript page "clipart 65" actualPage actualName Automobile,Car keywords Transportation category 4004,2550 realSize Group id 69 of Page id 102 actualObj FALSE gotScript page "clipart 66" actualPage Bicycle actualName Man,Bike keywords Transportation category 2325,3488 realSize Group id 156 of Page id 103 actualObj FALSE gotScript page "clipart 67" actualPage Motorcycle actualName Motorcycle keywords Transportation category 3240,2785 realSize Group id 69 of Page id 104 actualObj FALSE gotScript page "clipart 68" actualPage Taxi Cab actualName Automobile,Car keywords Transportation category 5125,2115 realSize Group id 75 of Page id 105 actualObj FALSE gotScript page "clipart 69" actualPage Light Rail actualName Train,Mass Transit keywords Transportation category 4888,2565 realSize Group id 130 of Page id 106 actualObj Transportation Transportation Group 11 freespot numPages FALSE FALSE gotScript page "clipart 70" actualPage Train actualName Train keywords Transportation category 4731,2565 realSize Group id 69 of Page id 107 actualObj Miscellaneous numPages Group 11 Group 12 Group 13 Group 14 Group 21 Group 22 Group 23 Group 24 freeSpot FALSE gotScript page "clipart 41" actualPage Glasses actualName Glasses keywords Miscellaneous category 3592,1695 realSize Group id 24 of Page id 73 actualObj FALSE gotScript page "clipart 42" actualPage Key Ring actualName keywords Miscellaneous category 3214,1620 realSize Group id 23 of Page id 75 actualObj FALSE gotScript page "clipart 43" actualPage Camera actualName 35mm,SLR keywords Miscellaneous category 4365,3419 realSize Group id 78 of Page id 76 actualObj *8F8o FALSE gotScript page "clipart 44" actualPage Vacation actualName Sun Glasses,Drink keywords Miscellaneous category 3495,3784 realSize Group id 85 of Page id 77 actualObj >VNVy \VxVo FALSE gotScript page "clipart 45" actualPage Magazine actualName Magazine keywords Miscellaneous category 4108,3165 realSize Group id 42 of Page id 78 actualObj A &`o FALSE gotScript page "clipart 46" actualPage Newspaper actualName Newspaper keywords Miscellaneous category 6436,2666 realSize Group id 146 of Page id 79 actualObj FALSE gotScript page "clipart 49" actualPage Globe actualName keywords Miscellaneous category 3011,3510 realSize Group id 25 of Page id 83 actualObj FALSE gotScript page "clipart 50" actualPage actualName Map,Flashlight keywords Miscellaneous category 3760,4508 realSize Group id 47 of Page id 84 actualObj Miscellaneous Group 11 Group 12 Group 13 freespot numPages FALSE FALSE gotScript page "clipart 51" actualPage Magnifying Glass actualName Magnifying Glass keywords Miscellaneous category 1710,3630 realSize Group id 17 of Page id 85 actualObj FALSE gotScript page "clipart 52" actualPage Binoculars actualName Binoculars keywords Miscellaneous category 5127,2690 realSize Group id 36 of Page id 87 actualObj FALSE gotScript page "clipart 53" actualPage Compass actualName Compass keywords Miscellaneous category 3396,1770 realSize Group id 18 of Page id 88 actualObj Miscellaneous progress progress imager oldCursor dragrect dragrect dragRect dragrect dragrect dragRect dragrect dragrect dragrect dragRect . > |] dragRect dragRect dragRect dragrect dragRect dragRect imager artCount FALSE imager author update leavepage `9lastTab imager dflipTabs update update enterpage default mouseEnter the imager ,mode update 8= FALSE ^tabs only we need 8= NULL lastTab 8<> 0 flipTabs ( = default 13,24 selectChars cursor "hand" searchString 15,15 lastUnits Building Officey Peopleed Miscellaneous Transportation controls !8str_helpText statusbar mouseEnter statusbar mouseLeave statusbar = str_helpText( 0SPACE search search default str_keywordSearch syscuror 5UdoDialog buttonClick dialog buttonClick doDialog " ",str_keywordSearch(),TRUE syscuror = default clipboard direct copy flipCategory catPage mnumPages actualCategoryPage `currentCategoryPage numPages flipleft flipright actPage Update notifyAfter Update isObject(currentCategoryPage catPage = actPage = actualCategoryPage numPages = \<> NULL enabled B"flipleft" = FALSE B"flipright" = TRUE flipLeft imager previous `currentCategoryPage flipRight PYflipPage buttonClick buttonClick `= NULL "imager" startPage = (currentCategoryPage pagenum = pageNum > 0 flipPage " enabled B"flipRight" "main" = TRUE 8= currentPage = FALSE flipRight imager mnumPages `currentCategoryPage numpages flipLeft PYflipPage buttonClick buttonClick `= NULL "imager" pagenum = (currentCategoryPage numpages = numPages pageNum <= flipPage " enabled B"flipLeft" "main" = TRUE = FALSE flipTab backwardTab tabOffset forwardTab actualCategoryPage `9lastTab dflipTabs a9lastTab currentItem currentItem tabOffset buttonClick tabOffset Update buttonClick loc, isShift, isControl `= NULL tabOffset lastTab b(1,currentItem actualCategoryPage flipTabs ( "tabs" enabled B"forwardTab" = TRUE 8- 1 < 0 = FALSE notifyAfter Update 8- 1 < 0 forwardTab author reader enterbook Update search wwwwwwwwwp wwwwwwwwwp wwwwwpwp wwwwwwwwwp wwwwwwwwww wwwwwwwwww clipart 8 clipart 44 search search list Mart_listtotextline 'art_sortTextlines keyword list keywords enterpage list" selectedtextlines "keyword = NULL = art_sortTextlines(art_listtotextline(keywords 15,15 lastUnits acceptDrop draggable Keyword List acceptDrop draggable Search List frame search list frameUpdate notifyBefore frameUpdate b = list" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable search list acceptDrop draggable frame keyword list frameUpdate notifyBefore frameUpdate b = "keyword list" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable keyword list search list search found buttondoubleclick <> NULL selectedtextlines list" [found acceptDrop draggable words lastChecked buttonClick buttonClick lastChecked lastChecked Match Whole Words Only AcceptDrop draggable &Find cancel search list keyword list buttonclick buttonclick list" selectedtextlines "keyword " = NULL AcceptDrop draggable &Clear FALSE found update dialog Search buttonClick buttonClick found "Search" = NULL update 8= FALSE close "dialog" AcceptDrop draggable &Done frameUpdate search picker clipart 7 clipart 9 clipart 14 clipart 70 clipart 41 clipart 78 category imager keyword currentCategory category enterpage combobox "keyword" category" currentCategory 8<> "imager" 15,15 lastUnits Select or Enter an object category Enter a name for the objectyyegory Select or enter keywords for searching frame frameUpdate notifyBefore frameUpdate b = x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable frame keyword frameUpdate notifyBefore frameUpdate b = combobox "keyword" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable keyword keywords Mart_listToTextline enterdropdown ,%H.% RDnewItem keywords whatText keywords checkNewItem w, "V ,%H.% FALSE keywords newItem enterdropdown dropdownItems = art_listToTextline(keywords checkNewItem whatText = cQUOTE X<> NULL newItem( FALSE frame category frameUpdate notifyBefore frameUpdate b = combobox "category" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable category categories Mart_listToTextline enterdropdown RDnewItem categories categories currentTab whatText checkNewItem w, "V ,%H.% FALSE categories currentTab newItem enterdropdown dropdownItems = art_listToTextline(categories checkNewItem whatText = cQUOTE c"," ~(",", newItem( currentTab FALSE Transportation msgBox checkNewItem keyword pstr_mustEnter OkCancel response dialog str_objectDescription category buttonClick buttonClick -- see there are checkNewItem combobox "keyword" category" -- have = NULL response = msgBox(str_objectDescription(), str_mustEnter(), "Stop", "OkCancel", 1, "task") "dialog" Cancel dialog buttonClick buttonClick close "dialog" Cancel frameUpdate category picker 15,15 lastUnits Currently selected item(s) Select book to copy selection fromhing dialog buttonClick buttonClick "dialog" Cancel dialog buttonClick buttonClick close "dialog" Cancel frame book list frameUpdate notifyBefore frameUpdate b = 8list" x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable book list selected items whatItems Mart_listToTextline buttonClick buttonClick oselectedTextlines <> NULL = art_listToTextline( oselectedtextlines) whatItems Button id 0 of Page id 0 whatItems frame selected items frameUpdate notifyBefore frameUpdate b = "selected x = syspageunitsperpixel y = b)-x,( b)-y, ( b)+x, ( acceptDrop draggable selected items frameUpdate print pages 15,15 lastUnits Select the desired object to print. clipart 3QcurrentObject imager thumbnail object actualPage dialog IdoPrint category ( option print options buttonClick sets up the options calls DOPRINT handler buttonClick SYSTEM s_art_dragObj LOCAL PAGE startPage l" = " currentObject 8<> NULL C = actualPage 4= 1,1 doPrint " = "category" = currentPage "imager" 4= 1,1 " = "thumbnail" C > 1 4= 1,4 y -1) " = "clipart" 4= 1,2 close "dialog" Cancel dialog buttonClick buttonClick close "dialog" Cancel Cancel buttonClick buttonClick art_sendKeys("%S",0) printSetup &Setup inside outside enterpage notifybefore e= TRUE x = syspageunitsperpixel y = "inside" "outside" H(2*x) H(2*y) e= FALSE outside inside outside frameUpdate notifyBefore frameUpdate b = "outside" x = syspageunitsperpixel y = b)+x,( b)+y, ( b)-x, ( print options clipart ) option thumbnail object lastChecked scale ( option category buttonClick buttonClick option = "clipart" enabled B"scale" = TRUE lastChecked = "category" = "thumbnail" ]FALSE FALSE option object Selected O&bject category Selected Category &Page thumbnail All &Thumbnail Pages clipart &All Clipart Pages Scale lastChecked buttonClick buttonClick lastChecked FALSE lastChecked Scale to &Fit Page. enterpage frameUpdate FALSE object print pages acceptDrop draggable selected items frameUpdate print pages System Arial Arial rrentItem MS Sans Serif FALSE Arial lastTab Arial Arial tabOffset Arial keywords Times New Roman arial yPage categories FALSE oldCursor FALSE FALSE FALSE tation BK\SCRAPBK1.TBK" imager 05/16/94 03:25 PM Page id 9 of Book "D:\JXWORK\SCRAPBK\SCRAPBK1.TBK" currentCategoryPage FALSE FALSE FALSE lastSaved D:\JXWORK\SCRAPBK\SCRAPBK.TBK" FALSE targetScript rrentObject currentcategory Transportation,Miscellaneous,People,Office,Building,Banners,Arrows,Animated Magnifying Glass,Sports,Plane,Mass Transit,Train,Motorcycle,Bike,Automobile,18 Wheeler,Truck,Semi,Cop,Car,Engine,Tractor,Cook,Space,Hands,Compass,Binoculars,Flashlight,Map,Letter,Newspaper,Magazine,Drink,Sun Glasses,SLR,35mm,Keys,Glasses,Briefcase,Phone,Desk,Copy Machine,Computer,People,College,Man,Woman,Book,Kids,Calendar,Cardfile,Files,Tack,Post-It,Notepad,Pen,Paper,Gas Pump,Residential,Ambulance,Library,Cafe,Building,Office,Brass,Scroll,Award,Ribbon,Steel,Plate,Arrow,Air Mail,Envelope,Mail,Basketball,Fish Bowl,Fish,Biplane,Banner,Airplane,Cash Register,Flash,Camera,Telephone version FALSE tation FALSE ScrapBook sportation imager page "imager" imager =initTranslatedMsgs openwindow imager closeWindow imager shown imager hidden openwindow == pageUnitsToClient( "imager" /"main") initTranslatedMsgs closeWindow untranslateAllWindowMessages clientHandle shown hidden lastPosition 4470,615 progress ScrapBook page "progress" display 945,1335 page "art" dialog Keyword Search page "category" closeWindow closeWindow defaultposition rapBook sportation Banners - Blue Ribbon ScrapBook System Information page "info" found closeWindow closeWindow defaultposition found = NULL 975,1380 lastPosition page "main" no drop reader menu &File &Open Ctrl+O &Save Ctrl+S Save &As... saveas &Compact ScrapBook Compress the file to as small as possible. Print Set&up... printsetup &Print Pages... Ctrl+P printpages E&xit Alt+F4 &Edit &Copy Object Ctrl+C copyObj Copy current object to clipboard. &Delete Object Del deleteObj Delete current object. &Edit Object Ctrl+E editObj Edit category of current object. &View Full Size Ctrl+F viewObj Remove All Objects Erase all items and reset the book. &Help Contents F1 About ToolBook... About ScrapBook... &System Info... Ctrl+I sheet1 sheet5 sheet4 sheet3 sheet2 sheet1 imager default mouseEnter <> default G -- searched the keywords {names buttonclick LOCAL ARRAY freeSpot[][] list" = NULL searchString = firstPage = currentPage "imager" maxCount = (categories tabOffset wordCheck = -- found will be just starting "Search" = startItem = 1 startPage = 1 startRow = 1 startCol = 1 allFlag = TRUE FALSE -- walk through thumbnail , looking )each desired whatItem = whatIndex = findItem( whatPage = whatPageNum = numpages = g<= 5 -- numPages thisPage = +i-1) currentCategoryPage i > 1 actualCategoryPage -- j][k] <> targetObj = ( j][k])&&" foundFlag = targetText = match h(actualName -- one, currentItem flipTabs "tabs" "main" flushHighlight nameString = "(unnamed)" keyString = "(no statusString = z&&"-"&& K&"." statusbar = (j&k) -- where we h,i,j,k = default >buttonClick -- didn't msgBox(str_search(), str_noMatch(), "INFORMATION", "OKCANCEL") -- _), str_backToStart(), "QUESTION", "YESNO") B"OK" ,mode), the timer SYSTEM s_hWNDInfo = NULL isOpen "info" startInfoTimer "title" = str_toolbook()&&str_appName() stop stopInfoTimer doSystemInfo whatHandle, whatMsg, wparam, lpLow, lpHi infoTimer "hi" "hilite" freeMem = art_getFreeSpace(0) zfreemem %"###,###" freeGDI = art_getFreeSystemResources(1) freeUSER = fileSize = art_fileSize( ,&&"unknown # %"###,###" freeSpace = art_freeSpace( %"###,###" "info1" 8&CRLF&\ str_compressed()&&(lastSaved &&str_bytes()& (categories 8)&&str_categories()& ")-1&&str_items() "info2" x&str_ofMemory()& &str_diskSpace()& &"% GDI"&&str_resources()& -- register a windows (3 sec) -- used update every 3 infoTimerID, = 4843 = windowhandle 6 = art_SetTimer( L,3000,0) -- intialize dialog "","", -- watch message translateWindowMessage on 275 -- kill art_KillTimer( untranslateWindowMessage 275 -- update the progress bar whatValue inc "frame" / maxCount = mode ,maxSize -- initialize resetProgress x = sysPageUnitsPerPixel * 2 y = el * 2 = NULL "bar" buttonClick loc, isShift, isControl `= NULL tabOffset = lastTab = (categories 8) - actualCategoryPage currentItem flipTabs ( "tabs" enabled B"backwardTab" = TRUE sendnotifyAfter update Update 8+ 1 > = FALSE fullsize view on click WM_RBUTTONUP whatHandle, whatMsg, wParam, lpLow, lpHi SYSTEM s_art_dragObj AUTHOR extractObject viewObj ready WM_LBUTTONDOWN WORD hWndPrevMouseCapture bj, s_art_lastPos bitAND 8 = 8 isControl = TRUE FALSE <4 = 4 isShift = -- = NULL currentObject lastPosition clipboard copyObj editObj -- capture mouse messages initMouseMoveMsgs e = art_SetCapture(clienthandle "imager") WM_LBUTTONUP LOCAL DWORD mouseXY POINT newPos "STRING newObj untranslateMouseMove art_ReleaseCapture() a = ( actualPage = normalizeMouse( pagePos = clientToPageUnits( actualPos = pageUnitsToScreen( mouseY = ( D) bitShiftLeft 16 / 2)) / 2)) = art_windowFromPoint( whatName = nameOfFile( (str_TBEXE() str_MTBEXE() o<> cursor "no drop" whatWin = nameOfWindow(hwnd) = sysclienthandle art_getParent( noOp() status = executeTBKMessage( windowreffromhandle("& &");"&\ onBackground " destination = currentpage "newobj = copyObject("& j);"&\ " newSpot = "& &";"&\ screenToPageunits("& );"&\ = IT;"&\ "scrapObj evaluateTBKMessage( gotScript walkobj( [scrapbook_scriptList &&"= hasMake "&&obj&"; msgBox("Copy Error",str_dragError(), "Stop", "Ok", 1, "task") "PRINTMAN.EXE" startPage = 4= 1,1 doPrint e <> WM_MOUSEMOVE $ x,y location form 9 windows convert a point relative under -- over a toolbook app = clientHandle valid -- manager handler puts keywords thumbnail oldCursor dragRect -- bounding isObject(" >)&&" actualObj nameString = actualName %"(unnamed)" keyString = "(no statusString = z&&"-"&& , rightclick/ ISPACE statusbar = > 32767 -65535 > 32767 -65535 -- findout ARRAY freeSpot[2][4] flushHighlight /"main" loc = = objectFromPoint( #) ; -- "PAGEBACKGROUND" "backdrop" currentPage ] <> -- This handles adding the ScrapBook -- via windows clipboard buttonClick SYSTEM STACK s_scriptObjList "imager" `= TRUE /"art" artCount = "clipart"&&( pasteSpecial they cancelled out dialog, abort = NULL "main" '= FALSE = default necessary ) > 1 response = msgBox(str_multipleObjects(), str_moreThanOne(), "Stop", "OkCancel", 1, "task") -- xgrouped, o<> "OK" whatObj = scripts status = walkObj ( gotScript @targetScript user property scrapbook_scriptList centerObj update category doDialog " ", str_objectCategory(), NOT isOpen -- close currentCategory combobox " thumbnail findPage targetRect = findFreeSpot( newObj = copyObject( hasMake actualObj actualPage "&"E& actualName keywords comboBox " wrapItUp -- This handles adding the ScrapBook -- via direct copying another instance buttonClick LOCAL ARRAY bookList[32][3] INT counter )STRING buffer a list listBooks \1][1] <> NULL -- load picker dialog [whatItems ][1] <> booklist[ ][1]&CRLF ][2]& selectedTextLines " = 1 " = art_listToTextline( -- there only one eautomatically ) = 1 hWnd = 1][3] doDirectCopy doDialog " ", str_directCopy(), TRUE isOpen close = selectedTextlines msgBox( str_NoItems(), "exclamation") actually does -- arguments: source SYSTEM STACK s_scriptObjList "imager" /"art" artCount = "clipart"&&( -- find out obj = evaluateTBKMessage( getOut whatBook = have a MAKE handler? hasMake = walkObj ( progress maxCount = mode ." = str_copying() Q" = resetProgress (obj) executeString = " windowRefFromHandle("& i&";dest ="& copyObject( realname executeTBKMessage( = default necessary ) > 1 whatObj = centerObj scripts user gotScript @targetScript scrapbook_scriptList status = "main" update `= FALSE -- display cateory category", str_objectCategory(), currentCategory combobox " thumbnail findPage targetRect = findFreeSpot( newObj = actualObj actualPage "&"E& actualName keywords comboBox " wrapItUp routine finds a that has enough room -- hold the image Fsteps through freespot array empty -- arguments: obj = be placed -- returns: a two digit "row&col" findFreeSpot LOCAL ARRAY freeSpot[2][4] whatPage = currentCategory howBig = 102-percentfreespace /"art" (full actualCategoryPage i][j] = NULL i = 2 j = 4 = TRUE (i&j) makeNewPage /"main" handler sizes positions thumbnail whatSpot = thumbNail INT pixelX, pixelY, biggest, i STACK realSize, targetSize, targetBounds mySelection = sysPageUnitsPerPixel \) >= /) - (2 * centerObj locates category sets up be user later correct If no found, created. findPage t[2][4] tabOffset = lastTab = /"imager" currentItem 8= findItem( taboffset currentCategoryPage numpages (i + j) -- no numPages = FALSE -- centers another targetObj = Oover (use obj, *)/2,( v)/2, -- modifies look good %thumbnails modify massageObj objList = whatObj objType = drawdirect ;"BUTTON" V = "arial" q / (( currentObject 8) / ( excludeTab stretchgraphic "COMBOBOX" / (( 8) / ( "RECORDFIELD" / (( 8) / ( / (( 8) / ( = "picture" = "paint <> 0 <> 0 <> 1 called whether pasting clipboard coping complete final common functions. targetRect = 2 specifing where should wrapItUp setFreeSpot 8= obj currentPage update shows dialog results getCategory doDialog " m ", str_objectCategory(), isOpen close actualName keywords comboBox " -- handles flipping flipPage whatWay flushHighlight /= "inset" transition " resetThumbnails -- resets bacground t[2][4] thispage = [i][j] = (i&j) clears selected itme on (i&j) <> LIGHTGRAY (i&j) -- creates a flag = means existing t[2][4] = currentcategory -- loads {reference obect t[2][4] obj&"E& [the statusbar changing modes notifyBefore += NULL @= SPACE -- display ahelp = str_category()&& >&str_categoryChange() -- figure out what 9was clicked buttonclick loc, isShift, isControl LOCAL OBJECT obj "imager" actualCategoryPage > <> " c) <> whatItem = ( currentItem )+ tabOffset flipTabs ( = default (str_enterNewName() whatText = IT cQUOTE c"," ~(",", (categories 8) = tabs correct SYSTEM s_tab_offsets[5][5] INT level, maxCount, numTabs = 5 numLayers = reveseNum = u - lastTab `= TRUE through their fillcolors -- positions have been loaded array ( ][]) speed obj = 9"&i) ) <= 9"&i) = 9"&i) = = 1 <> 0 `= str_appName()&&"-"&& 9"&i) 9"&i) = LIGHTGRAY "mask" 9"&i) = 9"&i) = 9"&i) = 9"&i) = 9"&i) = 9"&i) = 9"&i) = 9"&i) = 1 flushHighlight = "inset" `= FALSE currentPage transition "slide isObject( currentCategoryPage currentcategory resetThumbnails update "main" -- predetermine loadOffsets s[5][5] pixel syspageunitsperpixel) 9"&i) spot = i][j] = ( o*(j-1))), ("sheet"&j) initial captions loadCaptions 8),5) 9"&i) = resetTabs notifyAfter w, "V .&+ +E w, "c ,%H.% w, "V 1, "c ,%H.% ,%H.% w, "D w, "D ,%H.% TRUE foundFlag str_noMatch startItem YESNO search list firstPage tabOffset FALSE dflipTabs str_search targetText allFlag whatPage actualCategoryPage currentCategory found whatItem nameString actualName statusbar (no keywords) currentItem tabOffset categories whatIndex keyString (unnamed) found startRow imager mnumpages str_backToStart `currentCategoryPage thisPage targetObj OKCANCEL QUESTION msgBox numpages statusString _findItem utfreeSpot Search zsflushHighlight words searchString default INFORMATION keywords startPage buttonclick w, #? startInfoTimer s_hWNDInfo 3str_toolbook title str_appName enterpage s_hWNDInfo estopInfoTimer leavePage w, #> w, #? w, #? w, "V -$, #> w, #? V, #> w, #? w, #? w, #? w, #? w, #? w, #? w, #? NHstr_diskSpace art_getFreeSpace str_compressed fstr_resources % GDI categories art_getFreeSystemResources fileSize str_items art_fileSize str_bytes freeSpace freeMem freeGDI unknown # of info2 ###,### infoTimer % USER xstr_categories hilite 7str_ofMemory 1art_freeSpace info1 freeUSER lastSaved doSystemInfo s_hWNDInfo doSystemInfo 5doSystemInfo infoTimerID infoTimer (art_SetTimer startInfoTimer s_hWNDInfo infoTimerID Jart_KillTimer infoTimer stopInfoTimer w, #? frame progress "{maxCount "LmaxSize progress .&, 7 frame progress "{maxCount #{maxCount #LmaxSize resetProgress w, "V w, "V w, "V `9lastTab tabOffset actualCategoryPage tabOffset categories dflipTabs backwardTab lastTab update currentItem tabOffset buttonClick w, "V tabOffset `9lastTab categories Update w, #? .&+ +E clipart targetRect findFreeSpot gotScript msgBox newObj imager wrapItUp hasMake actualPage {artCount actualName lcategory h*hasMake OkCancel response currentCategory s_scriptObjList t/str_objectCategory str_moreThanOne actualObj QfindPage 5UdoDialog whatObj dialog mstr_multipleObjects centerObj {artCount keyword keywords category default G/targetScript 7walkObj update scrapbook_scriptList gotScript status buttonClick .&+ + whatItems msgBox exclamation str_directCopy whatItem str_NoItems listBooks picker dialog doDirectCopy 5UdoDialog selected items whatItems Mart_listToTextline book list buttonClick .&+ +E w, #? 1, #> ,%H.% .&+ +E .&+ +E clipart gotScript newObj this book {artCount executeString keywords lcategory QfindPage t/str_objectCategory currentCategory whatObj str_copying progress h*hasMake ;dest = iresetProgress {artCount getOut category update findFreeSpot 7walkObj executeTBKMessage targetRect keyword actualName imager actualPage );obj= actualObj maxCount #{maxCount s_scriptObjList hasMake selection of this window ;get copyObject(obj,dest);name of obj = realname of obj;clear realname of obj;end progress default !evaluateTBKMessage in windowRefFromHandle( centerObj dialog wrapItUp whatBook 5UdoDialog scrapbook_scriptList gotScript G/targetScript status doDirectCopy default getOut ,%H.% ,%H.% actualCategoryPage whatPage makeNewPage utfreespot currentCategory findFreeSpot mrealSize centerObj mySelection thumbNail ,%H.% `9lastTab tabOffset actualCategoryPage tabOffset FALSE imager mnumpages `currentCategoryPage vtfreeSpot currentItem whatPage mnumPages lastTab tabOffset a9lastTab currentItem _findItem currentItem taboffset currentCategory findPage centerObj 3QcurrentObject objList COMBOBOX massageObj group paint object objType arial mrealSize whatObj picture RECORDFIELD BUTTON massageObj imager massageObj setFreeSpot 4QcurrentObject update thumbNail update wrapItUp actualName keyword keywords lcategory t/str_objectCategory dialog 5UdoDialog category getCategory push left fast push right fast imager resetThumbnails previous zsflushHighlight flipPage ,%H.% ,%H.% utfreespot imager mnumpages `currentCategoryPage numpages resetThumbnails ,%H.% ,%H.% imager 4QcurrentObject flushHighlight actualCategoryPage FALSE mnumPages `currentCategoryPage vtfreespot `currentCategoryPage mnumPages currentcategory makeNewPage utfreespot vtfreeSpot setFreeSpot statusbar author statusbar reader w, #> 9+str_category !str_categoryChange field statusbar mouseEnter field statusbar mouseLeave .&+ +E ,%H.% w, /; cancel str_enterNewName tabOffset categories actualCategoryPage imager dflipTabs categories group field currentItem whatText currentItem default buttonclick w, "V w, /; w, /; `9lastTab tabOffset imager categories resetThumbnails `currentCategoryPage actualCategoryPage slide out top fast currentcategory str_appName s_tab_offsets a9lastTab currentItem zsflushHighlight currentItem update flipTabs ,%H.% ,%H.% sheet s_tab_offsets loadOffsets w, "V categories loadCaptions loadCaptions loadOffsets resetTabs resetTabs enterbook dialogs CANCEL button "CANCEL" of button "OK" of syscuror default keyDown -- generic dialog handler -- test Bexits so, does action isObject(" B""CANCEL"" buttonclick syscuror = default n = keyEnter B""OK"" B"OK" border dialogs resetTabs enterbook dialogs startupAutoScriptFile sysAutoScriptFile sysSystemVariables sysLinkedDLLs sysUseWindowsColors sysToolBookDirectory sysShowMRUFiles targetWindow focusWindow mainWindow activeWindowHandle sysReaderRightClick sysRgbFill sysRgbStroke syspageunitsperpixel sysLineEndSize sysLineEndStyle sysTool sysOpenWindows caretlocation systransparent sys3dinterface sysdrawdirect printerlabelwidth printerpagebitmap printersize sysoperatingsystem sysversion syscurrency systimechar sysitlzero sysitime systhousand sysshortdate sysinegcurr sysmorning sysimeasure syslongdate syslist sysilzero syslanguage sysevening sysidigits sysdecimal sysidate sysicurrency sysicurrdigits sysicountry syscountry syserrornumber sysmagnification sysclienthandle syssuspendmessages syswindowhandle sysruntime syspasswords syschangesdb sysfillcolor sysstrokecolor syssuspend systabtype systabspacing syspagescroll syslinespacing syslevel sysalignment printergroupsacross printerfieldnames sysindents startupReaderRightClick startup3dinteobject to clipboard. &Delete Object Del deleteObj Delete current object. &Edit