/[gtk-cffi]/gtk-cffi/examples/load-1c-txt.lisp
ViewVC logotype

Diff of /gtk-cffi/examples/load-1c-txt.lisp

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

revision 1.1.1.1 by rklochkov, Mon Apr 25 19:16:08 2011 UTC revision 1.2 by rklochkov, Fri Aug 26 17:16:13 2011 UTC
# Line 10  Line 10 
10    (make-instance 'list-store :columns '(:string :string :string :boolean)))    (make-instance 'list-store :columns '(:string :string :string :boolean)))
11  (defparameter *window* nil)  (defparameter *window* nil)
12    
13  (defconstant +space+ '(#\Space #\Tab #\Newline))  (defconstant +space+
14      (if (boundp '+space+) +space+
15          '(#\Space #\Tab #\Newline)))
16    
17  (defun empty (str)  (defun empty (str)
18    (string=    (string=
# Line 109  Line 111 
111          (setf (text (object-by-id :filename)) (filename d)))          (setf (text (object-by-id :filename)) (filename d)))
112      (destroy d)))      (destroy d)))
113    
114    ;(import 'gtk-cffi::expand)
115  (setf *window*  (setf *window*
116    (gtk-model    (gtk-model
117     'window :width 800     'window :width 800
# Line 133  Line 136 
136                            :signals (list :file-set #'load-file)                            :signals (list :file-set #'load-file)
137                            :id :filename)                            :id :filename)
138      :expand t      :expand t
139      ('v-paned      ('v-paned :vexpand t
140       ('scrolled-window       ('scrolled-window
141        ('tree-view :model *model*        ('tree-view :model *model*
142                    :columns (list "Код ошибки" "Текст"                    :columns (list "Код ошибки" "Текст"
# Line 146  Line 149 
149                                 (setf (text (buffer (object-by-id :text)))                                 (setf (text (buffer (object-by-id :text)))
150                                       (car (model-values model                                       (car (model-values model
151                                                          :iter iter :col 2))))))                                                          :iter iter :col 2))))))
152       ('scrolled-window       ('scrolled-window :vexpand t
153        ('text-view :id :text))))))        ('text-view :id :text :vexpand t))))))
154    
155    
156  (show *window* :all t)  (show *window* :all t)

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

  ViewVC Help
Powered by ViewVC 1.1.5