Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv31871
Modified Files: button.lisp demos.lisp entry.lisp label.lisp lotsa-widgets.lisp menu.lisp multichoice.lisp text-item.lisp Log Message:
--- /project/cells/cvsroot/Celtk/button.lisp 2006/06/29 09:54:52 1.5 +++ /project/cells/cvsroot/Celtk/button.lisp 2006/11/03 13:37:50 1.6 @@ -27,7 +27,7 @@ -background -bitmap -borderwidth -cursor -disabledforeground (tkfont -font) -foreground -highlightbackground -highlightcolor -highlightthickness -image - -justify + (tk-justify -justify) -padx -pady -relief -repeatdelay -repeatinterval -takefocus -text -textvariable -underline -wraplength @@ -53,7 +53,7 @@ -background -bitmap -borderwidth -compound -cursor -disabledforeground (tkfont -font) -foreground -highlightbackground -highlightcolor -highlightthickness -image - -justify -padx -pady -relief -takefocus -text -textvariable + (tk-justify -justify) -padx -pady -relief -takefocus -text -textvariable -underline -wraplength -command -height -indicatoron -offrelief -overrelief -selectcolor -selectimage -state -tristateimage --- /project/cells/cvsroot/Celtk/demos.lisp 2006/09/05 18:43:22 1.24 +++ /project/cells/cvsroot/Celtk/demos.lisp 2006/11/03 13:37:50 1.25 @@ -172,7 +172,7 @@ :entry-values (c? (subseq (tk-eval-list "font families") 4 10))) (mk-label :text "Four score and seven years ago today, our fathers broguht forth on this continent a new nation..." :wraplength 200 - :justify 'left + :tk-justify 'left :tkfont (c? (list (selection (fm^ :font-face)) 14)))))))) --- /project/cells/cvsroot/Celtk/entry.lisp 2006/09/03 13:39:56 1.15 +++ /project/cells/cvsroot/Celtk/entry.lisp 2006/11/03 13:37:50 1.16 @@ -16,7 +16,7 @@
|#
-;;; $Header: /project/cells/cvsroot/Celtk/entry.lisp,v 1.15 2006/09/03 13:39:56 ktilton Exp $ +;;; $Header: /project/cells/cvsroot/Celtk/entry.lisp,v 1.16 2006/11/03 13:37:50 ktilton Exp $
(in-package :Celtk)
@@ -29,7 +29,7 @@ -disabledforeground -disabledbackground -exportselection (tkfont -font) -foreground -highlightbackground -highlightcolor -highlightthickness -insertbackground -insertborderwidth -insertofftime -insertontime - -insertwidth -justify + -insertwidth (tk-justify -justify) -relief -selectbackground -selectborderwidth -selectforeground -takefocus -textvariable -xscrollcommand --- /project/cells/cvsroot/Celtk/label.lisp 2006/05/24 20:38:54 1.3 +++ /project/cells/cvsroot/Celtk/label.lisp 2006/11/03 13:37:50 1.4 @@ -25,7 +25,7 @@ -background -bitmap -borderwidth -compound -cursor -disabledforeground (tkfont -font) -foreground -highlightbackground -highlightcolor -highlightthickness -image - -justify + (tk-justify -justify) -padx -pady -relief -takefocus -text -textvariable -underline -height -state -width -wraplength) (:default-initargs @@ -40,7 +40,7 @@ -background -bitmap -borderwidth -compound -cursor -disabledforeground (tkfont -font) -foreground -highlightbackground -highlightcolor -highlightthickness -image - -justify + (tk-justify -justify) -padx -pady -relief -takefocus -text -textvariable -underline -wraplength -width -state -height) --- /project/cells/cvsroot/Celtk/lotsa-widgets.lisp 2006/07/03 01:31:38 1.5 +++ /project/cells/cvsroot/Celtk/lotsa-widgets.lisp 2006/11/03 13:37:50 1.6 @@ -198,7 +198,7 @@
(mk-label :text "Four score and seven years ago today, our fathers broguht forth on this continent a new nation..." :wraplength 200 - :justify 'left + :tk-justify 'left :tkfont (c? (list (selection (fm^ :font-face)) (md-value (fm^ :font-size))))))) --- /project/cells/cvsroot/Celtk/menu.lisp 2006/05/24 20:38:54 1.16 +++ /project/cells/cvsroot/Celtk/menu.lisp 2006/11/03 13:37:50 1.17 @@ -242,7 +242,7 @@ (:tk-spec menubutton -activebackground -activeforeground -anchor -background -bitmap -borderwidth -cursor -disabledforeground (tkfont -font) -foreground -highlightbackground -highlightcolor - -highlightthickness -image -justify -padx + -highlightthickness -image (tk-justify -justify) -padx -pady -relief -takefocus -text -textvariable -underline -wraplength -compound -direction -height -indicatoron --- /project/cells/cvsroot/Celtk/multichoice.lisp 2006/06/07 22:13:41 1.10 +++ /project/cells/cvsroot/Celtk/multichoice.lisp 2006/11/03 13:37:50 1.11 @@ -98,7 +98,7 @@ -command -invalidcommand -increment -highlightbackground -highlightcolor -highlightthickness -insertbackground -insertborderwidth -insertofftime -insertontime - -insertwidth -jump -justify -orient + -insertwidth -jump (tk-justify -justify) -orient -padx -pady -relief -repeatdelay -repeatinterval -selectbackground -selectborderwidth -selectforeground -readonlybackground -state -to --- /project/cells/cvsroot/Celtk/text-item.lisp 2006/05/24 20:38:54 1.3 +++ /project/cells/cvsroot/Celtk/text-item.lisp 2006/11/03 13:37:50 1.4 @@ -33,7 +33,7 @@ ;; -- special --- -anchor (tkfont -font) - -justify + (tk-justify -justify) -text -underline -width)
-
ktilton