[cells-cvs] CVS Celtk

[ktilton]

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)