[cells-devel] Celtk: How to set title of Wish window and also name of app ?

[Goenninger, Frank]

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

-----BEGIN PGP SIGNATURE-----
Version: PGP Desktop 9.0.5 (Build 5050)

iQIVAwUBRC8m8GAKVUddnkqnAQpQhA/9GkwObg42wTUXiS2faUVNEqP57/nS2OqF
++7HRu2s2NCGvanLRCoJZOMVXrsasHE0K7izLCuMJAqF67YDr6UsO8EOJVkPHWIg
ogb6nc5FYO/pAR2MzbuH00JUURs4VSNTc61bC+JV47kzlkt5Uzx1BMNOWZoNWrUs
lPWanXxDNcmlbPmSY6Jz252/kzR3jyGlbQViBqZtPNkkrCuip8Bs39VBqr4iaQRR
LVMisvjas/is3KbBIVlAyLpX2gBvEivPa+oXfTmnG0rWUbfkYKms7EUT9uwWhxVG
TOTP/8eZkFinPtObs/8hUcKNDSPs/4rAzPvH75ioOGZGkM2yAeNC6rTbOgyDvOvh
bEBGhO20e064CmowKfbqZNFBHwmCtVvMopFhSMeaFEwBMPqjutAyWQ0F8/CXd121
BeA6ARRwi80q/hXPy38n80udY6XPkgNlNp7WAKIIoyiqZuaC9TMgik0t+W6WKdnq
qrm1sZ4arT6tkzoBrobShZAk4pTl+k4ukB0wXIhwPPOUHR/mzPJzOKnkEFNtsAXi
b1oF9A6deu8dB25HOv+aNRF6yUUAwf8eUvBhCpIGkfyjP6/hw2h56bgyPkmriH8Y
58BeT8tEoxNQhmoDryWbIRFgIVGjRw1d4D5yo8I6xeXmPXitGymaIDs9AVu9srhp
shYQCEvr3NA=
=+dKG
-----END PGP SIGNATURE-----