[Openmcl-cvs-notifications] r11215 - /trunk/source/cocoa-ide/inspector.lisp

[gb at clozure.com]

Author: gb
Date: Thu Oct 23 17:38:01 2008
New Revision: 11215

Log:
At least a few methods that take (ignored) arguments were missing colons
at the end of their names.

Modified:
    trunk/source/cocoa-ide/inspector.lisp

Modified: trunk/source/cocoa-ide/inspector.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/inspector.lisp (original)
+++ trunk/source/cocoa-ide/inspector.lisp Thu Oct 23 17:38:01 2008
@@ -88,11 +88,11 @@
 (objc:defmethod (#/awakeFromNib :void) ((self ninspector-window-controller=
))
   (with-slots (table-view back-button forward-button refresh-button item-m=
enu) self
     (#/setTarget: back-button self)
-    (#/setAction: back-button (@selector #/goBack))
+    (#/setAction: back-button (@selector #/goBack:))
     (#/setTarget: forward-button self)
-    (#/setAction: forward-button (@selector #/goForward))
+    (#/setAction: forward-button (@selector #/goForward:))
     (#/setTarget: refresh-button self)
-    (#/setAction: refresh-button (@selector #/doRefresh))
+    (#/setAction: refresh-button (@selector #/doRefresh:))
     (#/setTarget: table-view self)
     (#/setDoubleAction: table-view (@selector #/inspectSelectionInPlace:))
     (set-enabled self)
@@ -138,15 +138,15 @@
 (objc:defmethod (#/editSelectionSource: :void) ((wc ninspector-window-cont=
roller) sender)
   (declare (ignore sender)))
 =

-(objc:defmethod (#/goBack :void) ((wc ninspector-window-controller) sender)
+(objc:defmethod (#/goBack: :void) ((wc ninspector-window-controller) sende=
r)
   (declare (ignore sender))
   (set-current-inspector-item wc (- (next-index wc) 2)))
 =

-(objc:defmethod (#/goForward :void) ((wc ninspector-window-controller) sen=
der)
+(objc:defmethod (#/goForward: :void) ((wc ninspector-window-controller) se=
nder)
   (declare (ignore sender))
   (set-current-inspector-item wc (next-index wc)))
 =

-(objc:defmethod (#/doRefresh :void) ((wc ninspector-window-controller) sen=
der)
+(objc:defmethod (#/doRefresh: :void) ((wc ninspector-window-controller) se=
nder)
   (declare (ignore sender))
   (push-inspector-item wc (make-inspector-item (inspector-object (inspecto=
r-item wc)))))
 =