home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Lotus / LOTUS / SMASTERS / APPROACH / SCHEDULE.MPR / SCRIPT / ApproachDoc / Room Setup / Body / btnCancel.s (.txt) < prev    next >
Encoding:
Null Bytes Alternating  |  1997-01-09  |  1.9 KB  |  25 lines
  1. '++LotusScript Development Environment:2:5:(Options):0:66
  2.  
  3. '++LotusScript Development Environment:2:5:(Forward):0:1
  4. Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  5.  
  6. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7.  
  8. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9. Private Sub BindEvents(Byval Objectname_ As String)
  10.     Static Source As BUTTON
  11.     Set Source = Bind(Objectname_)
  12.     On Event Click From Source Call Click
  13. End Sub
  14.  
  15. '++LotusScript Development Environment:2:2:Click:1:12
  16. Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
  17. ' Click event for the btnCancel button object on the Room Setup view
  18. ' This script closes the Room Setup dialog box and returns to whichever
  19. ' view was active before the Room Setup view opened.
  20.     
  21.     currentwindow.close
  22.     'Doevents returns control back to operating system so that pending 
  23.     'actions can be performed
  24.     Doevents
  25. End Sub        ' Click event for btnCancel on the Room Setup view