home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 December / CHIP_CD_1997_12_PL.iso / software / testsoft / historia / tb40mm.sbk (.txt) < prev    next >
Encoding:
Asymetrix ToolBook File  |  1995-11-12  |  33.0 KB  |  494 lines
  1. *ClassTbl*
  2. *ClassEntry*
  3. *PTABLE*
  4. *WINDOWSEG*
  5. Viewer
  6. *ICONRESTAB*
  7. *ICONRESSEG*
  8. *ICONRES*
  9. Background
  10. *OBJTABLE*
  11. *IDTABLE*
  12. *NAMETAB*
  13. Rectangle
  14. Ellipse
  15. RoundedRectangle
  16. Polygon
  17. IrregularPolygon
  18. AngledLine
  19. Curve
  20. Field
  21. RecordField
  22. ComboBox
  23. Button
  24. PaintObject
  25. Picture
  26. Hotword
  27. *RHOTWORD*
  28. Group
  29. Stage
  30. *TbxBase*
  31. Iitemnum
  32. Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work.
  33. killtbkmmsbk
  34. tbkmm.sbk
  35. itemnum
  36. Cancel
  37. Warning! Altering the script for this system book may cause multimedia applications to break!
  38. Proceed
  39. author
  40. killtbkmmsbk
  41. "Microsoft Windows 
  42. fMultimedia 
  43. xpresent. No multimedia devices 
  44. widgets will work."
  45. itemnum( 
  46. I tmplist
  47. "Warning! Altering the 
  48. 8may cause 
  49. applications 
  50. f"Proceed" 
  51. "Cancel"
  52. DlgTitle
  53. Multimedia System BookS
  54. DlgTitle
  55. Multimedia System Book
  56. tbkmmversion
  57. s Rmn
  58. Tms Rmn
  59. Arial
  60.  BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM 
  61. tbkMCIchk cmd,notif,req,brk
  62. ZretVal
  63. sysErrorNumber 
  64. tbkmci(
  65. syserrornumber<>0 
  66. tbkmmerrorstring(
  67. tbkBitmapChk 
  68.         -- When 
  69. ]TBKBMP.DLL standalone, you should 
  70. modify 
  71.         -- function 
  72. use the bitmap 
  73.  reporter
  74. tbkbmperrorstring(
  75. brk<>
  76. --Cover functions 
  77. --These allow authors 
  78. pass 
  79. device alias instead 
  80. tbkMCIPositionWindow devAlias,windowPos,flags
  81. Zhwnd
  82. 9("status" && 
  83. 3 && "
  84. ","")
  85. tbkPositionWindow(
  86. tbkMCICenterWindow 
  87.  && "
  88. ","")
  89. tbkCenterWindow(
  90. tbkBitmapPositionWindow 
  91.  && "
  92. tbkBitmapCenterWindow 
  93.  && "
  94. tbkMCIGetWindowRect 
  95.  && "
  96. ","")
  97. tbkGetWindowRect(
  98. tbkBitmapGetWindowRect 
  99.  && "
  100. 4s_mminit
  101. tbkMMInitializeSystem 
  102.     -- guard against 
  103. 4having been restored!
  104. { <> 
  105. stuff used 
  106. Hwidgets
  107. X"tb40win.dll"
  108. YieldApp()
  109.  <> 0
  110. "TB40WIN.
  111. xfound. Some 
  112. Z may 
  113. xwork"
  114. X"tb40dlg.
  115. OpenDlg(
  116.  <> 0
  117. "TB40DLG.
  118. tbkmmdevices 
  119. 4s_mmdevices
  120. -- stub so some 
  121.  will 
  122.  without ES boxes
  123. checkdevice
  124. -- General utility 
  125. -- Someday, ToolBook 
  126. Shave built-
  127. data type checking    
  128. isNumber x
  129. x + 0
  130. --repair 3D 
  131. resizing them
  132. sized
  133. Zsnap, txCN, hi, lo
  134. txClassName 
  135. K <> 
  136. "Repair 3D 
  137. f"&Yes" 
  138. "&No"
  139. c"No"
  140. sysSuspendMessages 
  141. recessed 
  142. c"3DFrame"
  143. + 15, 
  144. + 15,\
  145. + 15, 
  146. "3DField"
  147. "3DRect"
  148. znothing
  149. - 15, 
  150. - 15,\
  151. - 15, 
  152. + 15, 
  153. + 15,\
  154. + 15, 
  155. -- Slider control 
  156. begins here
  157. -- NOTES ABOUT IDENTIFIERS
  158. -- s___ prefix     ->
  159. handler 
  160. only 
  161. c"Thumb"
  162. ___setSliderLimits 
  163. 4s___v, s___min, s___max, s___p
  164. down\
  165. prevent updating 
  166. mouse 
  167. xmoved
  168. "HSliderThumb"
  169. loc - 
  170. ___slidePos(
  171. "VSliderThumb"
  172. sliderPosition 
  173. ___snapSlider\
  174. (1 - 
  175. glide 
  176. width 
  177. height 
  178.  p, s1, s2
  179. b(0,(p - s1) /(s2 - s1))
  180. thumb 
  181.             -- Another 
  182. controlling 
  183. OldMin 
  184. OldMax 
  185. j(1,(
  186. b(0,p)))
  187. "vSliderThumb"
  188. pOffset 
  189. ) * (1-p)
  190. newPos 
  191. "hSliderThumb"
  192. ) * p
  193.             -- Restore state 
  194. detentList 
  195. detents
  196. catchRange 
  197. 0 <> 
  198. ends 
  199. -- This initialization usually 
  200. runs ONCE, unless 
  201. app calls
  202. tbkmmInitializeSystem 
  203. asure MME 
  204. loaded
  205. X"mmsystem.
  206. killtbkmmsbk 
  207. X"mtb40mm.
  208.         -- 
  209. private (exported, but undocumented)
  210.     tbkmmloadextensions( )
  211.         -- The 
  212. these are 
  213. standard 
  214. J entry points
  215.     tbkmmversion()
  216.         -- MCI central interface
  217.         -- BMP 
  218.  tbkGraphic( 
  219.         -- parallel 
  220. MMSYSTEM
  221.  tbkTimerStart( 
  222.     tbkTimerStop( 
  223.  tbkTimerCapability()
  224.         -- Utility 
  225. \    MilliSecFromMSF( 
  226. \    MilliSecFromHMS( 
  227. \    MilliSecFromSMPTE( 
  228.     MSFFromMilliSec( 
  229.     HMSFromMilliSec( 
  230.     SMPTEFromMilliSec( 
  231. -- Translation 
  232.         tbkMMTranslate( 
  233. -- Mixer 
  234.     tbkMMMixer( 
  235.  <> 0
  236. "MTB40MM.
  237. link failed"
  238. support
  239.  <> 0 
  240. -- End 
  241. Script
  242. 0v#n#n#
  243. .'+    +F
  244. tbkmmerrorstring
  245. tbkmci
  246. tbkMCIchk
  247. .'+    +F
  248. tbkmmerrorstring
  249. tbkBitmap
  250. tbkBitmapChk
  251. tbkMCI
  252. %tbkPositionWindow
  253. window handle
  254. status
  255. tbkMCIPositionWindow
  256. tbkCenterWindow
  257. tbkMCI
  258. window handle
  259. status
  260. tbkMCICenterWindow
  261. tbkBitmap
  262. window
  263. %tbkPositionWindow
  264. status
  265. tbkBitmapPositionWindow
  266. tbkBitmap
  267. tbkCenterWindow
  268. window
  269. status
  270. tbkBitmapCenterWindow
  271. tbkMCI
  272. tbkGetWindowRect
  273. window handle
  274. status
  275. tbkMCIGetWindowRect
  276. tbkBitmap
  277. window
  278. tbkGetWindowRect
  279. status
  280. tbkBitmapGetWindowRect
  281. tbkMMInitializeSystem
  282. s_mminit
  283. enterSystem
  284. YieldApp
  285. tb40dlg.dll
  286. TB40WIN.DLL not found. Some widgets may not work
  287. OpenDlg
  288. TB40DLG.DLL not found. Some widgets may not work
  289. tb40win.dll
  290. tbkMMInitializeSystem
  291. s_mminit
  292. enterbook
  293. s_mmdevices
  294. tbkmmdevices
  295. checkdevice
  296. isNumber
  297. ^recessed
  298. 3DFrame
  299. author
  300. 3DField
  301. Repair 3D object after resizing?
  302. txClassName
  303. 3DRect
  304. recessed
  305. sized
  306.  "___setSliderLimits
  307. false
  308. txClassName
  309. Thumb
  310. buttonDown
  311. 1,#!#
  312. s___p
  313. false
  314. s___v
  315. HSliderThumb
  316. ___slidePos
  317. s___max
  318. VSliderThumb
  319. txClassName
  320. s___min
  321. buttonStillDown
  322. s___v
  323. false
  324. s___p
  325. HSliderThumb
  326. ___slidePos
  327. s___max
  328. VSliderThumb
  329. txClassName
  330. s___min
  331. i0___snapSlider
  332. sliderPosition
  333. buttonUp
  334. s___v
  335. HSliderThumb
  336. s___max
  337. VSliderThumb
  338. txClassName
  339. s___min
  340. glide
  341. ___setSliderLimits
  342. ___slidePos
  343. sliderPosition
  344.  "___setSliderLimits
  345. newPos
  346. OldMax
  347. hSliderThumb
  348. pOffset
  349. group
  350. SliderThumb
  351. s___max
  352. OldMin
  353. vSliderThumb
  354. txClassName
  355. s___min
  356. thumb
  357. sliderPosition
  358. sliderPosition
  359. detents
  360. detentList
  361. ___snapSlider
  362. MTB40MM.DLL link failed
  363. mmsystem.dll
  364. killtbkmmsbk
  365. mtb40mm.dll
  366. tbkmmerrorstring
  367. s_mmdevices
  368. tbkmmloadextensions
  369. tbkmmversion
  370. tbkmmerrorstring
  371. tbkMCI
  372. tbkGraphic
  373. tbkTimerStart
  374. tbkTimerStop
  375. ,$Ug;
  376. tbkTimerCapability
  377. MilliSecFromMSF
  378. MilliSecFromHMS
  379. MilliSecFromSMPTE
  380. MSFFromMilliSec
  381. HMSFromMilliSec
  382. SMPTEFromMilliSec
  383. tbkMMTranslate
  384. tbkGetWindowRect
  385. tbkPositionWindow
  386. tbkCenterWindow
  387. tbkMMMixer
  388. ,    U__mig    
  389. jtbkmmloadextensions
  390. tbkmmInitializeSystem
  391. s_mminit
  392. mmsystem
  393. tbkmmInitializeSystem
  394. CDBSE&File
  395. &Open...    Ctrl+O
  396. &Save    Ctrl+S
  397. Save &As...
  398. saveas
  399. &Import...
  400. import
  401. &Export...
  402. export
  403. Print Set&up...
  404. printsetup
  405. &Print Pages...    Ctrl+P
  406. printpages
  407. Prin&t Report...
  408. printreport
  409. Send &Mail...
  410. sendmail
  411. &Run...
  412. E&xit    Alt+F4
  413. &Edit
  414. &Undo    Ctrl+Z
  415. Cu&t    Ctrl+X
  416. &Copy    Ctrl+C
  417. &Paste    Ctrl+V
  418. paste
  419. C&lear    Del
  420. clear
  421. Select &All    Shift+F9
  422. selectall
  423. Select Pa&ge    Shift+F12
  424. selectpage
  425. &Size to Page    F11
  426. sizetopage
  427. F&ind...    F5
  428. Re&place...
  429. replace
  430. Aut&hor    F3
  431. author
  432. &Text
  433. &Character...    F6
  434. character
  435. &Paragraph...    F7
  436. paragraph
  437. &Regular    Ctrl+Space
  438. regular
  439. &Bold    Ctrl+B
  440. &Italic    Ctrl+I
  441. italic
  442. &Underline    Ctrl+U
  443. underline
  444. Stri&keout    Ctrl+K
  445. strikeout
  446. Superscrip&t/Subscript
  447. superscriptSubscript
  448. &Normal Script
  449. normalscript
  450. Su&bscript    Ctrl+L
  451. subscript
  452. Su&perscript    Ctrl+Shift+L
  453. superscript
  454. &Show Hotwords    F9
  455. showhotwords
  456. &Page
  457. &Next    Alt+Right
  458. &Previous    Alt+Left
  459. previous
  460. &First    Alt+Up
  461. first
  462. &Last    Alt+Down
  463. &Back    Shift+F2
  464. &History...    Ctrl+F2
  465. history
  466. N&ew Page    Ctrl+N
  467. newpage
  468. &Help
  469. &Contents    F1
  470. contents
  471. Status &Bar    F12
  472. statusbar
  473.  are 
  474. standard 
  475. J entry points
  476.     tbkmmversion()
  477.         -- MCI central interface
  478.         -- BMP 
  479.  tbkGraphic( 
  480.         -- parallel 
  481. MMSYSTEM
  482.  tbkTimerStart( 
  483.     tbkTimerStop( 
  484.  tbkTimerCapability()
  485.         -- Utility 
  486. \    MilliSecFromMSF( 
  487. \    MilliSecFromHMS( 
  488. \    MilliSecFromSMPTE( 
  489.     MSFFromMilliSec( 
  490.     HMSFromMilliSec( 
  491.     SMPTEFromMilliSec( 
  492. -- Translation 
  493.         tbkMMTranslate( 
  494.