home *** CD-ROM | disk | FTP | other *** search
/ Welcome to Africa / Welcome_to_Africa_CD-ROM_Walnut_Creek_September_1994.iso / tbkmm.sbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1992-01-31  |  22KB  |  335 lines
  1. Tms Rmn
  2. Tms Rmn
  3. \D|D|
  4. O\D|D|%
  5.  BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM 
  6. tbkMCIchk cmd,notif,req,brk
  7. ZretVal
  8. sysErrorNumber 
  9. tbkmci(
  10. syserrornumber<>0 
  11. tbkmmerrorstring(
  12. tbkBitmapChk 
  13.         -- When 
  14. ]TBKBMP.DLL standalone, you should 
  15. modify 
  16.         -- function 
  17. use the bitmap 
  18.  reporter
  19. tbkbmperrorstring(
  20. brk<>
  21. 4s_mminit
  22. tbkMMInitializeSystem 
  23.     -- guard against 
  24. 4having been restored!
  25. { <> 
  26. stuff used 
  27. Hwidgets
  28. X"tbkwin.dll"
  29. YieldApp()
  30.  <> 0
  31. "TBKWIN.
  32. xfound. Some 
  33. X may 
  34. xwork"
  35. X"tbkdlg.
  36. OpenDlg(
  37.  <> 0
  38. "TBKDLG.
  39. readdmm
  40. multimedia
  41. "winhelp.exe 
  42. .hlp"
  43. tbkmmdevices 
  44. 4s_mmdevices
  45. f("Multimedia") 
  46. c"Help" 
  47. -- stub so some 
  48.  will 
  49.  without ES boxes
  50. checkdevice
  51. -- General utility functions
  52. -- Someday, ToolBook 
  53. Zhave built-
  54. data type checking    
  55. isNumber x
  56. x + 0
  57. --repair 3D 
  58. resizing them
  59. sized
  60. Zsnap, txCN, hi, lo
  61. txClassName 
  62. ; <> 
  63. "Repair 3D 
  64. f"&Yes" 
  65. "&No"
  66. c"No"
  67. sysSuspendMessages 
  68. recessed 
  69. c"3DFrame"
  70. + 15, 
  71. + 15,\
  72. + 15, 
  73. "3DField"
  74. "3DRect"
  75. znothing
  76. - 15, 
  77. - 15,\
  78. - 15, 
  79. + 15, 
  80. + 15,\
  81. + 15, 
  82. -- Slider control 
  83. begins here
  84. -- NOTES ABOUT IDENTIFIERS
  85. -- s___ prefix     ->
  86. handler 
  87. only 
  88. c"Thumb"
  89. ___setSliderLimits 
  90. 4s___v, s___min, s___max, s___p
  91. down\
  92.  -- flag 
  93. prevent updating 
  94. mouse 
  95. xmoved
  96. "HSliderThumb"
  97. loc - 
  98. ___slidePos(
  99. "VSliderThumb"
  100. sliderPosition 
  101. ___snapSlider\
  102. (1 - 
  103. glide 
  104. width 
  105. height 
  106.  p, s1, s2
  107. b(0,(p - s1) /(s2 - s1))
  108. thumb 
  109.             -- Another 
  110. controlling 
  111. OldMin 
  112. OldMax 
  113. j(1,(
  114. b(0,p)))
  115. "vSliderThumb"
  116. pOffset 
  117. ) * (1-p)
  118. newPos 
  119. "hSliderThumb"
  120. ) * p
  121.             -- Restore state 
  122. detentList 
  123. detents
  124. catchRange 
  125. 0 <> 
  126. ends 
  127. -- This initialization usually 
  128. runs ONCE, unless 
  129. app calls
  130. tbkmmInitializeSystem 
  131. asure MME 
  132. loaded
  133. X"mmsystem.
  134. killtbkmmsbk 
  135.         -- 
  136. private (exported, but undocumented)
  137.     tbkmmloadextensions( )
  138.         -- The 
  139. these are 
  140. standard 
  141. L entry points
  142.     tbkmmversion()
  143.         -- MCI central interface
  144.         -- parallel 
  145. MMSYSTEM
  146.  tbkTimerStart( 
  147.     tbkTimerStop( 
  148.  tbkTimerCapability()
  149.         -- Utility 
  150. \    MilliSecFromMSF( 
  151. \    MilliSecFromHMS( 
  152. \    MilliSecFromSMPTE( 
  153.     MSFFromMilliSec( 
  154.     HMSFromMilliSec( 
  155.     SMPTEFromMilliSec( 
  156.  <> 0
  157. "TBKMM.
  158. link failed"
  159. extended 
  160.  support
  161.  <> 0 
  162. -- End 
  163. Script
  164. addmm
  165. enterbook
  166. checkdevice
  167. multimedia
  168. sized
  169. buttonDown
  170. enterSystem
  171. buttonStillDown
  172. buttonUp
  173. author
  174. ___setSliderLimits
  175. readdmm
  176. tbkmmInitializeSystem
  177. MCIchk
  178. tbkmmdevices
  179. isNumber
  180. tbkBitmapChk
  181. ___slidePos
  182. sliderPosition
  183. tbkMCIchk
  184. ___snapSlider
  185. sliderPosition
  186. tbkMCIchk
  187. tbkmci
  188. tbkmmerrorstring
  189. retVal
  190. notif
  191. tbkBitmapChk
  192. tbkBitmap
  193. tbkmmerrorstring
  194. retVal
  195. enterSystem
  196. tbkMMInitializeSystem
  197. s_mminit
  198. enterbook
  199. enterSystem
  200. tbkwin.dll
  201. YieldApp
  202. TBKWIN.DLL not found. Some widgets may not work
  203. tbkdlg.dll
  204. OpenDlg
  205.                     
  206. TBKDLG.DLL not found. Some widgets may not work
  207. P*readdmm
  208. s_mminit
  209. multimedia
  210. winhelp.exe tbkmm.hlp
  211. tbkmmdevices
  212. s_mmdevices
  213. author
  214. P*readdmm
  215. readdmm
  216. Multimedia
  217. &Multimedia
  218. checkdevice
  219. isNumber
  220. sized
  221. txClassName
  222. Repair 3D object after resizing?
  223. recessed
  224. recessed
  225. 3DFrame
  226. 3DField
  227. 3DRect
  228. recessed
  229. buttonDown
  230. txClassName
  231. Thumb
  232. o "___setSliderLimits
  233. buttonStillDown
  234. txClassName
  235. HSliderThumb
  236. ___slidePos
  237. VSliderThumb
  238. ___slidePos
  239. s___v
  240. s___min
  241. s___max
  242. s___p
  243. buttonUp
  244. txClassName
  245. HSliderThumb
  246. sliderPosition
  247. ___slidePos
  248. ___snapSlider
  249. VSliderThumb
  250. sliderPosition
  251. ___slidePos
  252. ___snapSlider
  253. s___v
  254. s___min
  255. s___max
  256. s___p
  257. ___setSliderLimits
  258. txClassName
  259. HSliderThumb
  260. txClassName
  261. VSliderThumb
  262. height
  263. width
  264. glide
  265. s___v
  266. s___min
  267. s___max
  268. ___slidePos
  269. sliderPosition
  270. sliderPosition
  271. group
  272. txClassName
  273. SliderThumb
  274. o "___setSliderLimits
  275. vSliderThumb
  276. hSliderThumb
  277. newPos
  278. pOffset
  279. OldMax
  280. OldMin
  281. thumb
  282. s___min
  283. s___max
  284. ___snapSlider
  285. detentList
  286. catchRange
  287. detents
  288. thumb
  289. tbkmmInitializeSystem
  290. mmsystem.dll
  291. mmsystem
  292. killtbkmmsbk
  293. tbkmm.dll
  294. tbkmmloadextensions
  295. tbkmmversion
  296. tbkmmerrorstring
  297. tbkMCI
  298. tbkTimerStart
  299. tbkTimerStop
  300. tbkTimerCapability
  301. MilliSecFromMSF
  302. MilliSecFromHMS
  303. MilliSecFromSMPTE
  304. MSFFromMilliSec
  305. HMSFromMilliSec
  306. SMPTEFromMilliSec
  307. TBKMM.DLL link failed
  308. P*readdmm
  309. tbkmmloadextensions
  310. tbkmmerrorstring
  311. s_mminit
  312. s_mmdevices
  313. tbkmmversion
  314. DlgTitle
  315. Multimedia System Book
  316. DlgTitle
  317. Multimedia System Book
  318. author
  319. killtbkmmsbk
  320. "Microsoft Windows 
  321. fMultimedia 
  322. xpresent. No multimedia devices 
  323. widgets will work."
  324. itemnum( 
  325. I tmplist
  326. killtbkmmsbk
  327. itemnum
  328. killtbkmmsbk
  329. Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work.
  330. itemnum
  331. itemnum
  332. itemnum
  333. tbkmm.sbk
  334. tmplist
  335.