reimport my latest checkout

1 files changed, 664 insertions, 0 deletions

diff --git a/window.inc b/window.inc
new file mode 100644
index 0000000..65b294d
--- /dev/null
+++ b/window.inc
@@ -0,0 +1,664 @@
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+%
+% window code
+%
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+% public words:
+%
+% window.dialog		( ) ==> ( window )
+%   - create a new dialog
+%
+% window.init		( window ) ==> ( )
+%   - initialize window
+%
+% window.show		( window ) ==> ( )
+%   - draw window
+%
+% window.current	( ) ==> ( window )
+%   - the top level window
+%
+% window.action		( ) ==> ( action )
+%   - recent window action
+%
+% window.input		( key_in ) ==> ( key_out )
+%   - handle keyboard input
+%
+% window.done		( ) ==> ( )
+%   - close top level window
+%
+%
+% constants:
+%   - window.action
+%       actNothing	- do nothing
+%       actExit		- leave boot menu
+%       actCloseInfo	- close info window
+%       actPassword	- password entered
+%       actStart	- boot kernel
+%       actEject	- eject CD
+%       actPowerOff	- turn computer off
+%       actReboot	- reboot computer
+%       actRedraw	- redraw everything
+%       actNoClose	- don't close dialog (it's a flag)
+%
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% window related global variables
+%
+
+% all open windows are stacked here
+/window.list 8 array def
+/window.list.index 0 def
+
+% the top level window
+% /window.current
+
+% action selected by closing window
+/window.action actNothing def
+
+% window field definitions
+/widget.size 0 def
+/newfield { widget.size def /widget.size widget.size 1 add def } def
+
+/.type           newfield
+/.x              newfield
+/.y              newfield
+/.width          newfield
+/.height         newfield
+/.width.min      newfield
+/.position       newfield
+/.color.fg       newfield
+/.color.bg       newfield
+/.font           newfield
+/.saved          newfield
+/.saved.areas    newfield
+/.title          newfield
+/.title.fg       newfield
+/.title.bg       newfield
+/.title.height   newfield
+/.text           newfield
+/.text.x         newfield
+/.text.y         newfield
+/.buttons        newfield
+/.button.y       newfield
+/.ed             newfield
+/.ed.font        newfield
+/.ed.list        newfield
+/.ed.buffer.list newfield
+/.ed.text.list   newfield
+/.ed.width       newfield
+/.ed.focus       newfield
+/.ed.pw_field    newfield
+/.xmenu          newfield
+/.xmenu.update   newfield
+
+% window types
+/t_dialog 100 def
+/t_help   101 def
+/t_main   102 def
+/t_xmenu  103 def
+
+% actions
+/actNothing           0 def
+/actExit              1 def
+/actCloseInfo         2 def
+/actPassword          3 def
+/actStart             4 def
+/actEject             5 def
+/actPowerOff          6 def
+/actRedraw            7 def
+/actRedrawPanel       8 def
+/actInstallOK         9 def
+/actInstallCancel    10 def
+/actReboot           11 def
+/actNoClose       0x100 def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Create new dialog window.
+%
+% ( ) ==> ( window )
+%
+/window.dialog {
+  widget.size array
+  dup .type t_dialog put
+  dup .position 8 put		% centered at 8/10 of screen height
+  dup .x 0 put
+  dup .y 0 put
+  dup .width.min 0 put
+  dup .color.fg black put
+  dup .color.bg lightgray put
+  dup .font font.normal put
+  dup .title.fg white put
+  dup .title.bg title.bg put
+  dup .title.height help.title.height put
+  dup .text.x 12 put
+  dup .text.y help.title.height 10 add put
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Handle keyboard input.
+%
+% ( key_in ) ==> ( key_out )
+%
+/window.input {
+  window.current .undef ne {
+    window.current .type get
+    dup t_dialog eq { exch dialog.input exch } if
+    dup t_help eq { exch help.input exch } if
+    dup t_main eq { exch main.input exch } if
+    dup t_xmenu eq { exch xmenu.input exch } if
+    pop
+
+    % maybe there is an editable input field
+    dup 0 ne {
+      window.current .ed get .undef ne {
+        window.current .ed.font get setfont
+        window.current .color.fg get setcolor
+        window.current .ed get exch edit.input
+        0
+      } if
+    } if
+
+    % only top level window gets input
+    pop 0
+
+  } if
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Initialize window.
+%
+% ( window ) ==> ( )
+%
+/window.init {
+  dup .type get
+  dup t_dialog eq { pop dialog.init return } if
+  dup t_help eq { pop help.init return } if
+  dup t_main eq { pop main.init return } if
+  dup t_xmenu eq { pop xmenu.init return } if
+  pop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Show window.
+%
+% ( window ) ==> ( )
+%
+/window.show {
+  dup .type get
+  dup t_dialog eq { pop dialog.show return } if
+  dup t_help eq { pop help.show return } if
+  dup t_main eq { pop main.show return } if
+  dup t_xmenu eq { pop xmenu.show return } if
+  pop
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Add window to list.
+%
+% ( window ) ==> ( )
+%
+/window.push {
+  window.list.index window.list length ge { pop return } if
+  /window.current over def
+  window.list window.list.index rot put
+  /window.list.index window.list.index 1 add def
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Remove window from list.
+%
+% ( ) ==> ( window )
+%
+/window.pop {
+  window.list.index 0 eq { .undef return } if
+  /window.list.index window.list.index 1 sub def
+  window.list window.list.index get
+  window.list window.list.index .undef put
+  /window.current
+    window.list.index 0 eq { .undef } { window.list window.list.index 1 sub get } ifelse
+  def
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Close top level window.
+%
+% ( ) ==> ( )
+%
+/window.done {
+  window.current .undef ne {
+    window.current dup .type get
+    dup t_help eq { help.done } if
+    dup t_xmenu eq { xmenu.done } if
+    pop
+    % restore saved background and free bg image
+    dup .saved get .undef ne {
+      dup .x get 1 sub over .y get 1 sub moveto
+      dup .saved get dup restorescreen free
+      dup .saved .undef put
+    } if
+    % restore & free saved background areas
+    dup .saved.areas get .undef ne {
+      % list of [ x y screen ]
+      dup .saved.areas get {
+        dup { } forall
+        3 1 roll moveto dup restorescreen free
+        free
+      } forall
+      dup .saved.areas get free
+      dup .saved.areas .undef put
+    } if
+    % free input field memory
+    dup .ed get .undef ne {
+      dup .ed get 2 get free		% background
+      dup .ed get free
+      dup .ed .undef put
+    } if
+    dup .ed.text.list get free
+    dup .ed.list get dup {
+      { dup 2 get free free } forall
+    } { pop } ifelse
+    dup .ed.list get free
+    pop
+    % remove it from window list
+    window.pop
+    % free buttons & button list
+    dup .buttons get
+      dup .undef ne {
+        dup length 0 gt {
+          dup length 1 sub 0 1 rot {
+            over exch get free
+          } for
+        } if
+      } if
+      free
+    % free window
+    free
+  } if
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Handle keyboard input.
+%
+% ( key_in ) ==> ( key_out )
+%
+/dialog.input {
+  dup 0 eq { return } if
+
+  /window.buttons window.current .buttons get def
+
+  window.buttons .undef ne { window.buttons length {
+
+    dup keyEnter eq {
+      window.buttons window.findselected
+      over over get 7 get /window.action exch def get
+      dup button.press 100000 usleep
+      window.action actNoClose and {
+        window.action dialog.specialaction { button.show } if
+      } {
+        pop window.done
+      } ifelse
+      pop 0
+    } if
+
+    window.current .ed.list get {
+      dup keyDown eq over keyTab eq or {
+        window.current .ed.focus get
+        window.current .ed.list get over get edit.hidecursor
+
+        1 add window.current .ed.list get length mod
+        window.current .ed.focus 2 index put
+        window.current .ed.list get exch get edit.showcursor
+        pop 0
+      } if
+
+      dup keyUp eq over keyShiftTab eq or {
+        window.current .ed.focus get
+        window.current .ed.list get over get edit.hidecursor
+
+        1 sub window.current .ed.list get length exch over add exch mod
+        window.current .ed.focus 2 index put
+        window.current .ed.list get exch get edit.showcursor
+        pop 0
+      } if
+
+%      dup keyTab eq {
+%        window.findselected 1 add window.buttons length mod
+%        window.selectbutton
+%        pop 0
+%      } if
+
+    } {
+      dup keyTab eq over keyRight eq or over keyDown eq or {
+        window.findselected 1 add window.buttons length mod
+        window.selectbutton
+        pop 0
+      } if
+
+      dup keyLeft eq over keyUp eq or {
+        window.findselected window.buttons length 1 sub add window.buttons length mod
+        window.selectbutton
+        pop 0
+      } if
+    } ifelse
+
+    dup window.findkey dup 0 ge {
+      window.buttons exch
+      over over get 7 get /window.action exch def get
+      dup button.press 100000 usleep
+      window.action actNoClose and {
+        window.action dialog.specialaction { button.show } if
+      } {
+        pop window.done
+      } ifelse
+      pop 0
+    } {
+      pop
+    } ifelse
+
+  } if } if
+
+
+  % maybe there are input fields
+  dup 0 ne {
+    window.current .ed.list get dup {
+      window.current .ed.font get
+        window.current .ed.focus get window.current .ed.pw_field get eq { pwmode } if
+        setfont
+      window.current .color.fg get setcolor
+
+      window.current .ed.focus get get exch edit.input
+      0
+    } { pop } ifelse
+  } if
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Find selected button.
+%
+% ( ) ==> ( button_idx )
+%
+/window.findselected {
+  0
+  0 1 window.buttons length 1 sub {
+    dup
+    window.buttons exch get 5 get
+    {
+      exch pop exit
+    } {
+      pop
+    } ifelse
+  } for
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Find button for key.
+%
+% ( key ) ==> ( button_idx )
+%
+% button_idx = -1 if not found
+%
+/window.findkey {
+  /window.key exch def
+  -1
+  window.key 0 eq { return } if
+  0 1 window.buttons length 1 sub {
+    dup
+    window.buttons exch get 6 get window.key eq
+    {
+      exch pop exit
+    } {
+      pop
+    } ifelse
+  } for
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Select button.
+%
+% ( button_idx ) ==> ( )
+%
+/window.selectbutton {
+  window.findselected
+  over over eq {
+    pop pop
+  } {
+    window.buttons exch get button.notdefault button.show
+    window.buttons exch get button.default button.show
+  } ifelse
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Initialize dialog window.
+%
+% ( window ) ==> ( )
+%
+/dialog.init {
+  /dialog.tmp exch def
+
+  dialog.tmp .font get setfont
+
+  dialog.tmp .text get dup "" ne { strsize } { pop 0 0 } ifelse
+  /dialog.height exch dialog.tmp .text.y get 10 add add def
+  /dialog.width exch dialog.tmp .text.x get 1 add 2 mul add dialog.tmp .width.min get max def
+
+  /dialog.width dialog.tmp .title get strsize pop dialog.tmp .text.x get 1 add 2 mul add dialog.width max def
+
+  dialog.tmp .ed.text.list get dup {
+    /dialog.width
+      dialog.tmp .ed.width get dialog.tmp .text.x get 1 add 2 mul add 8 add dialog.width max
+    def
+    {
+      strsize
+      /dialog.height exch dialog.height add def
+      /dialog.width exch dialog.tmp .text.x get 1 add 2 mul add dialog.width max def
+    } forall
+  } { pop } ifelse
+
+  dialog.tmp .ed.buffer.list get dup {
+    length lineheight 20 add mul /dialog.height exch dialog.height add def
+  } { pop } ifelse
+
+  /window.buttons dialog.tmp .buttons get def
+
+  /dialog.button.y dialog.height 5 add def
+
+  window.buttons .undef ne { window.buttons length {
+    /dialog.height window.buttons 0 get 3 get dialog.button.y add 8 add def
+  } if } if
+
+  /dialog.y screen.size exch pop dialog.tmp .position get mul 10 div dialog.height sub 2 div 10 max def
+
+  window.buttons .undef ne { window.buttons length {
+    10
+    0 1 window.buttons length 1 sub {
+      window.buttons exch get
+      dup 1 dialog.button.y dialog.y add put
+      2 get 10 add add
+    } for
+
+    dialog.width max /dialog.width exch def
+  } if } if
+
+  % adjust to window size
+  dialog.tmp .ed.width get .undef ne {
+    dialog.tmp .ed.width over over get dialog.width 30 sub max put
+  } if
+
+  /dialog.x screen.size pop dialog.width sub 2 div def
+
+  window.buttons .undef ne { window.buttons length {
+    % calculate button x positions
+    dialog.width 0
+    0 1 window.buttons length 1 sub {
+      window.buttons exch get 2 get add
+    } for
+    sub window.buttons length 1 add div
+    dialog.x over add
+    0 1 window.buttons length 1 sub {
+      window.buttons exch get
+      over over 0 rot put
+      2 get add over add
+    } for
+    pop pop
+  } if } if
+
+  % store values
+
+  dialog.tmp
+  dup .x dialog.x put
+  dup .y dialog.y put
+  dup .width dialog.width put
+  dup .height dialog.height put
+      .button.y dialog.button.y put
+
+  /dialog.tmp .undef def
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Draw dialog window.
+%
+% ( window ) ==> ( )
+%
+/dialog.show {
+  /dialog.tmp exch def
+
+  % put into list early, so drawing functions can access it there
+  dialog.tmp window.push
+
+  % now start drawing
+
+  dialog.tmp .x get 1 sub dialog.tmp .y get 1 sub moveto
+  white black
+  dialog.tmp .width get 2 add dialog.tmp .height get 2 add
+  over over
+  savescreen
+  dialog.tmp .saved rot put
+  drawborder
+
+  dialog.tmp .color.bg get setcolor
+  dialog.tmp .x get dialog.tmp .y get moveto
+  dialog.tmp .width get dialog.tmp .height get fillrect
+
+  dialog.tmp .title.bg get setcolor
+  dialog.tmp .x get 1 add dialog.tmp .y get 1 add moveto
+  dialog.tmp .width get 2 sub dialog.tmp .title.height get 1 sub fillrect
+
+  dialog.tmp .x get 10 add dialog.tmp .y get 3 add moveto
+  dialog.tmp .title.fg get setcolor
+  dialog.tmp .title get show
+
+  dialog.tmp .color.fg get setcolor
+  dialog.tmp .x get dialog.tmp .y get moveto
+  dialog.tmp .text.x get dialog.tmp .text.y get rmoveto
+  dialog.tmp .text get show
+
+  dialog.tmp .ed.text.list get dup {
+    /dialog.tmp.idx 0 def
+    {
+      show
+      dialog.tmp .ed.buffer.list get dialog.tmp.idx get
+
+      dup {
+
+        3 7 rmoveto
+
+        /dialog.tmp.buf [
+          currentpoint
+          dialog.tmp .ed.width get fontheight 2 add savescreen
+          0 0
+          0 0 0
+        ] def
+
+        dialog.tmp.buf 3 2 index put
+        dialog.tmp.buf 4 rot cvp length put
+
+        dialog.tmp .ed.list get dialog.tmp.idx dialog.tmp.buf put
+
+        currentcolor
+        currentpoint over 1 sub over 2 sub moveto
+        black white dialog.tmp .ed.width get 2 add fontheight 5 add drawborder
+        moveto -3 lineheight 20 add 7 sub rmoveto
+        setcolor
+
+        currentfont
+        % hide text in password fields
+        dialog.tmp.idx dialog.tmp .ed.pw_field get eq {
+          dialog.tmp .ed.font get pwmode setfont
+        } if
+        dialog.tmp.buf dup 3 get edit.init
+        setfont
+
+        dialog.tmp .ed.focus get dialog.tmp.idx ne { dialog.tmp.buf edit.hidecursor } if
+
+      } { pop } ifelse
+
+      /dialog.tmp.idx inc
+    } forall
+  } { pop } ifelse
+
+  dialog.tmp .buttons get .undef ne { dialog.tmp .buttons get length {
+    0 1 dialog.tmp .buttons get length 1 sub {
+      dialog.tmp .buttons get exch get button.show
+    } for
+  } if } if
+
+  /dialog.tmp .undef def
+
+} def
+
+
+% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+% Do something without closing the window.
+%
+% ( action ) ==> ( true|false )
+%
+% Returns whether the window still exists.
+%
+/dialog.specialaction {
+  actNoClose not and
+
+  true exch
+
+  dup actEject eq {
+    bootdrive eject pop
+  } if
+
+  dup actPowerOff eq {
+    poweroff
+  } if
+
+  dup actReboot eq {
+    reboot
+  } if
+
+  dup actInstallOK eq {
+    install.ok
+    exch not exch
+  } if
+
+%  dup actInstallCancel eq {
+%    install.cancel
+%    exch not exch
+%  } if
+
+  pop
+} def
+
+