~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
gtk/gtk.lisp: Apparently when you ask for a stock Button, you get a Bin.
[clg]
/
examples
/
testgtk.lisp
diff --git
a/examples/testgtk.lisp
b/examples/testgtk.lisp
index
da86670
..
04047c2
100644
(file)
--- a/
examples/testgtk.lisp
+++ b/
examples/testgtk.lisp
@@
-1702,7
+1702,7
@@
This one is underlined in quite a funky fashion"
: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
@@
This one is underlined in quite a funky fashion"
: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)