[cells-cvs] CVS update: cell-cultures/clyde/visual-apropos/visual-apropos.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/clyde/visual-apropos
In directory common-lisp.net:/tmp/cvs-serv14181/clyde/visual-apropos

Modified Files:
	visual-apropos.lisp 
Log Message:

Date: Thu Jul  8 20:53:05 2004
Author: ktilton

Index: cell-cultures/clyde/visual-apropos/visual-apropos.lisp
diff -u cell-cultures/clyde/visual-apropos/visual-apropos.lisp:1.3 cell-cultures/clyde/visual-apropos/visual-apropos.lisp:1.4
--- cell-cultures/clyde/visual-apropos/visual-apropos.lisp:1.3	Tue Jul  6 18:25:41 2004
+++ cell-cultures/clyde/visual-apropos/visual-apropos.lisp	Thu Jul  8 20:53:05 2004
@@ -41,13 +41,13 @@
     :layout (pack-layout? "-side left -fill both -expand 1 -anchor nw")
     :kids  (c? (list
                 (search-for-symbol)
-                (frame-row
+                (mk-frame-row
                  :padx 8
                  :layout (pack-layout? "-side left -fill x")
                  :kids (c? (list
-                            (frame-stack
+                            (mk-frame-stack
                              :kids (c? (list
-                                        (checkbutton :md-name :exported-only
+                                        (mk-checkbutton :md-name :exported-only
                                           :text "Exported Only"
                                           :underline 1
                                           :md-value (c-in nil)
@@ -58,7 +58,7 @@
                 (symbol-list)))))
 
 (defun search-for-symbol ()
-  (frame-row
+  (mk-frame-row
    :relief 'ridge
    :padx 8
    :layout (pack-layout? "-side left -fill x -anchor nw")
@@ -67,12 +67,12 @@
                       (path (kid1 self))
                       (path (second (^kids)))
                       (path (third (^kids)))))
-   :kids (c? (list (label :text "String:"
+   :kids (c? (list (mk-label :text "String:"
                      :underline 4)
-               (entry :md-name :search-string
+               (mk-entry :md-name :search-string
                  :text (c? (symbol-name (sub-symbol (upper self visual-apropos))))
                  :width 64)
-               (button :text "Search"
+               (mk-button :text "Search"
                  :underline 0
                  :command (lambda (self)
                             (setf (symbols (upper self visual-apropos))
@@ -81,17 +81,15 @@
 ; --- symbol package filtering -------------------------------
 
 (defun package-filtering ()
-  (labelframe-row
-   :text " Package(s) to Search "
+  (mk-labelframe-row
+   :text "Package(s) to Search"
    :layout (pack-layout? "-side left -fill x -expand 1")
    :kids (c? (list
-              (checkbutton :md-name :all-pkgs
+              (mk-checkbutton :md-name :all-pkgs
                 :text "All"
                 :underline 1
-                :md-value (c-in t)
-                :command (lambda (self)
-                           (setf (^md-value) (not (^md-value)))))
-              (scrolled-list
+                :md-value (c-in t))
+              (mk-scrolled-list
                :md-name :in-package
                :list-height 4
                :layout (pack-layout? "-side left -fill x -expand 1")
@@ -106,9 +104,9 @@
 ; --- symbol binding filtering ---------------------------------------
 
 (defun show-which-symbols ()
-  (labelframe-selector
+  (mk-labelframe-selector
    :md-name :which-symbols
-   :text " With bindings "
+   :text "With bindings to"
    :tk-variable 'which-symbols
    :layout (c? (format nil "pack ~a -side {left}~:{; grid ~a -column ~d -row ~d -sticky w~}"
                  (path self) (mapcar (lambda (k)
@@ -117,7 +115,7 @@
                                (^kids))))
    :selection (c-in :any)
    :kids (c? (flet ((rb (n)
-                    (radiobutton :md-name n
+                    (mk-radiobutton :md-name n
                       :text (string-capitalize (string n))
                       :tk-variable (tk-variable self)
                       :value n
@@ -126,12 +124,12 @@
              (list (rb :any)(rb :functions)(rb :variables)(rb :classes))))))
 
 (defun symbol-list ()
-  (frame-stack :md-name :symbol-list
+  (mk-frame-stack :md-name :symbol-list
     :layout (pack-layout? "-side top -expand 1 -fill both")
     :width 64
     :background 'red
     :kids (c? (list
-               (frame-row
+               (mk-frame-row
                 :md-name :sym-sort
                 :md-value (c-in nil)
                 :relief 'groove
@@ -151,7 +149,7 @@
                              (va-button :layout nil :text "Var" :padx 5)
                              (va-button :layout nil :text "Class")
                              (va-button :layout nil :text "Exp")))))
-               (scrolled-list
+               (mk-scrolled-list
                 :layout (pack-layout? "-side top -expand 1 -fill both")
                 :width 64
                 :list-height nil