summaryrefslogtreecommitdiffstats
path: root/macosx/tkAboutDlg.r
diff options
context:
space:
mode:
Diffstat (limited to 'macosx/tkAboutDlg.r')
-rw-r--r--macosx/tkAboutDlg.r34
1 files changed, 20 insertions, 14 deletions
diff --git a/macosx/tkAboutDlg.r b/macosx/tkAboutDlg.r
index d606220..f573a67 100644
--- a/macosx/tkAboutDlg.r
+++ b/macosx/tkAboutDlg.r
@@ -1,16 +1,15 @@
/*
* tkAboutDlg.r --
*
- * This file creates resources for use in most Tk applications.
- * This is designed to be an example of using the Tcl/Tk
- * libraries in a Macintosh Application.
+ * This file creates resources for the Tk "About Box" dialog.
*
* Copyright (c) 1996 Sun Microsystems, Inc.
+ * Copyright (c) 2006-2007 Daniel A. Steffen <das@users.sourceforge.net>
*
* 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.2.4 2006/04/28 06:02:58 das Exp $
+ * RCS: @(#) $Id: tkAboutDlg.r,v 1.3.2.5 2007/04/29 02:26:47 das Exp $
*/
/*
@@ -26,15 +25,15 @@
/*
* The following two resources define the default "About Box" for Mac Tk.
* This dialog appears if the "About Tk..." menu item is selected from
- * the Apple menu. This dialog may be overridden by defining a Tcl procedure
- * with the name of "tkAboutDialog". If this procedure is defined the
+ * the Apple menu. This dialog may be overridden by defining a Tcl procedure
+ * with the name of "tkAboutDialog". If this procedure is defined the
* default dialog will not be shown and the Tcl procedure is expected to
* create and manage an About Dialog box.
*/
-
+
resource 'DLOG' (128, "About Box", purgeable) {
{60, 40, 332, 404},
- movableDBoxProc,
+ kWindowMovableModalDialogProc,
visible,
noGoAway,
0x0,
@@ -46,19 +45,26 @@ resource 'DLOG' (128, "About Box", purgeable) {
resource 'DITL' (128, "About Box", purgeable) {
{
{232, 147, 252, 217}, Button {enabled, "Ok"},
- { 20, 108, 212, 344}, StaticText {disabled,
- "Tcl " TCL_PATCH_LEVEL " & Tk " TK_PATCH_LEVEL "\n\n"
- "© 2002-2006 Tcl Core Team." "\n\n"
- "© 2002-2006 Daniel A. Steffen." "\n\n"
+ { 20, 108, 212, 344}, StaticText {disabled,
+ "Tcl " TCL_PATCH_LEVEL " & Tk " TK_PATCH_LEVEL "\n\n"
+ "© 2002-2007 Tcl Core Team." "\n\n"
+ "© 2002-2007 Daniel A. Steffen." "\n\n"
"Jim Ingham & Ian Reid" "\n"
- "© 2001-2002 Apple Computer, Inc." "\n\n"
+ "© 2001-2002 Apple Computer, Inc." "\n\n"
"Jim Ingham & Ray Johnson" "\n"
"© 1998-2000 Scriptics Inc." "\n"
- "© 1996-1997 Sun Microsystems Inc."},
+ "© 1996-1997 Sun Microsystems Inc."},
{ 20, 24, 120, 92}, Picture {enabled, 128}
}
};
+resource 'dlgx' (128, "About Box", purgeable) {
+ versionZero {
+ kDialogFlagsUseThemeBackground | kDialogFlagsUseControlHierarchy
+ | kDialogFlagsHandleMovableModal | kDialogFlagsUseThemeControls
+ }
+};
+
data 'PICT' (128, purgeable) {
$"13A4 0000 0000 0064 0044 0011 02FF 0C00"
$"FFFE 0000 0048 0000 0048 0000 0000 0000"