support ctrl-doubleclick in typewindow;

df1d2591 · Diederik van Arkel · 7381e3fc · df1d2591
Commit df1d2591 authored May 21, 2003 by Diederik van Arkel
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

Ide/EdCommon.icl Ide/EdCommon.icl +6 -1

No files found.
--- a/Ide/EdCommon.icl
+++ b/Ide/EdCommon.icl
@@ -68,8 +68,13 @@ controlDoubleClick shiftDown position =
 	vChangeSelectionTo selection				>>>
 	setSelectMode (SelectWords selection)		>>>
 	accEnv getFBI								>>>= \fbi ->
+	accEnv (accPLoc getTypeWinInfo)				>>>= \twi ->
+	getWindowId									>>>= \windowId ->
 	let
-		fbi` = {fbi & kind = if shiftDown Implementation Definition, type = SearchImports}
+		fbi` =	{ fbi 
+				& kind = if shiftDown Implementation Definition
+				, type = if (isTypeWindow windowId twi) SearchPaths SearchImports
+				}
 	in
 	// should make sure single line selection, here or in sr_find_def_imp...
 	// now done above...