frame/standard-application-frame: Add a slot for FRAME-PANES

* Not much to see here, really. Just a slot definition with an :ACCESSOR term.
abridgewater · Jul 7, 2015 · 56c52bb · 56c52bb
1 parent 069236a
commit 56c52bb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/frame/standard-application-frame.lisp b/frame/standard-application-frame.lisp
@@ -15,6 +15,7 @@
 
 (defclass standard-application-frame (application-frame
                                       manageable-frame-mixin)
-  ((pretty-name :initarg :pretty-name :accessor frame-pretty-name)))
+  ((pretty-name :initarg :pretty-name :accessor frame-pretty-name)
+   (toplevel-pane :initform nil :accessor frame-panes)))
 
 ;;; EOF