[cells-gtk-devel] Re: Re: trivial patches

[Matthew D. Swank]

On Mon, 31 Dec 2007 12:30:29 -0500, Peter Denno wrote:

>> Could I resubmit 4 patches from July? or did I also get commit
>> access?
> 
> I'm pretty sure these have been committed, but for the next few days I 
> don't have access to the computer that has my old email on it, so I 
> can't look back at what this is about.
> 
> What are these changes?

Typo fix.

Index: cells-gtk/entry.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/entry.lisp,v
retrieving revision 1.4
diff -u -r1.4 entry.lisp
--- cells-gtk/entry.lisp	12 Feb 2005 14:48:19 -0000	1.4
+++ cells-gtk/entry.lisp	30 Dec 2007 19:10:57 -0000
@@ -25,14 +25,14 @@
 
 #+no
 (def-gtk widget entry nil
-         ((auto-update :accessor auto-update :initarg :auto-aupdate :initform nil)
+         ((auto-update :accessor auto-update :initarg :auto-update :initform nil)
           (completion :accessor completion :initarg :completion :initform nil)
           (text :accessor text :initarg :text :initform (c-in nil))
           (init :accessor init :initarg :init :initform nil))
          (editable has-frame max-length) (changed activate))
 
 (def-widget entry ()
-  ((auto-update :accessor auto-update :initarg :auto-aupdate :initform nil)
+  ((auto-update :accessor auto-update :initarg :auto-update :initform nil)
    (completion :accessor completion :initarg :completion :initform nil)
    (text :accessor text :initarg :text :initform (c-in nil))
    (init :accessor init :initarg :init :initform nil))

Index: cells-gtk/test-gtk/test-dialogs.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-dialogs.lisp,v
retrieving revision 1.2
diff -u -r1.2 cells-gtk/test-gtk/test-dialogs.lisp
--- cells-gtk/test-gtk/test-dialogs.lisp	27 Feb 2005 03:17:28 -0000	1.2
+++ cells-gtk/test-gtk/test-dialogs.lisp	8 Jan 2008 07:29:41 -0000
@@ -42,7 +42,7 @@
                                        :title "My Title"
                                        :message-type :question
                                        :buttons-type :ok-cancel
-                                       :content-area (mk-entry :auto-aupdate t)))))
+                                       :content-area (mk-entry :auto-update t)))))
                                (setf (text (fm^ :message-response)) (md-value dialog))))))
                (loop for message-type in '(:info :warning :question :error) collect
                     (make-instance 'test-message :message-type message-type))))
Index: cells-gtk/test-gtk/test-entry.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-entry.lisp,v
retrieving revision 1.2
diff -u -r1.2 cells-gtk/test-gtk/test-entry.lisp
--- cells-gtk/test-gtk/test-entry.lisp	5 Dec 2004 06:33:31 -0000	1.2
+++ cells-gtk/test-gtk/test-entry.lisp	8 Jan 2008 07:29:41 -0000
@@ -47,7 +47,7 @@
                       (with-markup (:strikethrough (not (md-value (fm^ :cool))))
                         "cool!")))
         :selectable t)
-       (mk-entry :md-name :entry :auto-aupdate t :init "Testing"))))
+       (mk-entry :md-name :entry :auto-update t :init "Testing"))))
 
 (defun test-entry-2 ()
   (c? (list