[Swapped argument order of present and accept
clinton@unknownlamer.org**20070911233923
 CLIM present/accept take the arguments (object view) instead of (view
 object), and define-ie-generic for present and accept had the lambda
 list in the (object view) order so I swapped the order in all methods
 and calls to match the probably intended order.
 
 This, naturally, will break all code using the library, but I suspect
 that no one is using it.
] {
hunk ./src/form.lisp 218
-(defmethod present ((view ieview) (e interface-element))
+(defmethod present ((e interface-element) (view ieview))
hunk ./src/form.lisp 224
-(defmethod accept ((view ieview) (e interface-element))
+(defmethod accept ((e interface-element) (view ieview))
hunk ./src/form.lisp 399
-(defmethod accept ((view t) (c composite-element))
+(defmethod accept ((c composite-element) (view t))
hunk ./src/form.lisp 403
-(defmethod present ((view t) (c composite-element))
+(defmethod present ((c composite-element) (view t))
hunk ./src/form.lisp 572
-(defmethod accept ((view ieview) (e text-element))
+(defmethod accept ((e text-element) (view ieview))
hunk ./src/form.lisp 622
-(defmethod accept ((view ieview) (e completing-text-element))
+(defmethod accept ((e completing-text-element) (view ieview))
hunk ./src/form.lisp 649
-(defmethod accept ((view ieview) (e text-area-element))
+(defmethod accept ((e text-area-element) (view ieview))
hunk ./src/form.lisp 687
-(defmethod accept ((view ieview) (e select-element))
+(defmethod accept ((e select-element) (view ieview))
hunk ./src/form.lisp 700
-(defmethod present ((view ieview) (e select-element))
+(defmethod present ((e select-element) (view ieview))
hunk ./src/form.lisp 736
-(defmethod accept ((view ieview) (n number-element))
+(defmethod accept ((n number-element) (view ieview))
hunk ./src/form.lisp 777
-(defmethod accept ((view ieview) (range integer-range-element))
+(defmethod accept ((range integer-range-element) (view ieview))
hunk ./src/form.lisp 796
-(defmethod accept ((view ieview) (e password-element))
+(defmethod accept ((e password-element) (view ieview))
hunk ./src/form.lisp 812
-(defmethod accept ((view ieview) (e checkbox-element))
+(defmethod accept ((e checkbox-element) (view ieview))
hunk ./src/form.lisp 897
-(defmethod accept ((view t) (set set-element))
+(defmethod accept ((set set-element) (view t))
hunk ./src/form.lisp 900
-(defmethod present ((view t) (set set-element))
+(defmethod present ((set set-element) (view t))
hunk ./src/presentations.lisp 70
-  (present t o))
+  (present o t))
hunk ./src/presentations.lisp 72
-(defmethod present ((view t) (pres object-presentation))
+(defmethod present ((pres object-presentation) (view t))
hunk ./src/presentations.lisp 118
-(defmethod present ((view t) (pres one-line-presentation))
+(defmethod present ((pres one-line-presentation) (view t))
hunk ./src/presentations.lisp 144
-  (present t l))
+  (present l t))
hunk ./src/presentations.lisp 151
-(defmethod present ((view t) (listing list-presentation))
+(defmethod present ((listing list-presentation) (view t))
hunk ./src/presentations.lisp 741
-	  (<ucw:option :value option (present t (presentation slot)))))
+	  (<ucw:option :value option (present (presentation slot) t))))
hunk ./src/presentations.lisp 745
-	    (present t (presentation slot)))
+	    (present (presentation slot) t))
hunk ./src/presentations.lisp 805
-                           (present t (presentation slot)))
+                           (present (presentation slot) t))
hunk ./src/presentations.lisp 822
-	    (<ucw:option :value option (present t (presentation slot)))))
+	    (<ucw:option :value option (present (presentation slot) t))))
hunk ./src/presentations.lisp 902
-	(present t (presentation slot))
+	(present (presentation slot) t)
hunk ./src/search-criteria.lisp 133
-(defmethod accept ((view composite-view) (sc search-criteria))
+(defmethod accept ((sc search-criteria) (view composite-view))
hunk ./src/time-element.lisp 230
-(defmethod accept ((view ieview) (e time-element))
+(defmethod accept ((e time-element) (view ieview))
hunk ./src/time-element.lisp 233
-(defmethod present ((view ieview) (e time-element))
+(defmethod present ((e time-element) (view ieview))
}