home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1991 / 07 / tbook.scr < prev    next >
Text File  |  1991-03-04  |  649b  |  23 lines
  1. to handle buttonUp
  2.   local GrpStr,FileStr,AppStr
  3.   ask "Enter the Program Manager group name?"
  4.   if it contains "cancel"
  5.     break buttonUp
  6.   end if
  7.   put it into GrpStr
  8.   ask "Enter the application's filename?"
  9.     if it contains "cancel"
  10.     break buttonUp
  11.   end if
  12.   put it into FileStr
  13.   ask "Enter text to display under application's icon?"
  14.     if it contains "cancel"
  15.     break buttonUp
  16.   end if
  17.   put it into AppStr
  18.   executeRemote "[CreateGroup("&GrpStr&")]" \
  19.        application "PROGMAN" topic "PROGMAN"
  20.   executeRemote "[AddItem("&FileStr&","&AppStr&")]" \
  21.        application "PROGMAN" topic "PROGMAN"
  22. end buttonUp
  23.