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
Wed, 13 Oct 1993 02:01:27 +0100
changeset 2 880bbcc50207
parent 1 3ebee08bea15
child 3 9d7eefb5e69f
*** empty log message ***
Button.st file | annotate | diff | comparison | revisions
ChckTggle.st file | annotate | diff | comparison | revisions
CheckToggle.st file | annotate | diff | comparison | revisions
ClckMenuV.st file | annotate | diff | comparison | revisions
ClickMenuView.st file | annotate | diff | comparison | revisions
CodeView.st file | annotate | diff | comparison | revisions 
--- a/Button.st	Wed Oct 13 02:01:05 1993 +0100
+++ b/Button.st	Wed Oct 13 02:01:27 1993 +0100
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1989-93 by Claus Gittinger
               All Rights Reserved
 
-%W% %E%
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.2 1993-10-13 01:01:08 claus Exp $
 
 written spring/summer 89 by claus
 '!
--- a/ChckTggle.st	Wed Oct 13 02:01:05 1993 +0100
+++ b/ChckTggle.st	Wed Oct 13 02:01:27 1993 +0100
@@ -25,7 +25,7 @@
 CheckButtons like Toggles do something when pressed/released;
 but show an ok-marker if on; nothing if off
 
-@(#)ChckTggle.st	3.2 92/09/07
+$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.2 1993-10-13 01:01:16 claus Exp $
 
 written spring 92 by claus
 '!
--- a/CheckToggle.st	Wed Oct 13 02:01:05 1993 +0100
+++ b/CheckToggle.st	Wed Oct 13 02:01:27 1993 +0100
@@ -25,7 +25,7 @@
 CheckButtons like Toggles do something when pressed/released;
 but show an ok-marker if on; nothing if off
 
-@(#)ChckTggle.st	3.2 92/09/07
+$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.2 1993-10-13 01:01:16 claus Exp $
 
 written spring 92 by claus
 '!
--- a/ClckMenuV.st	Wed Oct 13 02:01:05 1993 +0100
+++ b/ClckMenuV.st	Wed Oct 13 02:01:27 1993 +0100
@@ -24,7 +24,7 @@
 
 like a menuView - deselects after clicked on an entry
 
-@(#)ClckMenuV.st	3.1 92/08/23
+$Header: /cvs/stx/stx/libwidg/Attic/ClckMenuV.st,v 1.2 1993-10-13 01:01:23 claus Exp $
 written spring 91 by claus
 '!
 
--- a/ClickMenuView.st	Wed Oct 13 02:01:05 1993 +0100
+++ b/ClickMenuView.st	Wed Oct 13 02:01:27 1993 +0100
@@ -24,7 +24,7 @@
 
 like a menuView - deselects after clicked on an entry
 
-@(#)ClckMenuV.st	3.1 92/08/23
+$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.2 1993-10-13 01:01:23 claus Exp $
 written spring 91 by claus
 '!
 
--- a/CodeView.st	Wed Oct 13 02:01:05 1993 +0100
+++ b/CodeView.st	Wed Oct 13 02:01:27 1993 +0100
@@ -26,7 +26,7 @@
 to the menu, and defines two actions: acceptAction to be performed for accept
 and explainAction to be performed for explain.
 
-%W% %E%
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.2 1993-10-13 01:01:27 claus Exp $
 written winter-89 by claus
 '!
 
@@ -130,17 +130,11 @@
      save cursor and selection; then execute the accept-action
      and finally restore cursor and selection"
 
-    |selLine selCol endLine endCol|
-
     acceptAction notNil ifTrue:[
         codeStartPosition := 1.
 "
         self cursor:Cursor wait.
 "
-        selLine := selectionStartLine.
-        selCol := selectionStartCol.
-        endLine := selectionEndLine.
-        endCol := selectionEndCol.
         abortBlock := [
             self cursor:Cursor normal.
             "redraw selection in normal color"
hg/stx-libwidg