home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / multimed / tbkmm.sbk (.txt) < prev    next >
Encoding:
Asymetrix ToolBook File  |  1993-09-27  |  51.0 KB  |  1,328 lines
  1. Tms Rmn
  2. Tms Rmn
  3. \D|D|
  4. System
  5. JpISimPjmIeAEos
  6.  BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM 
  7. ---This 
  8. ADI version2 
  9. tbkmm.sbk that normally accompanies mmrk.
  10. ---The functionalty 
  11. the same except 
  12. includes funtions necessary
  13. VidControl 
  14. %well.
  15. ADIsysBook
  16. "ADI_present"
  17. tbkMCIchk cmd,notif,req,brk
  18. ZretVal
  19. sysErrorNumber 
  20. tbkmci(
  21. syserrornumber<>0 
  22. tbkmmerrorstring(
  23. tbkBitmapChk 
  24.         -- When 
  25. ]TBKBMP.DLL standalone, you should 
  26. modify 
  27.         -- 
  28. bitmap 
  29.  reporter
  30. tbkbmperrorstring(
  31. brk<>
  32. --Cover functions 
  33. --These allow authors 
  34. pass 
  35. device alias instead 
  36. tbkMCIPositionWindow devAlias,windowPos,flags
  37. Zhwnd
  38. 9("status" && 
  39. 3 && "
  40. ","")
  41. tbkPositionWindow(
  42. tbkMCICenterWindow 
  43.  && "
  44. ","")
  45. tbkCenterWindow(
  46. tbkBitmapPositionWindow 
  47.  && "
  48. tbkBitmapCenterWindow 
  49.  && "
  50. tbkMCIGetWindowRect 
  51.  && "
  52. ","")
  53. tbkGetWindowRect(
  54. tbkBitmapGetWindowRect 
  55.  && "
  56. 4s_mminit
  57. tbkMMInitializeSystem 
  58.     -- guard against 
  59. 4having been restored!
  60. { <> 
  61. tuff used 
  62. Hwidgets
  63. Xuser
  64. MoveWindow(WORD,
  65. GetParent(
  66. SetParent(
  67.  <> 0
  68. "User.exe 
  69. xfound. Some 
  70.  may 
  71. xwork"
  72.     linkDLL "TBKFILE.
  73.         LONG getFileSize(STRING)
  74. getCurrentDirectory(
  75. getCurrentDrive()
  76. etbkwin.dll"
  77.         INT yieldapp()
  78. xPixelsFromUnits (
  79.  screenFromPage (
  80.  clientFromPage (
  81.  <> 0
  82. "TBKWIN.
  83. X"tbkdlg.
  84. OpenDlg(
  85.  <> 0
  86. "TBKDLG.
  87. readdmm
  88. multimedia
  89. "winhelp.
  90. tbkmmdevices 
  91. 4s_mmdevices
  92. f("Multimedia") 
  93. c"Help" 
  94. -- stub so some 
  95.  will 
  96.  without ES boxes
  97. checkdevice
  98. -- General utility 
  99. -- Someday, ToolBook 
  100. Thave built-
  101. data type checking    
  102. isNumber x
  103. x + 0
  104. --repair 3D 
  105. resizing them
  106. sized
  107. Zsnap, txCN, hi, lo
  108. txClassName 
  109. ; <> 
  110. "Repair 3D 
  111. f"&Yes" 
  112. "&No"
  113. c"No"
  114. sysSuspendMessages 
  115. recessed 
  116. c"3DFrame"
  117. + 15, 
  118. + 15,\
  119. + 15, 
  120. "3DField"
  121. "3DRect"
  122. znothing
  123. - 15, 
  124. - 15,\
  125. - 15, 
  126. + 15, 
  127. + 15,\
  128. + 15, 
  129. -- Slider control 
  130. begins here
  131. -- NOTES ABOUT IDENTIFIERS
  132. -- s___ prefix     ->
  133. handler 
  134. only 
  135. c"Thumb"
  136. ___setSliderLimits 
  137. 4s___v, s___min, s___max, s___p
  138. down\
  139. prevent updating 
  140. mouse 
  141. xmoved
  142. "HSliderThumb"
  143. loc - 
  144. ___slidePos(
  145. "VSliderThumb"
  146. sliderPosition 
  147. ___snapSlider\
  148. (1 - 
  149. glide 
  150. width 
  151. height 
  152.  p, s1, s2
  153. b(0,(p - s1) /(s2 - s1))
  154. thumb 
  155.             -- Another 
  156. controlling 
  157. OldMin 
  158. OldMax 
  159. j(1,(
  160. b(0,p)))
  161. "vSliderThumb"
  162. pOffset 
  163. ) * (1-p)
  164. newPos 
  165. "hSliderThumb"
  166. ) * p
  167.             -- Restore state 
  168. detentList 
  169. detents
  170. catchRange 
  171. 0 <> 
  172. ends 
  173. initialization usually 
  174. runs ONCE, unless 
  175. app calls
  176. tbkmmInitializeSystem 
  177. asure MME 
  178. loaded
  179. X"mmsystem.
  180. killtbkmmsbk 
  181.         -- 
  182. private (exported, but undocumented)
  183.     tbkmmloadextensions( )
  184.         -- 
  185. these are 
  186. tandard 
  187. J entry points
  188.     tbkmmversion()
  189.         -- MCI central interface
  190.         -- parallel 
  191. MMSYSTEM
  192.  tbkTimerStart( 
  193.     tbkTimerStop( 
  194.  tbkTimerCapability()
  195.         -- Utility 
  196. \    MilliSecFromMSF( 
  197. \    MilliSecFromHMS( 
  198. \    MilliSecFromSMPTE( 
  199.     MSFFromMilliSec( 
  200.     HMSFromMilliSec( 
  201.     SMPTEFromMilliSec( 
  202. -- Translation 
  203.         tbkMMTranslate( 
  204.  <> 0
  205. "TBKMM.
  206. Einbindung fehlgeschlagen!"
  207. extended 
  208. support
  209.  <> 0 
  210. -- End 
  211. Script
  212. addmm
  213. enterbook
  214. checkdevice
  215. multimedia
  216. sized
  217. buttonDown
  218. enterSystem
  219. buttonStillDown
  220. buttonUp
  221. author
  222. ___setSliderLimits
  223. readdmm
  224. tbkmmInitializeSystem
  225. bkMCIchk
  226. tbkMCICenterWindow
  227. tbkBitmapPositionWindow
  228. ADIsysBook
  229. tbkBitmapCenterWindow
  230. tbkMCIGetWindowRect
  231. tbkBitmapChk
  232. tbkBitmapGetWindowRect
  233. tbkmmdevices
  234. tbkMCIPositionWindow
  235. isNumber
  236. ___slidePos
  237. sliderPosition
  238. tbkMCIchk
  239. ___snapSlider
  240. sliderPosition
  241. ADIsysBook
  242. ADI_present
  243. tbkMCIchk
  244. tbkmci
  245. tbkmmerrorstring
  246. retVal
  247. notif
  248. tbkBitmapChk
  249. tbkBitmap
  250. tbkmmerrorstring
  251. retVal
  252. tbkMCIPositionWindow
  253. status
  254. window handle
  255. tbkMCI
  256. tbkPositionWindow
  257. flags
  258. windowPos
  259. devAlias
  260. tbkMCICenterWindow
  261. status
  262. window handle
  263. tbkMCI
  264. tbkCenterWindow
  265. flags
  266. windowPos
  267. devAlias
  268. tbkBitmapPositionWindow
  269. status
  270. window
  271. tbkBitmap
  272. tbkPositionWindow
  273. flags
  274. windowPos
  275. devAlias
  276. tbkBitmapCenterWindow
  277. status
  278. window
  279. tbkBitmap
  280. tbkCenterWindow
  281. flags
  282. windowPos
  283. devAlias
  284. tbkMCIGetWindowRect
  285. status
  286. window handle
  287. tbkMCI
  288. tbkGetWindowRect
  289. flags
  290. devAlias
  291. tbkBitmapGetWindowRect
  292. status
  293. window
  294. tbkBitmap
  295. tbkGetWindowRect
  296. flags
  297. devAlias
  298. enterSystem
  299. tbkMMInitializeSystem
  300. s_mminit
  301. enterbook
  302. enterSystem
  303. MoveWindow
  304. GetParent
  305. SetParent
  306. User.exe not found. Some widgets may not work
  307. TBKFILE.DLL
  308. getFileSize
  309. getCurrentDirectory
  310. getCurrentDrive
  311. tbkwin.dll
  312. yieldapp
  313. xPixelsFromUnits
  314. yPixelsFromUnits
  315. screenFromPage
  316. clientFromPage
  317. TBKWIN.DLL not found. Some widgets may not work
  318. tbkdlg.dll
  319. OpenDlg
  320.                     
  321. TBKDLG.DLL not found. Some widgets may not work
  322. P*readdmm
  323. s_mminit
  324. multimedia
  325. winhelp.exe tbkmm.hlp
  326. tbkmmdevices
  327. s_mmdevices
  328. author
  329. P*readdmm
  330. readdmm
  331. Multimedia
  332. &Multimedia
  333. checkdevice
  334. isNumber
  335. sized
  336. txClassName
  337. Repair 3D object after resizing?
  338. recessed
  339. recessed
  340. 3DFrame
  341. 3DField
  342. 3DRect
  343. recessed
  344. buttonDown
  345. txClassName
  346. Thumb
  347. o "___setSliderLimits
  348. buttonStillDown
  349. txClassName
  350. HSliderThumb
  351. ___slidePos
  352. VSliderThumb
  353. ___slidePos
  354. s___v
  355. s___min
  356. s___max
  357. s___p
  358. buttonUp
  359. txClassName
  360. HSliderThumb
  361. sliderPosition
  362. ___slidePos
  363. ___snapSlider
  364. VSliderThumb
  365. sliderPosition
  366. ___slidePos
  367. ___snapSlider
  368. s___v
  369. s___min
  370. s___max
  371. s___p
  372. ___setSliderLimits
  373. txClassName
  374. HSliderThumb
  375. txClassName
  376. VSliderThumb
  377. height
  378. width
  379. glide
  380. s___v
  381. s___min
  382. s___max
  383. ___slidePos
  384. sliderPosition
  385. sliderPosition
  386. group
  387. txClassName
  388. SliderThumb
  389. o "___setSliderLimits
  390. vSliderThumb
  391. hSliderThumb
  392. newPos
  393. pOffset
  394. OldMax
  395. OldMin
  396. thumb
  397. s___min
  398. s___max
  399. ___snapSlider
  400. detentList
  401. catchRange
  402. detents
  403. thumb
  404. tbkmmInitializeSystem
  405. mmsystem.dll
  406. mmsystem
  407. killtbkmmsbk
  408. tbkmm.dll
  409. tbkmmloadextensions
  410. tbkmmversion
  411. tbkmmerrorstring
  412. tbkMCI
  413. tbkTimerStart
  414. tbkTimerStop
  415. tbkTimerCapability
  416. MilliSecFromMSF
  417. MilliSecFromHMS
  418. MilliSecFromSMPTE
  419. MSFFromMilliSec
  420. HMSFromMilliSec
  421. SMPTEFromMilliSec
  422. tbkMMTranslate
  423. tbkGetWindowRect
  424. tbkPositionWindow
  425. tbkCenterWindow
  426. TBKMM.DLL Einbindung fehlgeschlagen!
  427. P*readdmm
  428. tbkmmloadextensions
  429. tbkmmerrorstring
  430. s_mminit
  431. s_mmdevices
  432. killtbkmmsbk
  433. "Microsoft Windows 
  434. fMultimedia 
  435. xpresent. No multimedia devices 
  436. widgets will work."
  437. itemnum( 
  438. I tmplist
  439. "Warning! Altering the 
  440. 8may cause 
  441. applications 
  442. f"Proceed" 
  443. "Cancel"
  444. kmmsbk
  445. killtbkmmsbk
  446. author
  447. itemnum
  448. killtbkmmsbk
  449. Microsoft Windows with Multimedia is not present. No multimedia devices or widgets will work.
  450. itemnum
  451. itemnum
  452. itemnum
  453. tbkmm.sbk
  454. tmplist
  455. author
  456. Warning! Altering the script for this system book may cause multimedia applications to break!
  457. Proceed
  458. Cancel
  459. Proceed
  460. tbkmmversion
  461. DlgTitle
  462. Multimedia System Book
  463. DlgTitle
  464. Multimedia System Book
  465. author
  466. Dieses Systembuch enth
  467. lt zusatzliche Befehle f
  468. r das Programm VidControl von ADI..
  469. Version 2
  470.  BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM 
  471. ---This 
  472. ADI version2 
  473. tbkmm.sbk that normally accompanies mmrk.
  474. ---The functionalty 
  475. the same except 
  476. includes funtions necessary
  477. VidControl 
  478. %well.
  479. ADIsysBook
  480. "ADI_present"
  481. tbkMCIchk cmd,notif,req,brk
  482. ZretVal
  483. sysErrorNumber 
  484. tbkmci(
  485. syserrornumber<>0 
  486. tbkmmerrorstring(
  487. tbkBitmapChk 
  488.         -- When 
  489. ]TBKBMP.DLL standalone, you should 
  490. modify 
  491.         -- 
  492. bitmap 
  493.  reporter
  494. tbkbmperrorstring(
  495. brk<>
  496. --Cover functions 
  497. --These allow authors 
  498. pass 
  499. device alias instead 
  500. tbkMCIPositionWindow devAlias,windowPos,flags
  501. Zhwnd
  502. 9("status" && 
  503. 3 && "
  504. ","")
  505. tbkPositionWindow(
  506. tbkMCICenterWindow 
  507.  && "
  508. ","")
  509. tbkCenterWindow(
  510. tbkBitmapPositionWindow 
  511.  && "
  512. tbkBitmapCenterWindow 
  513.  && "
  514. tbkMCIGetWindowRect 
  515.  && "
  516. ","")
  517. tbkGetWindowRect(
  518. tbkBitmapGetWindowRect 
  519.  && "
  520. 4s_mminit
  521. tbkMMInitializeSystem 
  522.     -- guard against 
  523. 4having been restored!
  524. { <> 
  525. tuff used 
  526. Hwidgets
  527. Xuser
  528. MoveWindow(WORD,
  529. GetParent(
  530. SetParent(
  531.  <> 0
  532. "User.exe 
  533. xfound. Some 
  534.  may 
  535. xwork"
  536.     linkDLL "TBKFILE.
  537.         LONG getFileSize(STRING)
  538. getCurrentDirectory(
  539. getCurrentDrive()
  540. etbkwin.dll"
  541.         INT yieldapp()
  542. xPixelsFromUnits (
  543.  screenFromPage (
  544.  clientFromPage (
  545.  <> 0
  546. "TBKWIN.
  547. "Initialisierung"
  548. X"tbkdlg.
  549. OpenDlg(
  550.  <> 0
  551. "TBKDLG.
  552. readdmm
  553. multimedia
  554. "winhelp.
  555. tbkmmdevices 
  556. 4s_mmdevices
  557. f("Multimedia") 
  558. c"Help" 
  559. -- stub so some 
  560.  will 
  561.  without ES boxes
  562. checkdevice
  563. -- General utility 
  564. -- Someday, ToolBook 
  565. Thave built-
  566. data type checking    
  567. isNumber x
  568. x + 0
  569. --repair 3D 
  570. resizing them
  571. sized
  572. Zsnap, txCN, hi, lo
  573. txClassName 
  574. ; <> 
  575. "Repair 3D 
  576. f"&Yes" 
  577. "&No"
  578. c"No"
  579. sysSuspendMessages 
  580. recessed 
  581. c"3DFrame"
  582. + 15, 
  583. + 15,\
  584. + 15, 
  585. "3DField"
  586. "3DRect"
  587. znothing
  588. - 15, 
  589. - 15,\
  590. - 15, 
  591. + 15, 
  592. + 15,\
  593. + 15, 
  594. -- Slider control 
  595. begins here
  596. -- NOTES ABOUT IDENTIFIERS
  597. -- s___ prefix     ->
  598. handler 
  599. only 
  600. c"Thumb"
  601. ___setSliderLimits 
  602. 4s___v, s___min, s___max, s___p
  603. down\
  604. prevent updating 
  605. mouse 
  606. xmoved
  607. "HSliderThumb"
  608. loc - 
  609. ___slidePos(
  610. "VSliderThumb"
  611. sliderPosition 
  612. ___snapSlider\
  613. (1 - 
  614. glide 
  615. width 
  616. height 
  617.  p, s1, s2
  618. b(0,(p - s1) /(s2 - s1))
  619. thumb 
  620.             -- Another 
  621. controlling 
  622. OldMin 
  623. OldMax 
  624. j(1,(
  625. b(0,p)))
  626. "vSliderThumb"
  627. pOffset 
  628. ) * (1-p)
  629. newPos 
  630. "hSliderThumb"
  631. ) * p
  632.             -- Restore state 
  633. detentList 
  634. detents
  635. catchRange 
  636. 0 <> 
  637. ends 
  638. initialization usually 
  639. runs ONCE, unless 
  640. app calls
  641. tbkmmInitializeSystem 
  642. asure MME 
  643. loaded
  644. X"mmsystem.
  645. killtbkmmsbk 
  646.         -- 
  647. private (exported, but undocumented)
  648.     tbkmmloadextensions( )
  649.         -- 
  650. these are 
  651. tandard 
  652. J entry points
  653.     tbkmmversion()
  654.         -- MCI central interface
  655.         -- parallel 
  656. MMSYSTEM
  657.  tbkTimerStart( 
  658.     tbkTimerStop( 
  659.  tbkTimerCapability()
  660.         -- Utility 
  661. \    MilliSecFromMSF( 
  662. \    MilliSecFromHMS( 
  663. \    MilliSecFromSMPTE( 
  664.     MSFFromMilliSec( 
  665.     HMSFromMilliSec( 
  666.     SMPTEFromMilliSec( 
  667. -- Translation 
  668.         tbkMMTranslate( 
  669.  <> 0
  670. "TBKMM.
  671. Einbindung fehlgeschlagen!"
  672. extended 
  673. support
  674.  <> 0 
  675. -- End 
  676. Script
  677. addmm
  678. enterbook
  679. checkdevice
  680. multimedia
  681. sized
  682. buttonDown
  683. enterSystem
  684. buttonStillDown
  685. buttonUp
  686. author
  687. ___setSliderLimits
  688. readdmm
  689. tbkmmInitializeSystem
  690. bkMCIchk
  691. tbkMCICenterWindow
  692. tbkBitmapPositionWindow
  693. ADIsysBook
  694. tbkBitmapCenterWindow
  695. tbkMCIGetWindowRect
  696. tbkBitmapChk
  697. tbkBitmapGetWindowRect
  698. tbkmmdevices
  699. tbkMCIPositionWindow
  700. isNumber
  701. ___slidePos
  702. sliderPosition
  703. tbkMCIchk
  704. ___snapSlider
  705. sliderPosition
  706. ADIsysBook
  707. ADI_present
  708. tbkMCIchk
  709. tbkmci
  710. tbkmmerrorstring
  711. retVal
  712. notif
  713. tbkBitmapChk
  714. tbkBitmap
  715. tbkmmerrorstring
  716. retVal
  717. tbkMCIPositionWindow
  718. status
  719. window handle
  720. tbkMCI
  721. tbkPositionWindow
  722. flags
  723. windowPos
  724. devAlias
  725. tbkMCICenterWindow
  726. status
  727. window handle
  728. tbkMCI
  729. tbkCenterWindow
  730. flags
  731. windowPos
  732. devAlias
  733. tbkBitmapPositionWindow
  734. status
  735. window
  736. tbkBitmap
  737. tbkPositionWindow
  738. flags
  739. windowPos
  740. devAlias
  741. tbkBitmapCenterWindow
  742. status
  743. window
  744. tbkBitmap
  745. tbkCenterWindow
  746. flags
  747. windowPos
  748. devAlias
  749. tbkMCIGetWindowRect
  750. status
  751. window handle
  752. tbkMCI
  753. tbkGetWindowRect
  754. flags
  755. devAlias
  756. tbkBitmapGetWindowRect
  757. status
  758. window
  759. tbkBitmap
  760. tbkGetWindowRect
  761. flags
  762. devAlias
  763. enterSystem
  764. tbkMMInitializeSystem
  765. s_mminit
  766. enterbook
  767. enterSystem
  768. MoveWindow
  769. GetParent
  770. SetParent
  771. User.exe not found. Some widgets may not work
  772. TBKFILE.DLL
  773. getFileSize
  774. getCurrentDirectory
  775. getCurrentDrive
  776. tbkwin.dll
  777. yieldapp
  778. xPixelsFromUnits
  779. yPixelsFromUnits
  780. screenFromPage
  781. clientFromPage
  782. TBKWIN.DLL not found. Some widgets may not work
  783. Initialisierung
  784. tbkdlg.dll
  785. OpenDlg
  786.                     
  787. TBKDLG.DLL not found. Some widgets may not work
  788. P*readdmm
  789. s_mminit
  790. multimedia
  791. winhelp.exe tbkmm.hlp
  792. tbkmmdevices
  793. s_mmdevices
  794. author
  795. P*readdmm
  796. readdmm
  797. Multimedia
  798. &Multimedia
  799. checkdevice
  800. isNumber
  801. sized
  802. txClassName
  803. Repair 3D object after resizing?
  804. recessed
  805. recessed
  806. 3DFrame
  807. 3DField
  808. 3DRect
  809. recessed
  810. buttonDown
  811. txClassName
  812. Thumb
  813. o "___setSliderLimits
  814. buttonStillDown
  815. txClassName
  816. HSliderThumb
  817. ___slidePos
  818. VSliderThumb
  819. ___slidePos
  820. s___v
  821. s___min
  822. s___max
  823. s___p
  824. buttonUp
  825. txClassName
  826. HSliderThumb
  827. sliderPosition
  828. ___slidePos
  829. ___snapSlider
  830. VSliderThumb
  831. sliderPosition
  832. ___slidePos
  833. ___snapSlider
  834. s___v
  835. s___min
  836. s___max
  837. s___p
  838. ___setSliderLimits
  839. txClassName
  840. HSliderThumb
  841. txClassName
  842. VSliderThumb
  843. height
  844. width
  845. glide
  846. s___v
  847. s___min
  848. s___max
  849. ___slidePos
  850. sliderPosition
  851. sliderPosition
  852. group
  853. txClassName
  854. SliderThumb
  855. o "___setSliderLimits
  856. vSliderThumb
  857. hSliderThumb
  858. newPos
  859. pOffset
  860. OldMax
  861. OldMin
  862. thumb
  863. s___min
  864. s___max
  865. ___snapSlider
  866. detentList
  867. catchRange
  868. detents
  869. thumb
  870. tbkmmInitializeSystem
  871. mmsystem.dll
  872. mmsystem
  873. killtbkmmsbk
  874. tbkmm.dll
  875. tbkmmloadextensions
  876. tbkmmversion
  877. tbkmmerrorstring
  878. tbkMCI
  879. tbkTimerStart
  880. tbkTimerStop
  881. tbkTimerCapability
  882. MilliSecFromMSF
  883. MilliSecFromHMS
  884. MilliSecFromSMPTE
  885. MSFFromMilliSec
  886. HMSFromMilliSec
  887. SMPTEFromMilliSec
  888. tbkMMTranslate
  889. tbkGetWindowRect
  890. tbkPositionWindow
  891. tbkCenterWindow
  892. TBKMM.DLL Einbindung fehlgeschlagen!
  893. P*readdmm
  894. tbkmmloadextensions
  895. tbkmmerrorstring
  896. s_mminit
  897. s_mmdevices
  898.  BOOK SCRIPT FOR THE MULTIMEDIA SYSTEM 
  899. ---This 
  900. ADI version2 
  901. tbkmm.sbk that normally accompanies mmrk.
  902. ---The functionalty 
  903. the same except 
  904. includes funtions necessary
  905. VidControl 
  906. %well.
  907. ADIsysBook
  908. "ADI_present"
  909. tbkMCIchk cmd,notif,req,brk
  910. ZretVal
  911. sysErrorNumber 
  912. tbkmci(
  913. syserrornumber<>0 
  914. tbkmmerrorstring(
  915. tbkBitmapChk 
  916.         -- When 
  917. ]TBKBMP.DLL standalone, you should 
  918. modify 
  919.         -- 
  920. bitmap 
  921.  reporter
  922. tbkbmperrorstring(
  923. brk<>
  924. --Cover functions 
  925. --These allow authors 
  926. pass 
  927. device alias instead 
  928. tbkMCIPositionWindow devAlias,windowPos,flags
  929. Zhwnd
  930. 9("status" && 
  931. 3 && "
  932. ","")
  933. tbkPositionWindow(
  934. tbkMCICenterWindow 
  935.  && "
  936. ","")
  937. tbkCenterWindow(
  938. tbkBitmapPositionWindow 
  939.  && "
  940. tbkBitmapCenterWindow 
  941.  && "
  942. tbkMCIGetWindowRect 
  943.  && "
  944. ","")
  945. tbkGetWindowRect(
  946. tbkBitmapGetWindowRect 
  947.  && "
  948. 4s_mminit
  949. tbkMMInitializeSystem 
  950.     -- guard against 
  951. 4having been restored!
  952. { <> 
  953. tuff used 
  954. Hwidgets
  955. Xuser
  956. MoveWindow(WORD,
  957. GetParent(
  958. SetParent(
  959.  <> 0
  960. "User.exe 
  961. xfound. Some 
  962.  may 
  963. xwork"
  964.     linkDLL "TBKFILE.
  965.         LONG getFileSize(STRING)
  966. getCurrentDirectory(
  967. getCurrentDrive()
  968. etbkwin.dll"
  969.         INT yieldapp()
  970. xPixelsFromUnits (
  971.  screenFromPage (
  972.  clientFromPage (
  973.  <> 0
  974. "TBKWIN.
  975. "Initialisierung"
  976. X"tbkdlg.
  977. OpenDlg(
  978.  <> 0
  979. "TBKDLG.
  980. readdmm
  981. multimedia
  982. "winhelp.
  983. tbkmmdevices 
  984. 4s_mmdevices
  985. f("Multimedia") 
  986. c"Help" 
  987. -- stub so some 
  988.  will 
  989.  without ES boxes
  990. checkdevice
  991. -- General utility 
  992. -- Someday, ToolBook 
  993. Thave built-
  994. data type checking    
  995. isNumber x
  996. x + 0
  997. --repair 3D 
  998. resizing them
  999. sized
  1000. Zsnap, txCN, hi, lo
  1001. txClassName 
  1002. ; <> 
  1003. "Repair 3D 
  1004. f"&Yes" 
  1005. "&No"
  1006. c"No"
  1007. sysSuspendMessages 
  1008. recessed 
  1009. c"3DFrame"
  1010. + 15, 
  1011. + 15,\
  1012. + 15, 
  1013. "3DField"
  1014. "3DRect"
  1015. znothing
  1016. - 15, 
  1017. - 15,\
  1018. - 15, 
  1019. + 15, 
  1020. + 15,\
  1021. + 15, 
  1022. -- Slider control 
  1023. begins here
  1024. -- NOTES ABOUT IDENTIFIERS
  1025. -- s___ prefix     ->
  1026. handler 
  1027. only 
  1028. c"Thumb"
  1029. ___setSliderLimits 
  1030. 4s___v, s___min, s___max, s___p
  1031. down\
  1032. prevent updating 
  1033. mouse 
  1034. xmoved
  1035. "HSliderThumb"
  1036. loc - 
  1037. ___slidePos(
  1038. "VSliderThumb"
  1039. sliderPosition 
  1040. ___snapSlider\
  1041. (1 - 
  1042. glide 
  1043. width 
  1044. height 
  1045.  p, s1, s2
  1046. b(0,(p - s1) /(s2 - s1))
  1047. thumb 
  1048.             -- Another 
  1049. controlling 
  1050. OldMin 
  1051. OldMax 
  1052. j(1,(
  1053. b(0,p)))
  1054. "vSliderThumb"
  1055. pOffset 
  1056. ) * (1-p)
  1057. newPos 
  1058. "hSliderThumb"
  1059. ) * p
  1060.             -- Restore state 
  1061. detentList 
  1062. detents
  1063. catchRange 
  1064. 0 <> 
  1065. ends 
  1066. initialization usually 
  1067. runs ONCE, unless 
  1068. app calls
  1069. tbkmmInitializeSystem 
  1070. asure MME 
  1071. loaded
  1072. X"mmsystem.
  1073. killtbkmmsbk 
  1074.         -- 
  1075. private (exported, but undocumented)
  1076.     tbkmmloadextensions( )
  1077.         -- 
  1078. these are 
  1079. tandard 
  1080. J entry points
  1081.     tbkmmversion()
  1082.         -- MCI central interface
  1083.         -- parallel 
  1084. MMSYSTEM
  1085.  tbkTimerStart( 
  1086.     tbkTimerStop( 
  1087.  tbkTimerCapability()
  1088.         -- Utility 
  1089. \    MilliSecFromMSF( 
  1090. \    MilliSecFromHMS( 
  1091. \    MilliSecFromSMPTE( 
  1092.     MSFFromMilliSec( 
  1093.     HMSFromMilliSec( 
  1094.     SMPTEFromMilliSec( 
  1095. -- Translation 
  1096.         tbkMMTranslate( 
  1097.  <> 0
  1098. "TBKMM.
  1099. Einbindung fehlgeschlagen!"
  1100. extended 
  1101. support
  1102.  <> 0 
  1103. -- End 
  1104. Script
  1105. addmm
  1106. enterbook
  1107. checkdevice
  1108. multimedia
  1109. sized
  1110. buttonDown
  1111. enterSystem
  1112. buttonStillDown
  1113. buttonUp
  1114. author
  1115. ___setSliderLimits
  1116. readdmm
  1117. tbkmmInitializeSystem
  1118. bkMCIchk
  1119. tbkMCICenterWindow
  1120. tbkBitmapPositionWindow
  1121. ADIsysBook
  1122. tbkBitmapCenterWindow
  1123. tbkMCIGetWindowRect
  1124. tbkBitmapChk
  1125. tbkBitmapGetWindowRect
  1126. tbkmmdevices
  1127. tbkMCIPositionWindow
  1128. isNumber
  1129. ___slidePos
  1130. sliderPosition
  1131. tbkMCIchk
  1132. ___snapSlider
  1133. sliderPosition
  1134. ADIsysBook
  1135. ADI_present
  1136. tbkMCIchk
  1137. tbkmci
  1138. tbkmmerrorstring
  1139. retVal
  1140. notif
  1141. tbkBitmapChk
  1142. tbkBitmap
  1143. tbkmmerrorstring
  1144. retVal
  1145. tbkMCIPositionWindow
  1146. status
  1147. window handle
  1148. tbkMCI
  1149. tbkPositionWindow
  1150. flags
  1151. windowPos
  1152. devAlias
  1153. tbkMCICenterWindow
  1154. status
  1155. window handle
  1156. tbkMCI
  1157. tbkCenterWindow
  1158. flags
  1159. windowPos
  1160. devAlias
  1161. tbkBitmapPositionWindow
  1162. status
  1163. window
  1164. tbkBitmap
  1165. tbkPositionWindow
  1166. flags
  1167. windowPos
  1168. devAlias
  1169. tbkBitmapCenterWindow
  1170. status
  1171. window
  1172. tbkBitmap
  1173. tbkCenterWindow
  1174. flags
  1175. windowPos
  1176. devAlias
  1177. tbkMCIGetWindowRect
  1178. status
  1179. window handle
  1180. tbkMCI
  1181. tbkGetWindowRect
  1182. flags
  1183. devAlias
  1184. tbkBitmapGetWindowRect
  1185. status
  1186. window
  1187. tbkBitmap
  1188. tbkGetWindowRect
  1189. flags
  1190. devAlias
  1191. enterSystem
  1192. tbkMMInitializeSystem
  1193. s_mminit
  1194. enterbook
  1195. enterSystem
  1196. MoveWindow
  1197. GetParent
  1198. SetParent
  1199. User.exe not found. Some widgets may not work
  1200. TBKFILE.DLL
  1201. getFileSize
  1202. getCurrentDirectory
  1203. getCurrentDrive
  1204. tbkwin.dll
  1205. yieldapp
  1206. xPixelsFromUnits
  1207. yPixelsFromUnits
  1208. screenFromPage
  1209. clientFromPage
  1210. TBKWIN.DLL not found. Some widgets may not work
  1211. tbkdlg.dll
  1212. OpenDlg
  1213.                     
  1214. TBKDLG.DLL not found. Some widgets may not work
  1215. P*readdmm
  1216. s_mminit
  1217. multimedia
  1218. winhelp.exe tbkmm.hlp
  1219. tbkmmdevices
  1220. s_mmdevices
  1221. author
  1222. P*readdmm
  1223. readdmm
  1224. Multimedia
  1225. &Multimedia
  1226. checkdevice
  1227. isNumber
  1228. sized
  1229. txClassName
  1230. Repair 3D object after resizing?
  1231. recessed
  1232. recessed
  1233. 3DFrame
  1234. 3DField
  1235. 3DRect
  1236. recessed
  1237. buttonDown
  1238. txClassName
  1239. Thumb
  1240. o "___setSliderLimits
  1241. buttonStillDown
  1242. txClassName
  1243. HSliderThumb
  1244. ___slidePos
  1245. VSliderThumb
  1246. ___slidePos
  1247. s___v
  1248. s___min
  1249. s___max
  1250. s___p
  1251. buttonUp
  1252. txClassName
  1253. HSliderThumb
  1254. sliderPosition
  1255. ___slidePos
  1256. ___snapSlider
  1257. VSliderThumb
  1258. sliderPosition
  1259. ___slidePos
  1260. ___snapSlider
  1261. s___v
  1262. s___min
  1263. s___max
  1264. s___p
  1265. ___setSliderLimits
  1266. txClassName
  1267. HSliderThumb
  1268. txClassName
  1269. VSliderThumb
  1270. height
  1271. width
  1272. glide
  1273. s___v
  1274. s___min
  1275. s___max
  1276. ___slidePos
  1277. sliderPosition
  1278. sliderPosition
  1279. group
  1280. txClassName
  1281. SliderThumb
  1282. o "___setSliderLimits
  1283. vSliderThumb
  1284. hSliderThumb
  1285. newPos
  1286. pOffset
  1287. OldMax
  1288. OldMin
  1289. thumb
  1290. s___min
  1291. s___max
  1292. ___snapSlider
  1293. detentList
  1294. catchRange
  1295. detents
  1296. thumb
  1297. tbkmmInitializeSystem
  1298. mmsystem.dll
  1299. mmsystem
  1300. killtbkmmsbk
  1301. tbkmm.dll
  1302. tbkmmloadextensions
  1303. tbkmmversion
  1304. tbkmmerrorstring
  1305. tbkMCI
  1306. tbkTimerStart
  1307. tbkTimerStop
  1308. tbkTimerCapability
  1309. MilliSecFromMSF
  1310. MilliSecFromHMS
  1311. MilliSecFromSMPTE
  1312. MSFFromMilliSec
  1313. HMSFromMilliSec
  1314. SMPTEFromMilliSec
  1315. tbkMMTranslate
  1316. tbkGetWindowRect
  1317. tbkPositionWindow
  1318. tbkCenterWindow
  1319. TBKMM.DLL Einbindung fehlgeschlagen!
  1320. P*readdmm
  1321. tbkmmloadextensions
  1322. tbkmmerrorstring
  1323. s_mminit
  1324. s_mmdevices
  1325. tbkmmerrorstring
  1326. s_mminit
  1327. s_mmdevices
  1328.