home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / common / state.tcl < prev    next >
Text File  |  2005-10-29  |  944b  |  61 lines
  1. proc wizEnableFloorevent { } {
  2.   ozEnable floorevent
  3. }
  4.  
  5. proc wizDisableFloorevent { } {
  6.   ozDisable floorevent
  7. }
  8.  
  9. proc wizqEnableUse { } {
  10.   chainEvent {ozEnable use}
  11. }
  12.  
  13. proc wizqDisableUse { } {
  14.   chainEvent {ozDisable use}
  15. }
  16.  
  17. proc wizEnablePanning { } {
  18.   ozEnable panning
  19. }
  20.  
  21. proc wizDisablePanning { } {
  22.   ozDisable panning
  23. }
  24.  
  25. proc wizqEnableFloorevent { } {
  26.   chainEvent { wizEnableFloorevent }
  27. }
  28.  
  29. proc wizqDisableFloorevent { } {
  30.   chainEvent { wizDisableFloorevent }
  31. }
  32.  
  33. proc wizqEnablePanning { } {
  34.   chainEvent { wizEnablePanning }
  35. }
  36.  
  37. proc wizqDisablePanning { } {
  38.   chainEvent { wizDisablePanning }
  39. }
  40.  
  41. proc wizSetFloorID { id } {
  42.   ozSystem floorid $id
  43. }
  44.  
  45. proc wizEnableMouse { } {
  46.   ozEnable mouse
  47. }
  48.  
  49. proc wizDisableMouse { } {
  50.   ozDisable mouse
  51. }
  52.  
  53. proc wizqEnableMouse { } {
  54.   chainEvent { wizEnableMouse }
  55. }
  56.  
  57. proc wizqDisableMouse { } {
  58.   chainEvent { wizDisableMouse }
  59. }
  60.  
  61.