X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=libchimara%2Fgestalt.c;h=a9128ac6fbd948c4540ac0ef75ff8a2b39b02ea4;hb=db890ff8ca6870c83558d063f212189df7f1c471;hp=1729a878350c9c333eab0f88d6ea321583f61bbd;hpb=e0c5d896646b95cc5dc6ed57ee3b75a2063c83d1;p=projects%2Fchimara%2Fchimara.git

diff --git a/libchimara/gestalt.c b/libchimara/gestalt.c
index 1729a87..a9128ac 100644
--- a/libchimara/gestalt.c
+++ b/libchimara/gestalt.c
@@ -103,18 +103,33 @@ glk_gestalt_ext(glui32 sel, glui32 val, glui32 *arr, glui32 arrlen)
 		/* Timer capabilities present */
 		case gestalt_Timer:
 			return 1;
-			
-		/* Unsupported capabilities */
+
+		/* Hyperlink capabilities present */
+		case gestalt_Hyperlinks:
+			return 1;
+
+		/* Hyperlinks supported on textbuffers and textgrids */
+		case gestalt_HyperlinkInput:
+			return val == wintype_TextBuffer || val == wintype_TextGrid;
+
+		/* Mouse support present in textgrids */
 		case gestalt_MouseInput:
+			return val == wintype_TextGrid;
+
 		case gestalt_Graphics:
+			return 1;
+
 		case gestalt_DrawImage:
+			return val == wintype_Graphics;
+
+		case gestalt_GraphicsTransparency:
+			return 1;
+			
+		/* Unsupported capabilities */
 		case gestalt_Sound:
 		case gestalt_SoundVolume:
 		case gestalt_SoundNotify:
-		case gestalt_Hyperlinks:
-		case gestalt_HyperlinkInput:
 		case gestalt_SoundMusic:
-		case gestalt_GraphicsTransparency:
 		/* Selector not supported */	
 		default:
 			return 0;