From 7fd16283100ed0afe552776c1a37b72462b3e09f Mon Sep 17 00:00:00 2001
From: kevin_walzer <kevin_walzer@noemail.net>
Date: Mon, 16 Sep 2013 01:59:36 +0000
Subject: Fix for http://core.tcl.tk/tk/info/8eb56719cf on broken build with
 8.5.15 with clang on OS X, thanks to Ned Deily for patch

FossilOrigin-Name: 4e6e60ab4cb82e2e5c10d77f1e8b41ae2bc76bbf
---
 macosx/tkMacOSXClipboard.c | 2 +-
 macosx/tkMacOSXDraw.c      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/macosx/tkMacOSXClipboard.c b/macosx/tkMacOSXClipboard.c
index 7cd9c30..6ac7830 100644
--- a/macosx/tkMacOSXClipboard.c
+++ b/macosx/tkMacOSXClipboard.c
@@ -168,6 +168,7 @@ XSetSelectionOwner(
 	    changeCount = [pb declareTypes:[NSArray array] owner:NSApp];
 	}
     }
+    return Success;
 }
 
 /*
@@ -194,7 +195,6 @@ TkMacOSXSelDeadWindow(
     if (winPtr && winPtr == (TkWindow *)clipboardOwner) {
 	clipboardOwner = NULL;
     }
-    return Success;
 }
 
 /*
diff --git a/macosx/tkMacOSXDraw.c b/macosx/tkMacOSXDraw.c
index 4eb4a88..58ae495 100644
--- a/macosx/tkMacOSXDraw.c
+++ b/macosx/tkMacOSXDraw.c
@@ -347,6 +347,7 @@ TkPutImage(
 	TkMacOSXDbgMsg("Invalid destination drawable");
     }
     TkMacOSXRestoreDrawingContext(&dc);
+    return Success;
 }
 
 /*
@@ -744,7 +745,6 @@ DrawCGImage(
     } else {
 	TkMacOSXDbgMsg("Drawing of empty CGImage requested");
     }
-    return Success;
 }
 
 /*
-- 
cgit v0.12