summaryrefslogtreecommitdiffstats
path: root/macosx
diff options
context:
space:
mode:
Diffstat (limited to 'macosx')
-rw-r--r--macosx/tkMacOSXBitmap.c3
-rw-r--r--macosx/tkMacOSXButton.c9
-rw-r--r--macosx/tkMacOSXClipboard.c4
-rw-r--r--macosx/tkMacOSXColor.c16
-rw-r--r--macosx/tkMacOSXConfig.c4
-rw-r--r--macosx/tkMacOSXCursor.c11
-rw-r--r--macosx/tkMacOSXDialog.c13
7 files changed, 56 insertions, 4 deletions
diff --git a/macosx/tkMacOSXBitmap.c b/macosx/tkMacOSXBitmap.c
index 615192b..0731de3 100644
--- a/macosx/tkMacOSXBitmap.c
+++ b/macosx/tkMacOSXBitmap.c
@@ -344,7 +344,7 @@ TkpGetNativeAppBitmap(
int
TkMacOSXIconBitmapObjCmd(
- ClientData clientData, /* Unused. */
+ ClientData dummy, /* Unused. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
@@ -353,6 +353,7 @@ TkMacOSXIconBitmapObjCmd(
int i = 1, len, isNew, result = TCL_ERROR;
const char *name, *value;
IconBitmap ib, *iconBitmap;
+ (void)dummy;
if (objc != 6) {
Tcl_WrongNumArgs(interp, 1, objv, "name width height "
diff --git a/macosx/tkMacOSXButton.c b/macosx/tkMacOSXButton.c
index 8a121ee..ec1ccf2 100644
--- a/macosx/tkMacOSXButton.c
+++ b/macosx/tkMacOSXButton.c
@@ -737,6 +737,7 @@ TkMacOSXDrawButton(
TkMacOSXDrawingContext dc;
DrawParams *dpPtr = &mbPtr->drawParams;
int useNewerHITools = 1;
+ (void)gc;
TkMacOSXComputeButtonParams(butPtr, &mbPtr->btnkind, &mbPtr->drawinfo);
@@ -822,6 +823,9 @@ ButtonBackgroundDrawCB(
Tk_Window tkwin = butPtr->tkwin;
Pixmap pixmap;
int usehlborder = 0;
+ (void)btnbounds;
+ (void)depth;
+ (void)isColorDev;
if (tkwin == NULL || !Tk_IsMapped(tkwin)) {
return;
@@ -873,6 +877,11 @@ ButtonContentDrawCB (
{
TkButton *butPtr = (TkButton *) ptr;
Tk_Window tkwin = butPtr->tkwin;
+ (void)btnbounds;
+ (void)kind;
+ (void)drawinfo;
+ (void)depth;
+ (void)isColorDev;
if (tkwin == NULL || !Tk_IsMapped(tkwin)) {
return;
diff --git a/macosx/tkMacOSXClipboard.c b/macosx/tkMacOSXClipboard.c
index 88a0d93..a5665c7 100644
--- a/macosx/tkMacOSXClipboard.c
+++ b/macosx/tkMacOSXClipboard.c
@@ -185,6 +185,7 @@ XSetSelectionOwner(
Time time) /* The current time? */
{
TkDisplay *dispPtr = TkGetDisplayList();
+ (void)time;
if (dispPtr && selection == dispPtr->clipboardAtom) {
clipboardOwner = owner ? Tk_IdToWindow(display, owner) : NULL;
@@ -247,6 +248,8 @@ TkSelUpdateClipboard(
/* Info about the content. */
{
NSPasteboard *pb = [NSPasteboard generalPasteboard];
+ (void)winPtr;
+ (void)targetPtr;
changeCount = [pb addTypes:[NSArray arrayWithObject:NSStringPboardType]
owner:NSApp];
@@ -301,6 +304,7 @@ void
TkSelPropProc(
XEvent *eventPtr) /* X PropertyChange event. */
{
+ (void)eventPtr;
}
/*
diff --git a/macosx/tkMacOSXColor.c b/macosx/tkMacOSXColor.c
index 9b72732..3c40cfb 100644
--- a/macosx/tkMacOSXColor.c
+++ b/macosx/tkMacOSXColor.c
@@ -827,6 +827,7 @@ TkpGetColorByValue(
* desired color. */
{
TkColor *tkColPtr = ckalloc(sizeof(TkColor));
+ (void)tkwin;
tkColPtr->color.red = colorPtr->red;
tkColPtr->color.green = colorPtr->green;
@@ -858,6 +859,8 @@ XAllocColor(
Colormap map, /* Not used. */
XColor *colorPtr) /* XColor struct to modify. */
{
+ (void)map;
+
display->request++;
colorPtr->pixel = TkpGetPixel(colorPtr);
return 1;
@@ -871,6 +874,10 @@ XCreateColormap(
int alloc) /* Not used. */
{
static Colormap index = 1;
+ (void)display;
+ (void)window;
+ (void)visual;
+ (void)alloc;
/*
* Just return a new value each time.
@@ -883,6 +890,9 @@ XFreeColormap(
Display* display, /* Display. */
Colormap colormap) /* Colormap. */
{
+ (void)display;
+ (void)colormap;
+
return Success;
}
@@ -894,6 +904,12 @@ XFreeColors(
int npixels, /* Number of pixels. */
unsigned long planes) /* Number of pixel planes. */
{
+ (void)display;
+ (void)colormap;
+ (void)pixels;
+ (void)npixels;
+ (void)planes;
+
/*
* The Macintosh version of Tk uses TrueColor. Nothing
* needs to be done to release colors as there really is
diff --git a/macosx/tkMacOSXConfig.c b/macosx/tkMacOSXConfig.c
index 841fc54..34a1fc9 100644
--- a/macosx/tkMacOSXConfig.c
+++ b/macosx/tkMacOSXConfig.c
@@ -39,6 +39,10 @@ TkpGetSystemDefault(
const char *dbName, /* The option database name. */
const char *className) /* The name of the option class. */
{
+ (void)tkwin;
+ (void)dbName;
+ (void)className;
+
return NULL;
}
diff --git a/macosx/tkMacOSXCursor.c b/macosx/tkMacOSXCursor.c
index 894a44d..d5faa37 100644
--- a/macosx/tkMacOSXCursor.c
+++ b/macosx/tkMacOSXCursor.c
@@ -382,6 +382,7 @@ TkGetCursorByName(
TkMacOSXCursor *macCursorPtr = NULL;
const char **argv = NULL;
int argc;
+ (void)tkwin;
/*
* All cursor names are valid lists of one element (for
@@ -437,6 +438,16 @@ TkCreateCursorFromData(
XColor fgColor, /* Foreground color for cursor. */
XColor bgColor) /* Background color for cursor. */
{
+ (void)tkwin;
+ (void)source;
+ (void)mask;
+ (void)width;
+ (void)height;
+ (void)xHot;
+ (void)yHot;
+ (void)fgColor;
+ (void)bgColor;
+
return NULL;
}
diff --git a/macosx/tkMacOSXDialog.c b/macosx/tkMacOSXDialog.c
index c5681b3..e6fa179 100644
--- a/macosx/tkMacOSXDialog.c
+++ b/macosx/tkMacOSXDialog.c
@@ -1986,6 +1986,8 @@ FontchooserShowCmd(
{
FontchooserData *fcdPtr = Tcl_GetAssocData(interp, "::tk::fontchooser",
NULL);
+ (void)objc;
+ (void)objv;
if (fcdPtr->parent == None) {
fcdPtr->parent = (Tk_Window) clientData;
@@ -2027,12 +2029,16 @@ FontchooserShowCmd(
static int
FontchooserHideCmd(
- ClientData clientData, /* Main window */
+ ClientData dummy, /* Main window */
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
NSFontPanel *fp = [[NSFontManager sharedFontManager] fontPanel:NO];
+ (void)dummy;
+ (void)interp;
+ (void)objc;
+ (void)objv;
if ([fp isVisible]) {
[fp orderOut:NSApp];
@@ -2129,9 +2135,10 @@ DeleteFontchooserData(
MODULE_SCOPE int
TkInitFontchooser(
Tcl_Interp *interp,
- ClientData clientData)
+ ClientData dummy)
{
- FontchooserData *fcdPtr = ckalloc(sizeof(FontchooserData));
+ FontchooserData *fcdPtr = (FontchooserData *)ckalloc(sizeof(FontchooserData));
+ (void)dummy;
bzero(fcdPtr, sizeof(FontchooserData));
Tcl_SetAssocData(interp, "::tk::fontchooser", DeleteFontchooserData,