home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / blinds / blinds1.wwModel / controls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  2.2 KB  |  57 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6.     WWTTTimer
  7. @:diciffffc
  8. Uset slat(oldXRotate) $slat(xRotate);
  9. openMotorProgram $open(u) $open(initialRotate); 
  10. set ticksPassed [synchWithScene]; 
  11. set open(u) [expr $open(u) + ($open(uIncr) * $ticksPassed)];  
  12. if {$slat(oldXRotate) < 0 && $slat(xRotate) > 0} {set open(changedSign) 1} {};
  13. if {$slat(oldXRotate) > 0 && $slat(xRotate) < 0} {set open(changedSign) 1} {};
  14. preOpen
  15. .$slat(xRotate) != 0 && $open(changedSign) == 0
  16.     Responder
  17. WWThumbWheel
  18. PAThumbWheel
  19. Control
  20. WWThumbWheelCell
  21. PAThumbWheelCell
  22. ActionCell
  23.     Helvetica
  24. $set slat(xRotate) %f; synchWithScene
  25. slat(xRotate)
  26. WWTextField
  27.     TextField
  28. WWTextFieldCell
  29. TextFieldCell
  30. GorhamType$
  31. Button
  32. ButtonCell
  33. Open the blinds
  34. set open(duration) %f
  35. open(duration)
  36. close the blinds
  37. set close(duration) %f
  38. close(duration)
  39. WindowTemplate
  40. iiii***@s@
  41. Slat controls
  42. Panel
  43. closeMotorProgram $close(u) $close(initialRotate); 
  44. set ticksPassed [synchWithScene]; 
  45. set close(u) [expr $close(u) + ($close(uIncr) * $ticksPassed)];  
  46. preClose
  47. +$slat(xRotate) < 75 && $slat(xRotate) > -75
  48. File's Owner
  49. close
  50. controls
  51. IBOutletConnector
  52. IBConnector
  53. controlPanel
  54. IBControlConnector
  55. start:
  56. interp
  57.