Browse code

fix a parameter declaration

D Herring authored on 2012-06-10 14:25:04
Showing 1 changed files
... ...
@@ -6,6 +6,7 @@
6 6
 (defparameter *editor-frame* nil "Container for the text-editor control")
7 7
 (defparameter *listener* nil "The Lisp listener interface and command interpreter")
8 8
 (defparameter *statusbar* nil "The bar at the bottom of the screen")
9
+(defparameter *buffer-menubar* nil "store a reference to the buffer menubar for listing the open buffers")
9 10
 
10 11
 ;;; allocate sequential filenames for new files
11 12
 (let ((untitled 0))
... ...
@@ -1018,8 +1019,6 @@
1018 1019
     (destructuring-bind (key action) entry
1019 1020
       (add-key-binding ltk::*tk* key action))))
1020 1021
 
1021
-(defparameter *buffer-menubar* nil "store a reference to the buffer menubar for listing the open buffers")
1022
-
1023 1022
 (defun create-menus ()
1024 1023
   (let* ((mb (ltk:make-menubar))
1025 1024
          (mfile (ltk:make-menu mb "File"))