home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / popup.dir / 00008_Script_8 < prev    next >
Text File  |  1995-12-06  |  790b  |  22 lines
  1. -- Spezial-OK fⁿr Ordner-Fenster
  2.  
  3. on mouseUp
  4.   global gsPopupReturn, goPopup, gsOldDir, goGBTools
  5.   
  6.   set gsPopupReturn = goGBTools(mGetCurPath)
  7.   if length(gsPopupReturn) > 3 then set gsPopupReturn = gsPopupReturn & "\"
  8.   
  9.   set the text of cast "NewDir" =  alltrim(the text of cast "NewDir")
  10.   if length(the text of cast "NewDir") > 8 then set the text of cast "NewDir" = char 1 to 8 of the text of cast "NewDir"
  11.   if the text of cast "NewDir" <> "" then
  12.     if goGBTools(mMakeDir, the text of cast "NewDir") then ¼
  13.                         set gsPopupReturn = gsPopupReturn & the text of cast "NewDir"
  14.   end if
  15.   
  16.   tell the stage to UpdateDirField(gsPopupReturn)
  17.   
  18.   goGBTools(mChDir, gsOldDir)
  19.   close goPopup
  20.   set goPopup = 0
  21.     set the windowList = List()
  22. end