gtk/gtk.spin-button.lisp

   1 (in-package :gtk)
   2
   3 (define-g-enum "GtkSpinType" spin-type ()
   4   (:step-forward 0)
   5   (:step-backward 1) (:page-forward 2) (:page-backward 3)
   6   (:home 4) (:end 5) (:user-defined 6))
   7
   8 (defcfun (spin-button-spin "gtk_spin_button_spin") :void
   9   (spin-button (g-object spin-button))
  10   (direction spin-type)
  11   (increment :double))
  12
  13 (export 'spin-button-spin)
  14
  15 (defcfun (spin-button-update "gtk_spin_button_update") :void
  16   (spin-button (g-object spin-button)))
  17
  18 (export 'spin-button-update)