From b005692626114046d66e41007ca961c340a8fc40 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 20 Dec 2023 11:48:31 +0000 Subject: remove tkUnixDialog.c, since it's no longer used --- macosx/Tk.xcodeproj/project.pbxproj | 4 - unix/tkUnixDialog.c | 193 ------------------------------------ 2 files changed, 197 deletions(-) delete mode 100644 unix/tkUnixDialog.c diff --git a/macosx/Tk.xcodeproj/project.pbxproj b/macosx/Tk.xcodeproj/project.pbxproj index a014934..f7cff46 100644 --- a/macosx/Tk.xcodeproj/project.pbxproj +++ b/macosx/Tk.xcodeproj/project.pbxproj @@ -594,7 +594,6 @@ F9FD32030CC1ADB70073837D /* tkUnixMenu.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8808F27A3D005CB29B /* tkUnixMenu.c */; }; F9FD32040CC1ADB70073837D /* tkUnixConfig.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */; }; F9FD32050CC1ADB70073837D /* tkUnixDraw.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8008F27A3D005CB29B /* tkUnixDraw.c */; }; - F9FD32060CC1ADB70073837D /* tkUnixDialog.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */; }; F9FD32070CC1ADB70073837D /* tkUnixSelect.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8E08F27A3D005CB29B /* tkUnixSelect.c */; }; F9FD32080CC1ADB70073837D /* tkUnixEvent.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8208F27A3D005CB29B /* tkUnixEvent.c */; }; F9FD32090CC1ADB70073837D /* tkUnixColor.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7B08F27A3D005CB29B /* tkUnixColor.c */; }; @@ -1181,7 +1180,6 @@ F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixConfig.c; sourceTree = ""; }; F966BC7D08F27A3D005CB29B /* tkUnixCursor.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixCursor.c; sourceTree = ""; }; F966BC7E08F27A3D005CB29B /* tkUnixDefault.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = tkUnixDefault.h; sourceTree = ""; }; - F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixDialog.c; sourceTree = ""; }; F966BC8008F27A3D005CB29B /* tkUnixDraw.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixDraw.c; sourceTree = ""; }; F966BC8108F27A3D005CB29B /* tkUnixEmbed.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixEmbed.c; sourceTree = ""; }; F966BC8208F27A3D005CB29B /* tkUnixEvent.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixEvent.c; sourceTree = ""; }; @@ -2742,7 +2740,6 @@ F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */, F966BC7D08F27A3D005CB29B /* tkUnixCursor.c */, F966BC7E08F27A3D005CB29B /* tkUnixDefault.h */, - F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */, F966BC8008F27A3D005CB29B /* tkUnixDraw.c */, F966BC8108F27A3D005CB29B /* tkUnixEmbed.c */, F966BC8208F27A3D005CB29B /* tkUnixEvent.c */, @@ -4625,7 +4622,6 @@ F9FD32090CC1ADB70073837D /* tkUnixColor.c in Sources */, F9FD32040CC1ADB70073837D /* tkUnixConfig.c in Sources */, F9FD31F80CC1ADB70073837D /* tkUnixCursor.c in Sources */, - F9FD32060CC1ADB70073837D /* tkUnixDialog.c in Sources */, F9FD32050CC1ADB70073837D /* tkUnixDraw.c in Sources */, F9FD31FD0CC1ADB70073837D /* tkUnixEmbed.c in Sources */, F9FD32080CC1ADB70073837D /* tkUnixEvent.c in Sources */, diff --git a/unix/tkUnixDialog.c b/unix/tkUnixDialog.c deleted file mode 100644 index 6ed42e4..0000000 --- a/unix/tkUnixDialog.c +++ /dev/null @@ -1,193 +0,0 @@ -/* - * tkUnixDialog.c -- - * - * Contains the Unix implementation of the common dialog boxes: - * - * Copyright © 1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#include "tkUnixInt.h" - -/* - * The wrapper code for Unix is actually set up in library/tk.tcl these days; - * the procedure names used here are probably wrong too... - */ - -#ifdef TK_OBSOLETE_UNIX_DIALOG_WRAPPERS - -/* - *---------------------------------------------------------------------- - * - * EvalObjv -- - * - * Invokes the Tcl procedure with the arguments. - * - * Results: - * Returns the result of the evaluation of the command. - * - * Side effects: - * The command may be autoloaded. - * - *---------------------------------------------------------------------- - */ - -static int -EvalObjv( - Tcl_Interp *interp, /* Current interpreter. */ - char *cmdName, /* Name of the TCL command to call */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - Tcl_Obj *cmdObj, **objs; - int result; - - cmdObj = Tcl_NewStringObj(cmdName, TCL_INDEX_NONE); - Tcl_IncrRefCount(cmdObj); - objs = (Tcl_Obj **)ckalloc(sizeof(Tcl_Obj *) * (objc+1)); - objs[0] = cmdObj; - memcpy(objs+1, objv, sizeof(Tcl_Obj *) * (unsigned)objc); - - result = Tcl_EvalObjv(interp, objc+1, objs, 0); - - Tcl_DecrRefCount(cmdObj); - ckfree(objs); - - return result; -} - -/* - *---------------------------------------------------------------------- - * - * Tk_ChooseColorObjCmd -- - * - * This procedure implements the color dialog box for the Unix platform. - * See the user documentation for details on what it does. - * - * Results: - * See user documentation. - * - * Side effects: - * A dialog window is created the first time this procedure is called. - * This window is not destroyed and will be reused the next time the - * application invokes the "tk_chooseColor" command. - * - *---------------------------------------------------------------------- - */ - -int -Tk_ChooseColorObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - return EvalObjv(interp, "tk::ColorDialog", objc-1, objv+1); -} - -/* - *---------------------------------------------------------------------- - * - * Tk_GetOpenFileCmd -- - * - * This procedure implements the "open file" dialog box for the Unix - * platform. See the user documentation for details on what it does. - * - * Results: - * See user documentation. - * - * Side effects: - * A dialog window is created the first this procedure is called. This - * window is not destroyed and will be reused the next time the - * application invokes the "tk_getOpenFile" or "tk_getSaveFile" command. - * - *---------------------------------------------------------------------- - */ - -int -Tk_GetOpenFileObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - Tk_Window tkwin = clientData; - - if (Tk_StrictMotif(tkwin)) { - return EvalObjv(interp, "tk::MotifOpenFDialog", objc-1, objv+1); - } else { - return EvalObjv(interp, "tk::OpenFDialog", objc-1, objv+1); - } -} - -/* - *---------------------------------------------------------------------- - * - * Tk_GetSaveFileCmd -- - * - * Same as Tk_GetOpenFileCmd but opens a "save file" dialog box instead. - * - * Results: - * Same as Tk_GetOpenFileCmd. - * - * Side effects: - * Same as Tk_GetOpenFileCmd. - * - *---------------------------------------------------------------------- - */ - -int -Tk_GetSaveFileObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - Tk_Window tkwin = clientData; - - if (Tk_StrictMotif(tkwin)) { - return EvalObjv(interp, "tk::MotifSaveFDialog", objc-1, objv+1); - } else { - return EvalObjv(interp, "tk::SaveFDialog", objc-1, objv+1); - } -} - -/* - *---------------------------------------------------------------------- - * - * Tk_MessageBoxCmd -- - * - * This procedure implements the MessageBox window for the Unix - * platform. See the user documentation for details on what it does. - * - * Results: - * See user documentation. - * - * Side effects: - * None. The MessageBox window will be destroyed before this procedure - * returns. - * - *---------------------------------------------------------------------- - */ - -int -Tk_MessageBoxCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - return EvalObjv(interp, "tk::MessageBox", objc-1, objv+1); -} - -#endif /* TK_OBSOLETE_UNIX_DIALOG_WRAPPERS */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ -- cgit v0.12 From 9b52a2693d77fde18f13bf3c11f5390382127a5f Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 20 Dec 2023 12:01:07 +0000 Subject: (cherry-pick): remove tkUnixDialog.c, since it's no longer used --- macosx/Tk.xcode/project.pbxproj | 4 - macosx/Tk.xcodeproj/project.pbxproj | 4 - unix/tkUnixDialog.c | 193 ------------------------------------ 3 files changed, 201 deletions(-) delete mode 100644 unix/tkUnixDialog.c diff --git a/macosx/Tk.xcode/project.pbxproj b/macosx/Tk.xcode/project.pbxproj index c93b15b..8aa4c1f 100644 --- a/macosx/Tk.xcode/project.pbxproj +++ b/macosx/Tk.xcode/project.pbxproj @@ -596,7 +596,6 @@ F9FD32030CC1ADB70073837D /* tkUnixMenu.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8808F27A3D005CB29B /* tkUnixMenu.c */; }; F9FD32040CC1ADB70073837D /* tkUnixConfig.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */; }; F9FD32050CC1ADB70073837D /* tkUnixDraw.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8008F27A3D005CB29B /* tkUnixDraw.c */; }; - F9FD32060CC1ADB70073837D /* tkUnixDialog.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */; }; F9FD32070CC1ADB70073837D /* tkUnixSelect.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8E08F27A3D005CB29B /* tkUnixSelect.c */; }; F9FD32080CC1ADB70073837D /* tkUnixEvent.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8208F27A3D005CB29B /* tkUnixEvent.c */; }; F9FD32090CC1ADB70073837D /* tkUnixColor.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7B08F27A3D005CB29B /* tkUnixColor.c */; }; @@ -1189,7 +1188,6 @@ F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixConfig.c; sourceTree = ""; }; F966BC7D08F27A3D005CB29B /* tkUnixCursor.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixCursor.c; sourceTree = ""; }; F966BC7E08F27A3D005CB29B /* tkUnixDefault.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = tkUnixDefault.h; sourceTree = ""; }; - F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixDialog.c; sourceTree = ""; }; F966BC8008F27A3D005CB29B /* tkUnixDraw.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixDraw.c; sourceTree = ""; }; F966BC8108F27A3D005CB29B /* tkUnixEmbed.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixEmbed.c; sourceTree = ""; }; F966BC8208F27A3D005CB29B /* tkUnixEvent.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixEvent.c; sourceTree = ""; }; @@ -2758,7 +2756,6 @@ F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */, F966BC7D08F27A3D005CB29B /* tkUnixCursor.c */, F966BC7E08F27A3D005CB29B /* tkUnixDefault.h */, - F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */, F966BC8008F27A3D005CB29B /* tkUnixDraw.c */, F966BC8108F27A3D005CB29B /* tkUnixEmbed.c */, F966BC8208F27A3D005CB29B /* tkUnixEvent.c */, @@ -4644,7 +4641,6 @@ F9FD32090CC1ADB70073837D /* tkUnixColor.c in Sources */, F9FD32040CC1ADB70073837D /* tkUnixConfig.c in Sources */, F9FD31F80CC1ADB70073837D /* tkUnixCursor.c in Sources */, - F9FD32060CC1ADB70073837D /* tkUnixDialog.c in Sources */, F9FD32050CC1ADB70073837D /* tkUnixDraw.c in Sources */, F9FD31FD0CC1ADB70073837D /* tkUnixEmbed.c in Sources */, F9FD32080CC1ADB70073837D /* tkUnixEvent.c in Sources */, diff --git a/macosx/Tk.xcodeproj/project.pbxproj b/macosx/Tk.xcodeproj/project.pbxproj index 10a9c9a..31678d8 100644 --- a/macosx/Tk.xcodeproj/project.pbxproj +++ b/macosx/Tk.xcodeproj/project.pbxproj @@ -596,7 +596,6 @@ F9FD32030CC1ADB70073837D /* tkUnixMenu.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8808F27A3D005CB29B /* tkUnixMenu.c */; }; F9FD32040CC1ADB70073837D /* tkUnixConfig.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */; }; F9FD32050CC1ADB70073837D /* tkUnixDraw.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8008F27A3D005CB29B /* tkUnixDraw.c */; }; - F9FD32060CC1ADB70073837D /* tkUnixDialog.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */; }; F9FD32070CC1ADB70073837D /* tkUnixSelect.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8E08F27A3D005CB29B /* tkUnixSelect.c */; }; F9FD32080CC1ADB70073837D /* tkUnixEvent.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC8208F27A3D005CB29B /* tkUnixEvent.c */; }; F9FD32090CC1ADB70073837D /* tkUnixColor.c in Sources */ = {isa = PBXBuildFile; fileRef = F966BC7B08F27A3D005CB29B /* tkUnixColor.c */; }; @@ -1189,7 +1188,6 @@ F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixConfig.c; sourceTree = ""; }; F966BC7D08F27A3D005CB29B /* tkUnixCursor.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixCursor.c; sourceTree = ""; }; F966BC7E08F27A3D005CB29B /* tkUnixDefault.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; path = tkUnixDefault.h; sourceTree = ""; }; - F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixDialog.c; sourceTree = ""; }; F966BC8008F27A3D005CB29B /* tkUnixDraw.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixDraw.c; sourceTree = ""; }; F966BC8108F27A3D005CB29B /* tkUnixEmbed.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixEmbed.c; sourceTree = ""; }; F966BC8208F27A3D005CB29B /* tkUnixEvent.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; path = tkUnixEvent.c; sourceTree = ""; }; @@ -2758,7 +2756,6 @@ F966BC7C08F27A3D005CB29B /* tkUnixConfig.c */, F966BC7D08F27A3D005CB29B /* tkUnixCursor.c */, F966BC7E08F27A3D005CB29B /* tkUnixDefault.h */, - F966BC7F08F27A3D005CB29B /* tkUnixDialog.c */, F966BC8008F27A3D005CB29B /* tkUnixDraw.c */, F966BC8108F27A3D005CB29B /* tkUnixEmbed.c */, F966BC8208F27A3D005CB29B /* tkUnixEvent.c */, @@ -4647,7 +4644,6 @@ F9FD32090CC1ADB70073837D /* tkUnixColor.c in Sources */, F9FD32040CC1ADB70073837D /* tkUnixConfig.c in Sources */, F9FD31F80CC1ADB70073837D /* tkUnixCursor.c in Sources */, - F9FD32060CC1ADB70073837D /* tkUnixDialog.c in Sources */, F9FD32050CC1ADB70073837D /* tkUnixDraw.c in Sources */, F9FD31FD0CC1ADB70073837D /* tkUnixEmbed.c in Sources */, F9FD32080CC1ADB70073837D /* tkUnixEvent.c in Sources */, diff --git a/unix/tkUnixDialog.c b/unix/tkUnixDialog.c deleted file mode 100644 index a149610..0000000 --- a/unix/tkUnixDialog.c +++ /dev/null @@ -1,193 +0,0 @@ -/* - * tkUnixDialog.c -- - * - * Contains the Unix implementation of the common dialog boxes: - * - * Copyright (c) 1996 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - */ - -#include "tkUnixInt.h" - -/* - * The wrapper code for Unix is actually set up in library/tk.tcl these days; - * the procedure names used here are probably wrong too... - */ - -#ifdef TK_OBSOLETE_UNIX_DIALOG_WRAPPERS - -/* - *---------------------------------------------------------------------- - * - * EvalObjv -- - * - * Invokes the Tcl procedure with the arguments. - * - * Results: - * Returns the result of the evaluation of the command. - * - * Side effects: - * The command may be autoloaded. - * - *---------------------------------------------------------------------- - */ - -static int -EvalObjv( - Tcl_Interp *interp, /* Current interpreter. */ - char *cmdName, /* Name of the TCL command to call */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - Tcl_Obj *cmdObj, **objs; - int result; - - cmdObj = Tcl_NewStringObj(cmdName, -1); - Tcl_IncrRefCount(cmdObj); - objs = ckalloc(sizeof(Tcl_Obj *) * (objc+1)); - objs[0] = cmdObj; - memcpy(objs+1, objv, sizeof(Tcl_Obj *) * (unsigned)objc); - - result = Tcl_EvalObjv(interp, objc+1, objs, 0); - - Tcl_DecrRefCount(cmdObj); - ckfree(objs); - - return result; -} - -/* - *---------------------------------------------------------------------- - * - * Tk_ChooseColorObjCmd -- - * - * This procedure implements the color dialog box for the Unix platform. - * See the user documentation for details on what it does. - * - * Results: - * See user documentation. - * - * Side effects: - * A dialog window is created the first time this procedure is called. - * This window is not destroyed and will be reused the next time the - * application invokes the "tk_chooseColor" command. - * - *---------------------------------------------------------------------- - */ - -int -Tk_ChooseColorObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - return EvalObjv(interp, "tk::ColorDialog", objc-1, objv+1); -} - -/* - *---------------------------------------------------------------------- - * - * Tk_GetOpenFileCmd -- - * - * This procedure implements the "open file" dialog box for the Unix - * platform. See the user documentation for details on what it does. - * - * Results: - * See user documentation. - * - * Side effects: - * A dialog window is created the first this procedure is called. This - * window is not destroyed and will be reused the next time the - * application invokes the "tk_getOpenFile" or "tk_getSaveFile" command. - * - *---------------------------------------------------------------------- - */ - -int -Tk_GetOpenFileObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - Tk_Window tkwin = clientData; - - if (Tk_StrictMotif(tkwin)) { - return EvalObjv(interp, "tk::MotifOpenFDialog", objc-1, objv+1); - } else { - return EvalObjv(interp, "tk::OpenFDialog", objc-1, objv+1); - } -} - -/* - *---------------------------------------------------------------------- - * - * Tk_GetSaveFileCmd -- - * - * Same as Tk_GetOpenFileCmd but opens a "save file" dialog box instead. - * - * Results: - * Same as Tk_GetOpenFileCmd. - * - * Side effects: - * Same as Tk_GetOpenFileCmd. - * - *---------------------------------------------------------------------- - */ - -int -Tk_GetSaveFileObjCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - Tk_Window tkwin = clientData; - - if (Tk_StrictMotif(tkwin)) { - return EvalObjv(interp, "tk::MotifSaveFDialog", objc-1, objv+1); - } else { - return EvalObjv(interp, "tk::SaveFDialog", objc-1, objv+1); - } -} - -/* - *---------------------------------------------------------------------- - * - * Tk_MessageBoxCmd -- - * - * This procedure implements the MessageBox window for the Unix - * platform. See the user documentation for details on what it does. - * - * Results: - * See user documentation. - * - * Side effects: - * None. The MessageBox window will be destroyed before this procedure - * returns. - * - *---------------------------------------------------------------------- - */ - -int -Tk_MessageBoxCmd( - ClientData clientData, /* Main window associated with interpreter. */ - Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ - Tcl_Obj *const *objv) /* Arguments. */ -{ - return EvalObjv(interp, "tk::MessageBox", objc-1, objv+1); -} - -#endif /* TK_OBSOLETE_UNIX_DIALOG_WRAPPERS */ - -/* - * Local Variables: - * mode: c - * c-basic-offset: 4 - * fill-column: 78 - * End: - */ -- cgit v0.12