jed-users mailing list

[2007 Date Index] [2007 Thread Index] [Other years]
[Thread Prev] [Thread Next]      [Date Prev] [Date Next]

Re: jed start with n files in n windows?


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]