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