home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SERVKNOT.DXR / 00020.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  534 b   |  16 lines
  1. on mouseUp
  2.   global dirpath
  3.   if voidp(dirpath) then
  4.     set dirpath to EMPTY
  5.   end if
  6.   set the text of member "Stadt" to " "
  7.   set the text of member "Tel" to " "
  8.   puppetSound("Klick2")
  9.   updateStage()
  10.   set the title of window "finder.dir" to "Vorwahlfinder"
  11.   set the windowType of window "finder.dir" to 4
  12.   set the rect of window "finder.dir" to rect(the stageLeft + 40, the stageTop + 40, the stageLeft + 440, the stageTop + 340)
  13.   set the fileName of window "finder" to dirpath & "finder.dir"
  14.   open(window "finder.dir")
  15. end
  16.