Changeset 856

Timestamp:

Aug 2, 2004, 9:56:44 PM (20 years ago)

Author:

Gary Byers

Message:

Remove subviews from hemlock-frame (window) before closing it.

File:

• trunk/ccl/examples/cocoa-editor.lisp (modified) (2 diffs)

trunk/ccl/examples/cocoa-editor.lisp

@@ -1175 +1175 @@
   (:metaclass ns:+ns-object))
 
+
 (defun double-%-in (string)
   ;; Replace any % characters in string with %%, to keep them from
@@ -1281 +1282 @@
 
 (define-objc-method ((:void close) hemlock-frame)
+  (let* ((content-view (send self 'content-view))
+         (subviews (send content-view 'subviews)))
+    (do* ((i (1- (send subviews 'count)) (1- i)))
+         ((< i 0))
+      (send (send subviews :object-at-index i)
+            'remove-from-superview-without-needing-display)))
   (let* ((proc (slot-value self 'command-thread)))
     (when proc