WDR Computer Club Digital 1996 October

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

/ WDR Computer Club Digital 1996 October / CLUB10_96.BIN / fernuni / medlite3.app / utils.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1996-06-07 | 34KB | 526 lines

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 h1H+23 BlinkDLLKernel addSysBooks to handle enterBook after except.sbk wintypes.sbk enterBook before to handle addSysBooks itemInList after Eelse manageException addSysBooks ,%H.% to get ItemInList Eelse manageException replaceAll ItemInList Eargrx Eelse to get replaceAll manageException EnoFnd replaceAll Eelse to handle linkDLLKernel EnoDLL kernel manageException globalAlloc globalCompact globalFree globalLock globalUnlock globalHandle linkDLLKernel false isNum to get isInt false Eelse manageException isInt globalLock globalAlloc Eelse fType itemInList STRING DWORD EnoMem e4globalCompact a positive integer to handle getGlobalPointer DOUBLE EnoPtr manageException FLOAT POINTER "BYTE,INT,WORD,LONG,DWORD,FLOAT,DOUBLE,STRING or POINTER" isNum EwrgVal getGlobalPointer globalUnlock Eelse EnoHndMem EnoULock EnoFreeMem to handle freeGlobalPointer globalHandle manageException globalFree freeGlobalPointer Eargrx Eelse to get stripAll manageException EnoFnd replaceAll stripAll vfFile Eelse Book " vstripAll to get changeFileExt manageException replaceAll changeFileExt svINIFile changeFileNameExt PEelse setINIFile manageException setINIFile quicksrt svSortList quicksort vSplitPoint quicksrt split quicksrt vSplitPoint svSortList split vTemp2 vTemp1 svSortList ,%H.% Eelse manageException to get reverseList reverseList ,%H.% reverseList itemInList to get makeSet Eelse manageException makeSet to handle pathFromFile pathFromFile .&+ +E -", #? .&+ +E Button Korrigiere Seite Group Ellipse aktObject correctProperty ,%H.% ,%H.% Korrigiere Hintergrund Korrigiere Seite Eelse manageException to get correctActivated correctActivated ,%H.% to get clearInianimate send iniAnimate replaceAll sche inAnimate auf Seite clearIniAnimate ,%H.% pSound to handle resetIniAnimate iniAnimate resetIniAnimate ,%H.% of page to handle resetSoundProperty vBreak vHSpec Eelse vOldCaption fprop on page Eelse manageException Reset property resetProperty ,%H.% in script of page replaceAll Reset to handle resetScriptVar resetScriptVar AngledLine,Arc,Background,Book,Button,Curve,ComboBox,Ellipse,Field,Group,Hotword,IrregularPolygon,Line,OLE,Page,PaintObject,Picture,Pie,Polygon,RecordField,Rectangle,RoundedRectangle,Stage,Viewer false Eelse manageException to get objectExists objectExists Z$-- Copyright 1995,1996 FernUniversit t - Gesamthochschule Hagen ZvMsg,vBreak,vHSpec addSysBooks ,"except.sbk","wintypes. linkDLLKernel BfLoc ZvOKSysBooks,vMode b--(1)-- p>= 2 manageException y,Eelse,1, b--(1)-- itemInList( b--(2)-- <> 0 b--(2)-- b--(3)-- b--(3)-- b--(4)-- b--(5)-- "," & b--(5)-- b--(4)-- ItemInList fItem,fList ZvLimit,vItem,vList vlimit ANSIToChar(1) replaceAll(",", t & "," & b--(1)-- b--(1)-- b--(2)-- b--(2)-- fSearchStrg,fReplacer,fSourceStrg ZvFindNum,vReplNum,v1stChar,vRes,vStart,vEnd b--(1)-- p<> 3 y,Eargrx, fsearchStrg y,EnoFnd,vhSpec, b--(2)-- = 1 = -1 <> 1 <> -1 b--(2)-- b--(3)-- b--(3)-- b--(1)-- ,vOldErrorNumber, sysErrorNumber "kernel" WORD globalAlloc( ,LONG) globalCompact( /Free( POINTER globalLock( globalUnlock( lHandle( b--(1)-- = 0 <> 0 y,EnoDLL," b--(1)-- isNum fString -- WARNING: With sysDecimal ^vTest function erroneously regards ZvOldSuspend,vOldSysError isInt l,vRetVal b--(1)-- b--(2)-- b--(2)-- p<>1 fstring= b--(1)-- getGlobalPointer fNum,fType,fMemFlags ZvTypesAndFactors,vPos,vBytes,vMem,vPointerToMem BYTE,1,INT,2," ,4,DWORD,4,FLOAT,4,DOUBLE,8,STRING,1, b--(1)-- y,EwrgVal, """,\ b--(1)-- b--(2)-- ","a positive integer", b--(2)-- b--(3)-- ftype <> b--(3)-- b--(4)-- <> 0 b--(4)-- b--(5)-- y,EnoMem, b--(5)-- b--(6)-- <> "0,0" = "0,0" y,EnoPtr, b--(6)-- freeGlobalPointer fPtr ZvHndMem globalHandle( b--(1)-- <> 0 y,EnoHndMem, b--(1)-- b--(2)-- y,EnoULock, b--(2)-- globalFree( b--(3)-- y,EnoFreeMem, b--(3)-- stripAll b--(1)-- p<> 2 b--(1)-- changeFileExt fFile,fExt ZvFile,vNum 9 may be the """, vfFile b--(1)-- b--(1)-- b--(2)-- > 0 <= 3 b--(2)-- ) >= 1 <> "." <> "\" b--(3)-- = "." -- there was a extension = "\" -- & "." & b--(3)-- setINIFile ZvhName 4svINIFile changeFileNameExt() b--(1)-- : <> PEelse,1, b--(1)-- b--(2)-- = 559 --no such file b--(2)-- quicksort 4svSortList quicksrt 1, fFirst,fLast vSplitPoint split( vKey w + 1 swap fPoint1,fPoint2 vTemp1 vTemp2 reverseList ZvReverseList b--(1)-- b--(1)-- makeSet fBag ZvSet b--(1)-- C <> b--(1)-- b--(2)-- b--(2)-- pathFromFile = "\" correctProperty ZINT i, BookName ZpageObjects, aktObjects 8= "Korrigiere Seite" && i && "..." | <> = "Group" ) = "Button") ( bild = "Ellipse") correctActivated ZvListOfBackgrounds,vObjects,vaktObject,vOldCaption & i && "..." b--(1)-- b--(1)-- b--(2)-- b--(2)-- Hintergrund" && && "..." b--(3)-- b--(3)-- clearIniAnimate clearInianimate" 8= "L sche inAnimate auf iniAnimate","", resetIniAnimate pSound i <> resetProperty fprop,fval resetSoundProperty" " && s && " " && i b--(1)-- 8= "Reset property" && && " " && && "on " && i && " " && i && "=" && b--(1)-- resetScriptVar fvar,foldVal,fnewVal " && t && " " && | && " " && && " " && i && "=" && && "=" && objectExists fobj b--(1)-- "AngledLine,Arc, ,Curve,ComboBox, ,Field, ,Hotword,IrregularPolygon, HOLE,Page,PaintObject,Picture,Pie, (RecordField,Rectangle,RoundedRectangle,Stage,Viewer" --(1)-- false isNum to handle globalPointer Eelse itemInList STRING DWORD dummy DOUBLE manageException FLOAT POINTER globalPointer isNum fString -- WARNING: With sysDecimal ^vTest function erroneously regards ZvOldSuspend,vOldSysError globalPointer fNum,fType,fMemFlags ZvMsg,vBreak,vHSpec ZvTypesAndFactors,vPos BYTE,1,INT,2,"WORD",2,LONG,4,DWORD,4,FLOAT,4,DOUBLE,8,STRING,1,POINTER,4 itemInList( b--(1)-- manageException 1,1, y,dummy, y,Eelse,1, b--(1)--