-----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