From 510fbcc122c6b84b75f21c70992011fe86c53826 Mon Sep 17 00:00:00 2001 Message-Id: <510fbcc122c6b84b75f21c70992011fe86c53826.1714658674.git.mdw@distorted.org.uk> From: Mark Wooding Date: Fri, 25 Feb 2005 23:58:56 +0000 Subject: [PATCH] Changed arguments to SPIN-BUTTON-SPIN Organization: Straylight/Edgeware From: espen --- examples/testgtk.lisp | 10 +++++----- gtk/gtk.lisp | 12 +++++++++--- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index 4cf714a..6393fde 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: testgtk.lisp,v 1.17 2005-02-22 23:14:04 espen Exp $ +;; $Id: testgtk.lisp,v 1.18 2005-02-25 23:58:56 espen Exp $ ;(use-package "GTK") @@ -335,15 +335,15 @@ (define-simple-dialog create-cursors (dialog "Cursors") (signal-connect drawing-area 'button-press-event #'(lambda (event) (case (gdk:event-button event) - (1 (spin-button-spin spinner :step-forward 0.0)) - (3 (spin-button-spin spinner :step-backward 0.0))) + (1 (spin-button-spin spinner :step-forward)) + (3 (spin-button-spin spinner :step-backward))) t)) (signal-connect drawing-area 'scroll-event #'(lambda (event) (case (gdk:event-direction event) - (:up (spin-button-spin spinner :step-forward 0.0)) - (:down (spin-button-spin spinner :step-backward 0.0))) + (:up (spin-button-spin spinner :step-forward)) + (:down (spin-button-spin spinner :step-backward))) t)) (signal-connect spinner 'changed diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index 657655f..6cd1d0e 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtk.lisp,v 1.35 2005-02-22 23:07:35 espen Exp $ +;; $Id: gtk.lisp,v 1.36 2005-02-25 23:58:56 espen Exp $ (in-package "GTK") @@ -1948,10 +1948,16 @@ (defbinding spin-button-get-range () nil (defun spin-button-value-as-int (spin-button) (round (spin-button-value spin-button))) -(defbinding spin-button-spin () nil +(defbinding %spin-button-spin () nil (spin-button spin-button) (direction spin-type) - (increment single-float)) + (increment double-float)) + +(defun spin-button-spin (spin-button value) + (etypecase value + (real (%spin-button-spin spin-button :spin-user-defined value)) + (spin-type (%spin-button-spin spin-button value 0)))) + (defbinding spin-button-update () nil (spin-button spin-button)) -- [mdw]