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

[Frank Goenninger]

Solved.

Cells no more has md-value slot. The slot is now called value.

Frank

Am 10.12.2006 um 21:25 schrieb 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 :JUSTIF 
> Y
> :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
> _______________________________________________
> cells-devel site list
> cells-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cells-devel