chiark
/
gitweb
/
~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gtk/gtk.lisp: Make (dialog-run) return the response symbolically.
[clg]
/
examples
/
testgtk.lisp
diff --git
a/examples/testgtk.lisp
b/examples/testgtk.lisp
index a4bd8ef97bd36d1eb8da8b99cb24da52254bfe06..04047c25455c675c482e7080f39e655f107f7107 100644
(file)
--- a/
examples/testgtk.lisp
+++ b/
examples/testgtk.lisp
@@
-27,7
+27,7
@@
;; should probably be considered as being GPL'ed.
;; should probably be considered as being GPL'ed.
-;; $Id: testgtk.lisp,v 1.4
3 2008-03-20 16:05:31
espen Exp $
+;; $Id: testgtk.lisp,v 1.4
4 2008-12-09 19:37:19
espen Exp $
#+sbcl(require :gtk)
#+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk)
#+sbcl(require :gtk)
#+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk)
@@
-951,8
+951,8
@@
(defun create-notebook-page (notebook page-num book-closed)
(define-simple-dialog create-notebook (dialog "Notebook")
(let ((main (make-instance 'v-box :parent dialog)))
(define-simple-dialog create-notebook (dialog "Notebook")
(let ((main (make-instance 'v-box :parent dialog)))
- (let ((book-open (
gdk:pixbuf-new-from-xpm-data
book-open-xpm))
- (book-closed (
gdk:pixbuf-new-from-xpm-data
book-closed-xpm))
+ (let ((book-open (
make-instance 'gdk:pixbuf :source
book-open-xpm))
+ (book-closed (
make-instance 'gdk:pixbuf :source
book-closed-xpm))
(notebook (make-instance 'notebook
:border-width 10 :tab-pos :top :parent main)))
(notebook (make-instance 'notebook
:border-width 10 :tab-pos :top :parent main)))
@@
-1702,7
+1702,7
@@
(defun create-toolbar (window)
:tip-private "Toolbar/Horizontal"
:signal (list 'clicked
#'(lambda (toolbar)
:tip-private "Toolbar/Horizontal"
:signal (list 'clicked
#'(lambda (toolbar)
- (setf (
toolbar
-orientation toolbar) :horizontal))
+ (setf (
orientable
-orientation toolbar) :horizontal))
:object :parent))
:child (make-instance 'tool-button
:object :parent))
:child (make-instance 'tool-button
@@
-1711,7
+1711,7
@@
(defun create-toolbar (window)
:tip-private "Toolbar/Vertical"
:signal (list 'clicked
#'(lambda (toolbar)
:tip-private "Toolbar/Vertical"
:signal (list 'clicked
#'(lambda (toolbar)
- (setf (
toolbar
-orientation toolbar) :vertical))
+ (setf (
orientable
-orientation toolbar) :vertical))
:object :parent))
:child (make-instance 'separator-tool-item)
:object :parent))
:child (make-instance 'separator-tool-item)
@@
-1920,7
+1920,7
@@
(defun create-main-window (&optional display)
("cursors" create-cursors)
("dialog" create-dialog)
("entry" create-entry)
("cursors" create-cursors)
("dialog" create-dialog)
("entry" create-entry)
- ("e
n
xpander" create-expander)
+ ("expander" create-expander)
("file chooser" create-file-chooser)
("font selection" create-font-selection)
("handle box" create-handle-box)
("file chooser" create-file-chooser)
("font selection" create-font-selection)
("handle box" create-handle-box)