:HDMEDIAPATH jwJpISimPjmIeAEos Tms Rmn Tms Rmn 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 BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM tbkMCIchk cmd,notif,req,brk ZretVal sysErrorNumber tbkmci( syserrornumber<>0 tbkmmerrorstring( tbkBitmapChk -- When ]TBKBMP.DLL standalone, you should modify -- function use the bitmap reporter tbkbmperrorstring( brk<> --Cover functions --These allow authors pass device alias instead tbkMCIPositionWindow devAlias,windowPos,flags Zhwnd 9("status" && 3 && " ","") tbkPositionWindow( tbkMCICenterWindow && " ","") tbkCenterWindow( tbkBitmapPositionWindow && " tbkBitmapCenterWindow && " tbkMCIGetWindowRect && " ","") tbkGetWindowRect( tbkBitmapGetWindowRect && " 4s_mminit tbkMMInitializeSystem -- guard against 4having been restored! { <> stuff used Hwidgets X"tbkwin.dll" YieldApp() <> 0 "TBKWIN. xfound. Some X may xwork" X"tbkdlg. OpenDlg( <> 0 "TBKDLG. readdmm multimedia "winhelp.exe .hlp" tbkmmdevices 4s_mmdevices f("Multimedia") c"Help" -- stub so some will without ES boxes checkdevice -- General utility -- Someday, ToolBook Thave built- data type checking isNumber x x + 0 --repair 3D resizing them sized Zsnap, txCN, hi, lo txClassName ; <> "Repair 3D f"&Yes" "&No" c"No" sysSuspendMessages recessed c"3DFrame" + 15, + 15,\ + 15, "3DField" "3DRect" znothing - 15, - 15,\ - 15, + 15, + 15,\ + 15, -- Slider control begins here -- NOTES ABOUT IDENTIFIERS -- s___ prefix -> handler only c"Thumb" ___setSliderLimits 4s___v, s___min, s___max, s___p down\ prevent updating mouse xmoved "HSliderThumb" loc - ___slidePos( "VSliderThumb" sliderPosition ___snapSlider\ (1 - glide width height p, s1, s2 b(0,(p - s1) /(s2 - s1)) thumb -- Another controlling OldMin OldMax j(1,( b(0,p))) "vSliderThumb" pOffset ) * (1-p) newPos "hSliderThumb" ) * p -- Restore state detentList detents catchRange 0 <> ends -- This initialization usually runs ONCE, unless app calls tbkmmInitializeSystem asure MME loaded X"mmsystem. killtbkmmsbk -- private (exported, but undocumented) tbkmmloadextensions( ) -- The these are standard L entry points tbkmmversion() -- MCI central interface -- parallel MMSYSTEM tbkTimerStart( tbkTimerStop( tbkTimerCapability() -- Utility \ MilliSecFromMSF( \ MilliSecFromHMS( \ MilliSecFromSMPTE( MSFFromMilliSec( HMSFromMilliSec( SMPTEFromMilliSec( -- Translation tbkMMTranslate( <> 0 "TBKMM. link failed" support <> 0 -- End Script .&+ +E tbkmmerrorstring tbkmci tbkMCIchk .&+ +E tbkmmerrorstring tbkBitmap tbkBitmapChk tbkMCI %tbkPositionWindow window handle status tbkMCIPositionWindow tbkCenterWindow tbkMCI window handle status tbkMCICenterWindow tbkBitmap window %tbkPositionWindow status tbkBitmapPositionWindow tbkBitmap tbkCenterWindow window status tbkBitmapCenterWindow tbkMCI tbkGetWindowRect window handle status tbkMCIGetWindowRect tbkBitmap window tbkGetWindowRect status tbkBitmapGetWindowRect tbkMMInitializeSystem s_mminit enterSystem tbkdlg.dll P*readdmm OpenDlg TBKWIN.DLL not found. Some widgets may not work TBKDLG.DLL not found. Some widgets may not work s_mminit tbkwin.dll YieldApp enterbook winhelp.exe tbkmm.hlp multimedia s_mmdevices tbkmmdevices P*readdmm author author Multimedia &Multimedia readdmm checkdevice isNumber ^recessed 3DFrame author 3DField Repair 3D object after resizing? txClassName 3DRect recessed sized "___setSliderLimits false txClassName Thumb buttonDown 1,"!# s___p false s___v HSliderThumb ___slidePos s___max VSliderThumb txClassName s___min buttonStillDown s___v false s___p HSliderThumb ___slidePos s___max VSliderThumb txClassName s___min i0___snapSlider sliderPosition buttonUp s___v HSliderThumb s___max VSliderThumb txClassName s___min glide ___setSliderLimits ___slidePos sliderPosition "___setSliderLimits newPos OldMax hSliderThumb pOffset group SliderThumb s___max OldMin vSliderThumb txClassName s___min thumb sliderPosition sliderPosition detents detentList ___snapSlider TBKMM.DLL link failed tbkmmloadextensions tbkmmversion tbkmmerrorstring ,&Ub5 tbkMCI tbkTimerStart tbkTimerStop tbkTimerCapability MilliSecFromMSF , UN+ MilliSecFromHMS MilliSecFromSMPTE MSFFromMilliSec HMSFromMilliSec SMPTEFromMilliSec tbkMMTranslate tbkGetWindowRect tbkPositionWindow tbkCenterWindow , Uroupg mmsystem.dll killtbkmmsbk P*readdmm tbkmm.dll tbkmmerrorstring s_mmdevices jtbkmmloadextensions tbkmmInitializeSystem s_mminit mmsystem tbkmmInitializeSystem Iitemnum Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work. killtbkmmsbk tbkmm.sbk itemnum Cancel Warning! Altering the script for this system book may cause multimedia applications to break! Proceed author killtbkmmsbk "Microsoft Windows fMultimedia xpresent. No multimedia devices widgets will work." itemnum( I tmplist "Warning! Altering the 8may cause applications f"Proceed" "Cancel" DlgTitle tbkmmversion Multimedia System Book DlgTitle Multimedia System Book author emnum Microsoft Windows with Multimedia is n tering the script for this system book may cause multimedia applications to break! Proceed Cancel Proceed