CD-ROM Today (UK) (Spanish) 15

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

/ CD-ROM Today (UK) (Spanish) 15 / CDRT.iso / dlls / tbkmm.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1994-01-18 | 21.2 KB | 335 lines

Tms Rmn Tms Rmn \D|D| O\D|D|% 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<> 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 functions -- Someday, ToolBook Zhave 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\ -- flag 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( <> 0 "TBKMM. link failed" extended support <> 0 -- End Script addmm enterbook checkdevice multimedia sized buttonDown enterSystem buttonStillDown buttonUp author ___setSliderLimits readdmm tbkmmInitializeSystem MCIchk tbkmmdevices isNumber tbkBitmapChk ___slidePos sliderPosition tbkMCIchk ___snapSlider sliderPosition tbkMCIchk tbkmci tbkmmerrorstring retVal notif tbkBitmapChk tbkBitmap tbkmmerrorstring retVal enterSystem tbkMMInitializeSystem s_mminit enterbook enterSystem tbkwin.dll YieldApp TBKWIN.DLL not found. Some widgets may not work tbkdlg.dll OpenDlg TBKDLG.DLL not found. Some widgets may not work P*readdmm s_mminit multimedia winhelp.exe tbkmm.hlp tbkmmdevices s_mmdevices author P*readdmm readdmm Multimedia &Multimedia checkdevice isNumber sized txClassName Repair 3D object after resizing? recessed recessed 3DFrame 3DField 3DRect recessed buttonDown txClassName Thumb o "___setSliderLimits buttonStillDown txClassName HSliderThumb ___slidePos VSliderThumb ___slidePos s___v s___min s___max s___p buttonUp txClassName HSliderThumb sliderPosition ___slidePos ___snapSlider VSliderThumb sliderPosition ___slidePos ___snapSlider s___v s___min s___max s___p ___setSliderLimits txClassName HSliderThumb txClassName VSliderThumb height width glide s___v s___min s___max ___slidePos sliderPosition sliderPosition group txClassName SliderThumb o "___setSliderLimits vSliderThumb hSliderThumb newPos pOffset OldMax OldMin thumb s___min s___max ___snapSlider detentList catchRange detents thumb tbkmmInitializeSystem mmsystem.dll mmsystem killtbkmmsbk tbkmm.dll tbkmmloadextensions tbkmmversion tbkmmerrorstring tbkMCI tbkTimerStart tbkTimerStop tbkTimerCapability MilliSecFromMSF MilliSecFromHMS MilliSecFromSMPTE MSFFromMilliSec HMSFromMilliSec SMPTEFromMilliSec TBKMM.DLL link failed P*readdmm tbkmmloadextensions tbkmmerrorstring s_mminit s_mmdevices tbkmmversion DlgTitle Multimedia System Book DlgTitle Multimedia System Book author killtbkmmsbk "Microsoft Windows fMultimedia xpresent. No multimedia devices widgets will work." itemnum( I tmplist killtbkmmsbk itemnum killtbkmmsbk Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work. itemnum itemnum itemnum tbkmm.sbk tmplist