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