[cells-devel] Celtk: strange error for mk-entry after CVS update ...

[Frank Goenninger]

Hi Kenny,

after doing an update (yes, I risked it) from CVS I get the following  
error:

:MD-VALUE is an invalid initarg to make-instance of class
#<STANDARD-CLASS CTK:ENTRY>. The valid initargs are :WIDTH
:VALIDATECOMMAND :VALIDATE :STATE :SHOW :READONLYBACKGROUND
:INVALIDCOMMAND :XSCROLLCOMMAND :TEXTVARIABLE :TAKEFOCUS
:SELECTFOREGROUND :SELECTBORDERWIDTH :SELECTBACKGROUND :RELIEF :JUSTIFY
:INSERTWIDTH :INSERTONTIME :INSERTOFFTIME :INSERTBORDERWIDTH
:INSERTBACKGROUND :HIGHLIGHTTHICKNESS :HIGHLIGHTCOLOR
:HIGHLIGHTBACKGROUND :FOREGROUND :TKFONT :EXPORTSELECTION
:DISABLEDBACKGROUND :DISABLEDFOREGROUND :CURSOR :BORDERWIDTH
:BACKGROUND :TEXT :SELECTOR :IMAGE-FILES :MENUS :EVENT-HANDLER :ENABLED
:RELY :RELX :PARENT-Y :PARENT-X :GRIDDING :PACKING :PATH :KIDS
:KID-SLOTS :USER-ERRORS :ON-KEY-UP :ON-KEY-DOWN :ON-COMMAND :TIMERS
:TK-CLASS :MD-NAME :ID :VALUE :AWAKEN-ON-INIT-P :FM-PARENT.
    [Condition of type PROGRAM-ERROR]

I haven't changed my rather simple code:

(defmodel tibrv-console (window)
   ()
   (:default-initargs
     :id :tibrv-console
     :title$ "*** GT::TIBCO Rendezvous Console - X.01.00 ***"
     :kids (c? (the-kids
	        ;;(main-menubar)
	        (mk-stack (:packing (c?pack-self))
		  (mk-row ()
		    (mk-stack ()
		      (mk-label :text "FIELD")
		      (mk-row ()
		        (mk-label :text "Name: "
			 	  :width 8)
		        (mk-entry :id :name-entry
				  :width 28
				  :md-value (c-in "frgo"))
		        (mk-button-ex
			   ( "Add Null Field"
			     (format t "~%*** Button ADD NULL pressed.")
			   ))
		        (mk-button-ex
			   ( "Add Field"
			     (format t "~%*** Button ADD FIELD pressed.")
			   )))
		    (mk-row ()
		      (mk-label :text "Type: "
				:width 8)
		      (mk-entry :id :type-entry
				:width 28)
		      (mk-button-ex
			( "Set to Null"
			  (format t "~%*** Button SET NULL pressed.")))
		      (mk-button-ex
			( "Update Field"
			  (format t "~%*** Button UPDATE FIELD pressed."))))
		    (mk-row ()
		      (mk-label :text "Data: "
				:width 8)
		      (mk-entry :id :data-entry
				:width 40)
		      (mk-button-ex
			( "Remove Field"
			  (format t "~%*** Button REMOVE FIELD pressed."))))
		    )))))))


Does that ring a bell? Any ideas?

Thx!

Frank