Mercurial Mercurial > hg > stx-libwidg / 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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 01 Feb 2006 14:26:13 +0100
changeset 3252 b44361e6b97a
parent 3251 156d3ee6a6c1
child 3253 f48247cbc202
*** empty log message ***
CodeView.st file | annotate | diff | comparison | revisions
EditTextView.st file | annotate | diff | comparison | revisions
Workspace.st file | annotate | diff | comparison | revisions 
--- a/CodeView.st	Tue Jan 31 16:09:06 2006 +0100
+++ b/CodeView.st	Wed Feb 01 14:26:13 2006 +0100
@@ -220,10 +220,10 @@
                           #Accept #Explain #Format)>
     <resource: #programMenu>
 
-    |m sub subsub|
+    |m sub subsub sensor|
 
     m := super editMenu.
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[
         sub := m.
         m := nil.
     ] ifFalse:[
@@ -320,5 +320,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.56 2005-12-21 11:40:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.57 2006-02-01 13:26:13 cg Exp $'
 ! !
--- a/EditTextView.st	Tue Jan 31 16:09:06 2006 +0100
+++ b/EditTextView.st	Wed Feb 01 14:26:13 2006 +0100
@@ -4755,7 +4755,7 @@
     <resource: #keyboard (#Again #Copy #Cut #Paste #Accept #Find #GotoLine #SaveAs #Print)>
     <resource: #programMenu>
 
-    |items m sub translateItems sortItems miscItems toolItems subSub toolSub what undoIdx|
+    |items m sub translateItems sortItems miscItems toolItems subSub toolSub what undoIdx sensor|
 
     items := #(
                     ('Redo'             redo                    )
@@ -4843,7 +4843,7 @@
     subSub checkToggleAt:#learnMode: put:(self learnModeHolder value).
     sub subMenuAt:#misc put:subSub.
 
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[
         m := sub
     ] ifFalse:[
         items := #(
@@ -6524,5 +6524,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.388 2006-01-25 10:39:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.389 2006-02-01 13:26:10 cg Exp $'
 ! !
--- a/Workspace.st	Tue Jan 31 16:09:06 2006 +0100
+++ b/Workspace.st	Wed Feb 01 14:26:13 2006 +0100
@@ -1110,7 +1110,7 @@
     |m sub subsub idx sensor s s2|
 
     m := super editMenu.
-    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[
         sub := m.
         m := nil.
     ] ifFalse:[
@@ -1274,5 +1274,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.152 2005-10-06 15:38:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.153 2006-02-01 13:26:05 cg Exp $'
 ! !
hg/stx-libwidg