summaryrefslogtreecommitdiffstats
path: root/generic/tkSelect.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-02-03 23:55:47 (GMT)
committernijtmans <nijtmans>2009-02-03 23:55:47 (GMT)
commit4b9f05fc68f4d1a561c16fcb44c31af46bedb3d6 (patch)
treeaa98658e57c70b6cb91802ffef5779126e54b6b5 /generic/tkSelect.c
parentc9098b1706ee463447e128156b9baaf23fa4f0a9 (diff)
downloadtk-4b9f05fc68f4d1a561c16fcb44c31af46bedb3d6.zip
tk-4b9f05fc68f4d1a561c16fcb44c31af46bedb3d6.tar.gz
tk-4b9f05fc68f4d1a561c16fcb44c31af46bedb3d6.tar.bz2
- eliminate some unnessary type casts
- some internal const decorations - spacing
Diffstat (limited to 'generic/tkSelect.c')
-rw-r--r--generic/tkSelect.c18
1 files changed, 10 insertions, 8 deletions
diff --git a/generic/tkSelect.c b/generic/tkSelect.c
index effd47b..9a13e9a 100644
--- a/generic/tkSelect.c
+++ b/generic/tkSelect.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkSelect.c,v 1.27 2008/12/09 21:22:56 dgp Exp $
+ * RCS: @(#) $Id: tkSelect.c,v 1.28 2009/02/03 23:55:47 nijtmans Exp $
*/
#include "tkInt.h"
@@ -674,9 +674,10 @@ Tk_SelectionObjCmd(
Tcl_Obj *const objv[]) /* Argument objects. */
{
Tk_Window tkwin = clientData;
- char *path = NULL;
+ const char *path = NULL;
Atom selection;
- char *selName = NULL, *string;
+ const char *selName = NULL;
+ const char *string;
int count, index;
Tcl_Obj **objs;
static const char *const optionStrings[] = {
@@ -754,7 +755,7 @@ Tk_SelectionObjCmd(
case SELECTION_GET: {
Atom target;
- char *targetName = NULL;
+ const char *targetName = NULL;
Tcl_DString selBytes;
int result;
static const char *const getOptionStrings[] = {
@@ -828,8 +829,8 @@ Tk_SelectionObjCmd(
case SELECTION_HANDLE: {
Atom target, format;
- char *targetName = NULL;
- char *formatName = NULL;
+ const char *targetName = NULL;
+ const char *formatName = NULL;
register CommandInfo *cmdInfoPtr;
int cmdLength;
static const char *const handleOptionStrings[] = {
@@ -918,7 +919,7 @@ Tk_SelectionObjCmd(
case SELECTION_OWN: {
register LostCommand *lostPtr;
- char *script = NULL;
+ const char *script = NULL;
int cmdLength;
static const char *const ownOptionStrings[] = {
"-command", "-displayof", "-selection", NULL
@@ -1328,7 +1329,8 @@ HandleTclCommand(
int spaceNeeded, length;
#define MAX_STATIC_SIZE 100
char staticSpace[MAX_STATIC_SIZE];
- char *command, *string;
+ char *command;
+ const char *string;
Tcl_Interp *interp = cmdInfoPtr->interp;
Tcl_DString oldResult;
int extraBytes, charOffset, count, numChars;