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

10 Dec 2006


      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