From 476522a040d78b0b4b92fecf3c8f6395cad82a9f Mon Sep 17 00:00:00 2001 Message-Id: <476522a040d78b0b4b92fecf3c8f6395cad82a9f.1714878224.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sat, 3 Mar 2012 22:21:37 +0000 Subject: [PATCH] Port from toolbar-orientation to orientable-orientation Organization: Straylight/Edgeware From: Rupert Swarbrick Old version deprecated since Gtk 2.16 --- examples/testgtk.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index da86670..04047c2 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -1702,7 +1702,7 @@ (defun create-toolbar (window) :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 @@ -1711,7 +1711,7 @@ (defun create-toolbar (window) :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) -- [mdw]