home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 61 / af061a.adf / Macros / SGBToPubScreen.clssa < prev    next >
Text File  |  1993-05-01  |  993b  |  34 lines
  1. /***********************************************************************
  2.  GADGET: "'SGB To PubScreen'" "4" AUTO TYP: "?"
  3.  
  4.  $DAT >>SGBToPubScreen.clssa<< 01 May 1993 - (C) ProDAD Holger Burkarth
  5. ************************************************************************/
  6.  
  7. OPTIONS RESULTS
  8.  
  9.   ADDRESS clariSSA
  10.   FailAt 99
  11.   AltFail=RESULT
  12.  
  13.   GetScreenGrabber
  14.   IF Find(RESULT,"REQ")=0 THEN DO
  15.     SetScreenGrabber REQ
  16.     Message "'First select a PubScreen''from the Requester.''Then click on the''<<SGB TO PubScreen>>''gadget once again.'"
  17.   END
  18.   ELSE DO
  19.     GetScreenGrabber
  20.     PARSE VAR RESULT . 'PUBSCREEN "' PScreen '"' .
  21.     IF PScreen~='' THEN DO
  22.       SetScreenGrabber WindowPubScreen "'"PScreen"'" FRONT
  23.       IF RC~=0 THEN Message "'ScreenGrabber cannot be opened''on the chosen PubScreen''("PScreen")''.'"
  24.     END
  25.     ELSE DO
  26.       Message "'You must first choose a PubScreen''in the ScreenGrabber requester.'"
  27.       SetScreenGrabber UPDATE FRONT
  28.     END
  29.   END
  30.  
  31.   FailAt AltFail
  32.  
  33. exit
  34.