home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / auto / gardenWatch.camera.tcl < prev    next >
Text File  |  2005-10-24  |  1KB  |  53 lines
  1. proc gardenWatch.alley.enter {} {
  2.     setThreadID 4
  3.     alley::new waterFallA -repeat
  4.     alley::new waterFallB -repeat
  5.     setThreadID 0
  6. }
  7.  
  8. proc gardenWatch.alley.leave {} {
  9.     setThreadID 4
  10.     wq'widget::delete& alley::waterFallA
  11.     wq'widget::delete& alley::waterFallB
  12.     setThreadID 0
  13. }
  14.  
  15. proc gardenWatch.gardenWatchEntrance.enter {} {
  16.     setThreadID 4
  17.     gardenWatchEntrance::new waterfall -repeat
  18.     setThreadID 0
  19. }
  20.  
  21. proc gardenWatch.gardenWatchEntrance.leave {} {
  22.     setThreadID 4
  23.     wq'widget::delete& gardenWatchEntrance::waterfall
  24.     setThreadID 0
  25. }
  26.  
  27. proc gardenWatch.minotaurMazeCloseUp.enter {} {
  28.     setThreadID 4
  29.     setThreadID 0
  30. }
  31.  
  32. proc gardenWatch.minotaurMazeCloseUp.leave {} {
  33.     setThreadID 4
  34.     setThreadID 0
  35. }
  36.  
  37. proc gardenWatch.outsideGardenWatch.enter {} {
  38.     setThreadID 4
  39.     outsideGardenWatch::new fishesA -repeat
  40.     outsideGardenWatch::new fishesB -repeat
  41.     outsideGardenWatch::new fishesC -repeat
  42.     setThreadID 0
  43. }
  44.  
  45. proc gardenWatch.outsideGardenWatch.leave {} {
  46.     setThreadID 4
  47.     wq'widget::delete& outsideGardenWatch::fishesA
  48.     wq'widget::delete& outsideGardenWatch::fishesB
  49.     wq'widget::delete& outsideGardenWatch::fishesC
  50.     setThreadID 0
  51. }
  52.  
  53.