G4C

; This is the new version of read.gc
; It's purpose is to demonstrate the use of screens.
; All it's good for, is displaying a text file on a borderless
; window on a new screen.

; Since I have no way of knowing how high your Screen Bar is, you'll
; have to adjust the window size so that it fits under your
; screen Title bar (according to the screen font you use).


WinBig  0 13 0 -14 ""
WinType 000011
Screen  ReaderScreen



;------> On loading, make the screen, then open the window
;	 Note the large buffer we reserve for the screen title, so that
;        the chosen file name fits (after $rglvfile is translated).

xOnLoad
MakeScreen ReaderScreen 2 "Gui4Cli (c)1996 by D.Keletsekis"
guiopen read.gc
setvar rglvfile ""
ReqFile -1 -1 250 -40 "Choose file" LOAD rglvfile ""
if $rglvfile = ""
   guiquit read.gc
else
   LVchange read.gc 1 $rglvfile
   SetScreenTitle read.g '$rglvfile                                   '
endif

xOnQuit				; on quitting
guiclose read.gc		; we close the window first
killscreen ReaderScreen		; then kill the screen


;------> Project Menu

xMenu  Project Status.. "" S
Status

xMenu  Project About.. "" ""
ezreq "You are reading file :\n\n$rglvfile\n\non a Reader created with\n  ...wait for it...\n     Gui4Cli!!" "Gime a break!" ""

xMenu  Project Quit "" Q
GuiQuit read.gc


;------> the listview. - Use 'L' for scrolling the list up/down

xListview 0 0 0 0 "" XLine $rglvfile 20 TXT
GadID  1
GadKey L
GadFont topaz.font 8 000