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

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

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

revision 1.1 by rklochkov, Mon Apr 25 19:16:08 2011 UTC revision 1.2 by rklochkov, Mon Aug 8 15:02:01 2011 UTC
# Line 31  Line 31 
31  (cffi:defcallback on-delete :boolean ((widget :pointer)  (cffi:defcallback on-delete :boolean ((widget :pointer)
32                                        (event :pointer)                                        (event :pointer)
33                                        (module gtk-string))                                        (module gtk-string))
34    (declare (ignore widget))    (declare (ignore widget event))
35    (unless (string= module "main")    (unless (string= module "main")
36      (hide (gethash module *apps*))      (hide (gethash module *apps*))
37      (show (gethash "main" *apps*) :all t)      (show (gethash "main" *apps*) :all t)
# Line 115  Line 115 
115                  (setup-app module))) *mods*)                  (setup-app module))) *mods*)
116    
117  (let ((main-dialog (gethash "main" *apps*)))  (let ((main-dialog (gethash "main" *apps*)))
118    ;(show main-dialog :all t)    (show main-dialog :all t)
119    (run main-dialog)    (run main-dialog)
120    (format t "here end~%")    (format t "here end~%")
121    (destroy main-dialog))    (destroy main-dialog))
122    
123    ;; Cleanup after dialog
124    (g-object-cffi::timeout-add :idle #'gtk-main-quit)
125    (gtk-main)
126    
127  ;(setf window (make-instance 'window))  ;(setf window (make-instance 'window))
128    
129  ;(set-border-width window 6)  ;(set-border-width window 6)

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

  ViewVC Help
Powered by ViewVC 1.1.5