Changeset 6588

Timestamp:

May 20, 2007, 9:13:03 AM (18 years ago)

Author:

Gary Byers

Message:

Fix commit button rectangle.

File:

• branches/ide-1.0/ccl/examples/cocoa-prefs.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/cocoa-prefs.lisp

@@ -156 +156 @@
       (ns:with-ns-rect (revert-frame 20 10 80 20)
         (ns:with-ns-rect (commit-frame (- (+ (ns:ns-rect-x frame)
-                                             (ns:ns-rect-width frame)
-                                             (+ 80.0f0 20.0f0)))
+                                             (ns:ns-rect-width frame))
+                                          (+ 80.0f0 20.0f0))
                                        10 80 20)
         (let* ((commit-button (make-instance