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