;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Kermit version 35.5
;;; Reason:
;;;  So that's where all the missing commands went.
;;;  
;;;  Kermit hard-coded # of rows in command menu.  Comment says "they can be
;;;  scrolled to".  Hardly.
;;; Written 19-Jul-88 01:11:01 by keith (Keith Corbett) at site Gigamos Cambridge
;;; while running on Breaking Glass from band 3
;;; with System 125.6, ZWEI 125.2, ZMail 73.0, Local-File 75.0, File-Server 24.0, Unix-Interface 13.0, Tape 24.0, Lambda-Diag 17.0, Experimental Kermit 35.4, microcode 1761, SDU Boot Tape 3.14, SDU ROM 103.



; From modified file DJ: L.NETWORK.KERMIT; WINDOW.LISP#76 at 19-Jul-88 01:11:01
#8R KERMIT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "KERMIT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERMIT; WINDOW  "

(defflavor kermit-command-pane ()
	   (tv:top-label-mixin
	    tv:menu-highlighting-mixin
	    tv:command-menu)
  (:documentation
    :special-purpose
    "kermit Command Pane")

  (:default-init-plist
    :borders 3					; 3 on frame + 3 on each pane
    :label command-pane-label
    :columns 2
    :save-bits :delayed
    ;; :rows 6 ; if more items, they can be 'scrolled' to.  >>FOO ON THAT.  Can't even get the cursor.
    :reverse-video-p t
    :default-font fonts:hl12bi
    :item-list all-kermit-command-pane-items))

))