diff options
author | das <das> | 2003-03-21 01:43:58 (GMT) |
---|---|---|
committer | das <das> | 2003-03-21 01:43:58 (GMT) |
commit | 35cd800f83d7cf7302bcc77410a50538c94ef6fb (patch) | |
tree | 6a9d08e401a15a9cff08c0067e09b1f3a9b2ff04 /macosx/tkAboutDlg.r | |
parent | 8eb6885da045f991fdf042d6cf49f64179e08e99 (diff) | |
download | tk-35cd800f83d7cf7302bcc77410a50538c94ef6fb.zip tk-35cd800f83d7cf7302bcc77410a50538c94ef6fb.tar.gz tk-35cd800f83d7cf7302bcc77410a50538c94ef6fb.tar.bz2 |
* macosx/tkMacOSXApplication.r (removed):
* macosx/tkMacOSXLibrary.r (removed):
* macosx/tkMacOSXResource.r (removed):
* macosx/Wish.pbproj/project.pbxproj:
* macosx/tkAboutDlg.r: updated copyrights, cleaned up about box,
removed obsolete unused resource files.
* macosx/buildTkConfig.tcl: TK_DEFS space fix.
Diffstat (limited to 'macosx/tkAboutDlg.r')
-rw-r--r-- | macosx/tkAboutDlg.r | 58 |
1 files changed, 21 insertions, 37 deletions
diff --git a/macosx/tkAboutDlg.r b/macosx/tkAboutDlg.r index b60f09a..2935951 100644 --- a/macosx/tkAboutDlg.r +++ b/macosx/tkAboutDlg.r @@ -10,19 +10,9 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkAboutDlg.r,v 1.3 2002/09/12 17:34:16 das Exp $ + * RCS: @(#) $Id: tkAboutDlg.r,v 1.4 2003/03/21 01:43:58 das Exp $ */ - - -/* - * New style DLOG templates have an extra field for the positioning - * options for the Dialog Box. We will not use this, for now, so we - * turn it off here. - */ - -#define DLOG_RezTemplateVersion 0 - /* * The folowing include and defines help construct * the version string for Tcl. @@ -33,22 +23,6 @@ #include <tcl.h> #include "tk.h" -#if (TK_RELEASE_LEVEL == 0) -# define RELEASE_LEVEL alpha -#elif (TK_RELEASE_LEVEL == 1) -# define RELEASE_LEVEL beta -#elif (TK_RELEASE_LEVEL == 2) -# define RELEASE_LEVEL final -#endif - -#if (TK_RELEASE_LEVEL == 2) -# define MINOR_VERSION (TK_MINOR_VERSION * 16) + TK_RELEASE_SERIAL -#else -# define MINOR_VERSION TK_MINOR_VERSION * 16 -#endif - -#define RELEASE_CODE 0x00 - /* * The following two resources define the default "About Box" for Mac Tk. * This dialog appears if the "About Tk..." menu item is selected from @@ -58,19 +32,29 @@ * create and manage an About Dialog box. */ -data 'DLOG' (128, "Default About Box", purgeable) { - $"0055 006B 00F3 0196 0001 0100 0100 0000" - $"0000 0081 0000 280A" +resource 'DLOG' (128, "About Box", purgeable) { + {60, 40, 300, 404}, + movableDBoxProc, + visible, + noGoAway, + 0x0, + 128, + "About Tcl & Tk", + centerMainScreen }; -resource 'DITL' (129, "About Box", purgeable) { +resource 'DITL' (128, "About Box", purgeable) { { - {128, 128, 148, 186}, Button {enabled, "Ok"}, - { 14, 108, 117, 298}, StaticText {disabled, - "Wish - Windowing Shell" "\n" "based on Tcl " - TCL_PATCH_LEVEL " & Tk " TK_PATCH_LEVEL "\n\n" "Jim Ingham & Ray Johnson" - "Scriptics Inc." "\n" "jingham@cygnus.com"}, - { 11, 24, 111, 92}, Picture {enabled, 128} + {200, 147, 220, 217}, Button {enabled, "Ok"}, + { 20, 108, 180, 344}, StaticText {disabled, + "Tcl " TCL_PATCH_LEVEL " & Tk " TK_PATCH_LEVEL "\n\n" + "© 2003 Tcl Core Team." "\n\n" + "Jim Ingham & Ian Reid" "\n" + "© 2001-2002 Apple Computer, Inc." "\n\n" + "Jim Ingham & Ray Johnson" "\n" + "© 1998-2000 Scriptics Inc." "\n" + "© 1996-1997 Sun Microsystems Inc."}, + { 20, 24, 120, 92}, Picture {enabled, 128} } }; |