home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
300-399
/
ff338.lzh
/
SASTools
/
BigCLI
/
BigCLI.mod
< prev
next >
Wrap
Text File
|
1990-03-23
|
1KB
|
36 lines
(***************************************************************************
* Programme : BigCLI.mod *
* Usage : BigCLI *
* Version : V1.20 *
* Date : 01.05.1989 *
* Author : Jörg Sixt *
* Purpose : Set height & width of the active (CLI-)window to maximum *
* Language : Modula-2,AMSoft PD-Version from Fish 113 *
* Bugs : *
***************************************************************************)
MODULE BigCLI ;
FROM Intuition IMPORT OpenIntuition,IntuitionBase,SizeWindow,MoveWindow,
ScreenPtr,WindowPtr ;
VAR IntBasePtr : POINTER TO IntuitionBase ;
CLIWinPtr : WindowPtr ;
WBScrnPtr : ScreenPtr ;
BEGIN
IntBasePtr := OpenIntuition ();
CLIWinPtr := IntBasePtr^.activeWindow;
WBScrnPtr := IntBasePtr^.activeScreen;
IF (CLIWinPtr # NIL) THEN
MoveWindow ( CLIWinPtr,
-(CLIWinPtr^.leftEdge),
-(CLIWinPtr^.topEdge ));
SizeWindow ( CLIWinPtr,
(WBScrnPtr^.width - CLIWinPtr^.width),
(WBScrnPtr^.height - CLIWinPtr^.height));
END ;
END BigCLI .