X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/f9b784ebf5abc4f966f6355722795f43e70de7c9..4e79d27ca0ea152e7e6fdc807ccb0d49bf73b0da:/gtk/gtk.lisp?ds=inline

diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp
index fc9d2ca..56b9e0c 100644
--- a/gtk/gtk.lisp
+++ b/gtk/gtk.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: gtk.lisp,v 1.87 2008/01/02 15:57:57 espen Exp $
+;; $Id: gtk.lisp,v 1.88 2008/01/10 22:11:15 espen Exp $
 
 
 (in-package "GTK")
@@ -706,10 +706,13 @@ (defbinding check-menu-item-toggled () nil
 
 ;;; Color selection
 
-(defbinding (color-selection-is-adjusting-p
-	     "gtk_color_selection_is_adjusting") () boolean
+(defbinding color-selection-is-adjusting-p () boolean
   (colorsel color-selection))
 
+(defbinding (color-selection-previous-color
+	     "gtk_color_selection_get_previous_color") () nil
+  (colorsel color-selection)
+  ((make-instance 'gdk:color) gdk:color :in/return))
 
 
 ;;; Color selection dialog -- no functions