-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512
Hi Kenny and all others:
I do have the following mini app now:
- -x-x-x-x-x-
(defmodel psu-rc-app (window) () (:default-initargs :id :psu-rc-app-w :title$ "System Power Supply Remote Control (Version A.01.00)" :kids (c? (the-kids (app-menubar)))))
;; THIS IS HOW I SET THE TITLE OF THE WISH SHELL WINDOW ;; Any better way?
(defmethod initialize-instance :after ((self psu-rc-app) &key) (tk-format '(:configure "title") "wm title . HI"))
(defun app-menubar () (mk-menubar :id :psu-rc-menu-bar :kids (c? (the-kids (mk-menu-entry-cascade-ex (:label "File") (mk-menu-entry-separator) (mk-menu-entry-command :label "Quit" :command "exit"))))))
(defun run-psu-rc-app () (cells-reset 'tk-user-queue-handler) (tk-test-class 'psu-rc-app))
- -x-x-x-x-x-
Hmm - now I wonder if this is really the right way to set the title of the window ...
Next question: On the Mac there is the Application name displayed in the top left corner when an app gets activated. This always says "Wish" which is something I want to set to the my own application name .. Purely a Mac and Tcl/Tk problem but ...
Thanks for any feedback.
Cheers!
Frank