Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Fri, 07 Mar 1997 21:06:00 +0100
changeset 1075 f0ca720bce42
parent 1074 346d64e1e3e3
child 1076 8c4e8ee0b863
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Fri Mar 07 19:36:56 1997 +0100
+++ b/BrowserView.st	Fri Mar 07 21:06:00 1997 +0100
@@ -4645,14 +4645,14 @@
 classMethodSelection:lineNr
     "user clicked on a class/method line - show code"
 
-    |cls string classString selectorString meta|
+    |cls string classString selectorString meta sensor|
 
     string := classMethodListView selectionValue string.
     classString := self classNameFromClassMethodString:string.
     selectorString := self selectorFromClassMethodString:string.
 
     "/ reselected with control ?
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
         selectorString = currentSelector ifTrue:[
             "/ if there is a trace/break, remove it.
             (currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
@@ -4691,7 +4691,7 @@
 
     "Modified: 31.8.1995 / 11:56:02 / claus"
     "Modified: 17.6.1996 / 16:51:28 / stefan"
-    "Modified: 7.3.1997 / 19:35:22 / cg"
+    "Modified: 7.3.1997 / 21:04:40 / cg"
 !
 
 classNameFromClassMethodString:aString
@@ -7376,12 +7376,12 @@
 methodSelection:lineNr
     "user clicked on a method line - show code"
 
-    |selection|
+    |selection sensor|
 
     selection := methodListView selectionValue string.
 
     "/ reselected with control ?
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
         selection = currentSelector ifTrue:[
             "/ if there is a trace/break, remove it.
             (currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
@@ -7393,7 +7393,7 @@
 
     self switchToMethod:selection.
 
-    "Modified: 7.3.1997 / 19:23:14 / cg"
+    "Modified: 7.3.1997 / 21:04:47 / cg"
 !
 
 methodSelectionChanged
@@ -9818,6 +9818,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.279 1997-03-07 18:36:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.280 1997-03-07 20:06:00 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Fri Mar 07 19:36:56 1997 +0100
+++ b/BrwsrView.st	Fri Mar 07 21:06:00 1997 +0100
@@ -4645,14 +4645,14 @@
 classMethodSelection:lineNr
     "user clicked on a class/method line - show code"
 
-    |cls string classString selectorString meta|
+    |cls string classString selectorString meta sensor|
 
     string := classMethodListView selectionValue string.
     classString := self classNameFromClassMethodString:string.
     selectorString := self selectorFromClassMethodString:string.
 
     "/ reselected with control ?
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
         selectorString = currentSelector ifTrue:[
             "/ if there is a trace/break, remove it.
             (currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
@@ -4691,7 +4691,7 @@
 
     "Modified: 31.8.1995 / 11:56:02 / claus"
     "Modified: 17.6.1996 / 16:51:28 / stefan"
-    "Modified: 7.3.1997 / 19:35:22 / cg"
+    "Modified: 7.3.1997 / 21:04:40 / cg"
 !
 
 classNameFromClassMethodString:aString
@@ -7376,12 +7376,12 @@
 methodSelection:lineNr
     "user clicked on a method line - show code"
 
-    |selection|
+    |selection sensor|
 
     selection := methodListView selectionValue string.
 
     "/ reselected with control ?
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
         selection = currentSelector ifTrue:[
             "/ if there is a trace/break, remove it.
             (currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
@@ -7393,7 +7393,7 @@
 
     self switchToMethod:selection.
 
-    "Modified: 7.3.1997 / 19:23:14 / cg"
+    "Modified: 7.3.1997 / 21:04:47 / cg"
 !
 
 methodSelectionChanged
@@ -9818,6 +9818,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.279 1997-03-07 18:36:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.280 1997-03-07 20:06:00 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool