/[gtk-cffi]/gtk-cffi/examples/ex7.lisp
ViewVC logotype

Diff of /gtk-cffi/examples/ex7.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by rklochkov, Mon Aug 8 15:02:01 2011 UTC revision 1.3 by rklochkov, Fri Aug 26 17:16:13 2011 UTC
# Line 29  Description of this event. And this desc Line 29  Description of this event. And this desc
29        (let ((title (make-instance 'label :text "Use of GtkCellEditable")))        (let ((title (make-instance 'label :text "Use of GtkCellEditable")))
30          (setf (font title) "Times New Roman Italic 12"          (setf (font title) "Times New Roman Italic 12"
31                (color title) "#0000ff"                (color title) "#0000ff"
32                (color title :bg) "#ff0000")                (color title :type :bg) "#ff0000")
33          ;(setf (size-request title) '(-1 40))          ;(setf (size-request title) '(-1 40))
34          (pack v-box title))          (pack v-box title))
35    
# Line 37  Description of this event. And this desc Line 37  Description of this event. And this desc
37                                     '(:string :string)))                                     '(:string :string)))
38               (frame (make-instance 'frame))               (frame (make-instance 'frame))
39               (view (make-instance 'tree-view :model model)))               (view (make-instance 'tree-view :model model)))
40          ;(setf (color view :base :selected) "#ff0000")          (setf (color view :state :selected) "#ff0000")
41          (pack v-box frame :pack-fill nil :expand t)          (pack v-box frame :pack-fill nil :expand t)
42          (pack v-box (make-instance 'label) :pack-fill t :expand t)          (pack v-box (make-instance 'label) :pack-fill t :expand t)
43          (add frame view)          (add frame view)
# Line 98  Description of this event. And this desc Line 98  Description of this event. And this desc
98  (defun set-bold (view column)  (defun set-bold (view column)
99    (format t "set ~A~%" column)    (format t "set ~A~%" column)
100    (loop :for col :in (columns view)    (loop :for col :in (columns view)
101          :for i :from 0 :to 100          :for i :from 0 :to (length (columns view))
102          :do (progn          :do (progn
103                (setf (font (widget col))                (setf (font (widget col))
104                      (if (equal col column)                      (if (equal col column)
# Line 120  Description of this event. And this desc Line 120  Description of this event. And this desc
120                  (iter (path->iter (model view) path)))                  (iter (path->iter (model view) path)))
121              (setf (text (buffer text-view))              (setf (text (buffer text-view))
122                    (car (model-values (model view) :columns '(1) :iter iter)))                    (car (model-values (model view) :columns '(1) :iter iter)))
123              (let ((top-area (v-box dialog)))              (let ((top-area (content-area dialog)))
124                (pack top-area text-view :pack-fill t :expand t)                (pack top-area text-view :pack-fill t :expand t)
125                (show text-view))                (show text-view))
126              (setf (win-position dialog) :center-on-parent)              (setf (window-position dialog) :center-on-parent)
127    
128                ;(pack top-area text-view :fill t :expand t))                ;(pack top-area text-view :fill t :expand t))
129              (run dialog)              (run dialog)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5