#========================================================================== # C O N F I G U R A T I O N M O D U L E # # This module is used to specify the configuration of the screen panels. # The screen panel format can be tailored to individual taste by modifiying # this module. #========================================================================== #========================================================================== # screen panels - each screen panel is defined as a list of windows # # - each window has 9 items # 0/ row of upper left window corner # 1/ column of upper left window corner # 2/ window width # 3/ header height # 4/ body height (window height = 3/ + 4/) # 5/ name of text to be displayed in window # 6/ line number of the text line at top of window # 7/ offset of the window cursor # 8/ a list of window properties #========================================================================== # maximum width of main window in roster panels --------------------------- maxwidth IS 55; # maximum height of main window in roster panels ------------------------- maxheight IS 18; # header height for main window in roster panels ------------------------- headerheight IS 3; # specifications for screen panels associated with rosters --------------- # (mainx,mainy): upper left corner of MASTER menu (mainpanel) ------------- mainx IS 4; mainy IS 4; # line number for command line ------------------------------------------ commandlineno IS 22; helpmessage gets 'NEXT WINDOW (n) PREVIOUS WINDOW (p) SELECT (s) EXIT (x)' 'SCROLL: PAGE-LEFT (l) PAGE-RIGHT (r) PAGE-FORWARD (f) PAGE-BACKWARD (b)'; #============================================================================== # Attributes for window setup #============================================================================== black blue red brown white ltblue magenta green := 0 1 2 3 4 5 6 7 brblue brred yellow brwhite brltblue brmagenta brgreen := 9 10 11 12 13 14 15 openingscreen := (ltblue 0 0)(ltblue 0 0)(0 blue 0) rosterscreen := (red 0 0)(red 0 0)(0 red 0) cmndscreen := (ltblue blue 0)(blue ltblue 0)(blue ltblue 0) menuscreen := (ltblue blue 0)(blue ltblue 0)(blue ltblue 0) topscreen := (ltblue blue 0)