- Subject: Re: jed start with n files in n windows?
- From: <Jens.Wulf@xxxxxxxxxxxxxxxx>
- Date: Fri, 23 Nov 2007 08:57:45 +0100
I use this function:
public define jww_windows_size_equally()
{
variable nCnt;
variable rows = (SCREEN_HEIGHT - nwindows() - 2) / nwindows();
variable curwincnt = 0;
% Go to top most window, but count
% to have a notion where I came from.
while (window_info('t') > 2)
{
otherwindow();
curwincnt++;
}
% Go to bottom window.
for (nCnt=0; nCnt<nwindows()-1; nCnt++)
otherwindow();
% Maximize bottom window.
for (nCnt=0; nCnt<SCREEN_HEIGHT; nCnt++)
enlargewin();
% size windows
jww_windows_goto_topmost();
for (nCnt=0; nCnt<nwindows()-1; nCnt++)
{
while (window_info('r') < rows)
enlargewin();
otherwindow();
}
% Go to window from where I left initially
jww_windows_goto_topmost();
for (nCnt=0; nCnt<nwindows()-curwincnt; nCnt++)
otherwindow();
}
% Makes the top most window the current window
public define jww_windows_goto_topmost()
{
while (window_info('t') > 2)
otherwindow();
}
SEW-EURODRIVE GmbH & Co KG
Kommanditgesellschaft, Sitz: Bruchsal, RG Mannheim HRA 230970
Komplementärin: SEW-EURODRIVE Verwaltungs-GmbH, Sitz: Bruchsal, RG Mannheim HRB 230207
Gesellschafter und Geschäftsführer: Rainer Blickle, Jürgen Blickle
Geschäftsführer: Johann Soder, Hans Sondermann, Bernd P. Uckrow
--------------------------
To unsubscribe send email to <jed-users-request@xxxxxxxxxxx> with
the word "unsubscribe" in the message body.
Need help? Email <jed-users-owner@xxxxxxxxxxx>.
[2007 date index]
[2007 thread index]
[Thread Prev] [Thread Next]
[Date Prev] [Date Next]