Changes required by CLISP

[clg] / examples / testdnd.lisp

diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index d796fd79be2d739d1672105129e3e37db6051651..1d7c8162054f496c3776f94a1fcaa21efebb2edf 100644 (file)
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -1,7 +1,7 @@
 ;;;; Translation of dragndrop.py from the PyGTK 2.0 Tutorial
 
 #+sbcl(require :gtk)
 ;;;; Translation of dragndrop.py from the PyGTK 2.0 Tutorial
 
 #+sbcl(require :gtk)

-#+cmu(asdf:oos 'asdf:load-op :gtk)
+#+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk)

 
 (defpackage "TESTDND"
   (:use "COMMON-LISP" "GTK")
 
 (defpackage "TESTDND"
   (:use "COMMON-LISP" "GTK")


@@ -70,8 +70,6 @@ (defvar to-button
 (defvar to-canvas 
   (make-instance 'target-entry :target "image/png" :id *target-type-image*))
 
 (defvar to-canvas 
   (make-instance 'target-entry :target "image/png" :id *target-type-image*))
 

-
-

 (defun add-image (layout pixbuf xd yd)
   (let ((button (make-instance 'button
                 :child (make-instance 'image :pixbuf pixbuf))))
 (defun add-image (layout pixbuf xd yd)
   (let ((button (make-instance 'button
                 :child (make-instance 'image :pixbuf pixbuf))))


@@ -84,12 +82,14 @@ (defun add-image (layout pixbuf xd yd)
          ((= target-type *target-type-text*)
           (selection-data-set-text selection 
            #+cmu(ext:format-universal-time nil (get-universal-time) :style :rfc1123 :print-timezone nil)
          ((= target-type *target-type-text*)
           (selection-data-set-text selection 
            #+cmu(ext:format-universal-time nil (get-universal-time) :style :rfc1123 :print-timezone nil)

-           #+sbcl(sb-int:format-universal-time nil (get-universal-time) :style :abbreviated :print-timezone nil)))
+           #+sbcl(sb-int:format-universal-time nil (get-universal-time) :style :abbreviated :print-timezone nil)
+           #+clisp(os:string-time "%x %X")
+           #-(or cmu sbcl clisp)(format nil "~D" (get-universal-time))))

          ((= target-type *target-type-image*)
           (selection-data-set-pixbuf selection pixbuf)))))
      
     (drag-source-set button :button1 from-image :copy)
          ((= target-type *target-type-image*)
           (selection-data-set-pixbuf selection pixbuf)))))
      
     (drag-source-set button :button1 from-image :copy)

-      
+ 

     (with-slots (hadjustment vadjustment) layout
       (layout-put layout button
        (truncate (+ xd (adjustment-value hadjustment)))
     (with-slots (hadjustment vadjustment) layout
       (layout-put layout button
        (truncate (+ xd (adjustment-value hadjustment)))