G4C
; ==============================================================
;  PalmDoc.gc simple GUI system Palm DOC creation using MakeDoc
;  Version 1.0                             © John Chandler 1999
; ==============================================================

WINBIG -1 -1 280 115 "PalmDoc"
RESINFO 8 800 600


xONLOAD
 GuiOpen PalmDoc.gc

 SETGADVALUES PalmDoc.gc


BOX 3 3 274 109 IN BUTTON


xTEXTIN 85 10 180 15 "Title" Title "Untitled" 31


xTEXTIN 85 30 180 15 "" InFile "" 255
 GadID 1

 OutFile = $InFile
 APPVAR OutFile ".pdb"
 UPDATE PalmDoc.gc 2 "$OutFile"


xBUTTON 12 30 73 15 "In File"
 ReqFile -1 -1 300 200 "Specify Input File" LOAD Filename ""
 EXTRACT Filename UNQUOTE Filename
 UPDATE PalmDoc.gc 1 "$Filename"
 APPVAR Filename ".pdb"
 UPDATE PalmDoc.gc 2 "$Filename"


xTEXTIN 85 50 180 15 "" OutFile "" 255
 GadID 2


xBUTTON 12 50 73 15 "Out File"
 ReqFile -1 -1 300 200 "Specify Output File" SAVE Filename ""
 EXTRACT Filename UNQUOTE Filename
 UPDATE PalmDoc.gc 2 "$Filename"


xCHECKBOX 250 70 15 15 "Compression" Compression "" "-n" ON


xCHECKBOX 250 90 15 15 "Private" Private "-p1" "" OFF


xBUTTON 32 85 100 15 "Make DOC"
 IF $InFile == ""	; No Input filename!
  EZREQ "You haven't specified an input file!" "Choose|Cancel" Return
  IF $Return = 0	; Cancelled
   STOP
  ELSE			; Get filename
   ReqFile -1 -1 300 200 "Specify Input File" LOAD InFile ""
   EXTRACT InFile UNQUOTE InFile
   IF $InFile == ""	; Cancelled or no file selected
    STOP
   ENDIF
   OutFile = $InFile
   APPVAR OutFile ".pdb"
   UPDATE PalmDoc.gc 1 "$InFile"
   UPDATE PalmDoc.gc 2 "$OutFile"
  ENDIF
 ENDIF

 RUN 'makedoc $Compression $Private "$InFile" -o "$OutFile" -t $Title'


xAPPWINDOW Filename
 EXTRACT Filename CLEAN Filename	; remove the trailing space
 UPDATE PalmDoc.gc 1 "$Filename"
 APPVAR Filename ".pdb"
 UPDATE PalmDoc.gc 2 "$Filename"


xONCLOSE
 GuiQuit PalmDoc.gc