[cells-cvs] CVS cells-gtk3/cells-gtk/test-gtk
phildebrandt
phildebrandt at common-lisp.net
Mon May 5 15:30:14 UTC 2008
Update of /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk
In directory clnet:/tmp/cvs-serv26378/cells-gtk/test-gtk
Modified Files:
test-display.lisp test-entry.lisp test-layout.lisp
Log Message:
ported to the latest cffi, cl-opengl, cl-cairo2
--- /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-display.lisp 2008/04/16 14:41:30 1.3
+++ /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-display.lisp 2008/05/05 15:30:14 1.4
@@ -38,7 +38,8 @@
:on-clicked
(callback (widget event data)
(with-widget (w :statusbar)
- (push-message w (format nil "~a" (fraction (fm-other :pbar)))))))))
+ (with-widget (pbar :pbar)
+ (push-message w (format nil "~a" (fraction pbar)))))))))
(mk-hbox
:kids (kids-list?
(mk-progress-bar :md-name :pbar2
--- /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-entry.lisp 2008/04/13 10:59:20 1.1
+++ /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-entry.lisp 2008/05/05 15:30:14 1.2
@@ -30,21 +30,19 @@
:expand t :fill t
:markup (c? (with-markup (:font-desc "24")
(with-markup (:foreground :blue
- :font-family "Arial"
- :font-desc (if (value (fm-other :spin))
- (truncate (value (fm-other :spin)))
- 10))
- (value (fm-other :entry)))
+ :font-family "Arial"
+ :font-desc (with-widget-value (s :spin :alternative 10)
+ (truncate s)))
+ (widget-value :entry))
(with-markup (:underline :double
- :weight :bold
- :foreground :red
- :font-desc (if (value (fm-other :hscale))
- (truncate (value (fm-other :hscale)))
- 10))
+ :weight :bold
+ :foreground :red
+ :font-desc (with-widget-value (s :hscale :alternative 10)
+ (truncate s)))
"is")
- (with-markup (:strikethrough (value (fm^ :cool)))
+ (with-markup (:strikethrough (widget-value :cool))
"boring")
- (with-markup (:strikethrough (not (value (fm^ :cool))))
+ (with-markup (:strikethrough (not (widget-value :cool)))
"cool!")))
:selectable t)
(mk-entry :md-name :entry :auto-update t :init "Testing"))))
@@ -61,8 +59,8 @@
:init t
:label "Visible")))
(mk-hscale :md-name :hscale
- :visible (c? (value (fm^ :visible)))
- :sensitive (c? (value (fm^ :sensitive)))
+ :visible (c? (widget-value :visible))
+ :sensitive (c? (widget-value :sensitive))
:expand t :fill t
:min 0 :max 100
:init 10)))))))
--- /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-layout.lisp 2008/04/13 10:59:21 1.1
+++ /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-layout.lisp 2008/05/05 15:30:14 1.2
@@ -6,7 +6,7 @@
:expand t :fill t
:scrollable t
:tab-labels (list "_Table" "_Panes" "_Alignment")
- :tab-pos (c? (value (fm-other :tab-pos)))
+ :tab-pos (c? (widget-value :tab-pos))
:kids (kids-list?
(mk-table
:elements (cons
More information about the Cells-cvs
mailing list