;; 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.92 2008/04/10 20:38:49 espen Exp $
+;; $Id: gtk.lisp,v 1.94 2008/05/06 00:04:42 espen Exp $
(in-package "GTK")
(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))