;; 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.90 2008/02/29 18:34:19 espen Exp $
+;; $Id: gtk.lisp,v 1.94 2008/05/06 00:04:42 espen Exp $
(in-package "GTK")
(format nil "Gtk+ v~A.~A.~A" major minor micro))))
(defun clg-version ()
- "clg 0.93")
+ "clg 0.94")
;;;; Initalization and display handling
(when (and
(find-package "SWANK")
(not (eq (symbol-value (find-symbol "*COMMUNICATION-STYLE*" "SWANK")) style)))
- (error "When running clg in Slime, the communication style ~S must be used in combination with asynchronous event handling on this platform. See the README file and <http://common-lisp.net/project/slime/doc/html/slime_45.html> for more information." style)))
+ (error "When running clg in Slime, the communication style ~S must be used in combination with asynchronous event handling on this platform. See the README file and <http://common-lisp.net/project/slime/doc/html/Communication-style.html> for more information." style)))
#?(or (featurep :cmu) (sbcl< 1 0 6) (sbcl>= 1 0 15 6))
(progn
(defmethod compute-signal-function ((bin bin) signal function object args)
(declare (ignore signal))
(if (eq object :child)
- #'(lambda (&rest emission-args)
- (apply function (bin-child bin) (nconc (rest emission-args) args)))
+ #'(lambda (bin &rest emission-args)
+ (apply function (bin-child bin) (nconc emission-args args)))
(call-next-method)))
icons)
(defbinding %window-set-default-icon () nil
- (icons (glist gdk:pixbuf)))
+ (icon gdk:pixbuf))
(defgeneric (setf window-default-icon) (icon))
(defun spin-button-spin (spin-button value)
(etypecase value
- (real (%spin-button-spin spin-button :spin-user-defined value))
+ (real (%spin-button-spin spin-button :user-defined value))
(spin-type (%spin-button-spin spin-button value 0))))