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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 28 May 1996 17:00:49 +0200
changeset 693 8369529a2ac4
parent 692 65c5499f4cea
child 694 dfc7ec6d2e5c
checkin from browser
ETxtView.st file | annotate | diff | comparison | revisions
EditTextView.st file | annotate | diff | comparison | revisions
TextView.st file | annotate | diff | comparison | revisions
WarnBox.st file | annotate | diff | comparison | revisions
WarningBox.st file | annotate | diff | comparison | revisions
Workspace.st file | annotate | diff | comparison | revisions 
--- a/ETxtView.st	Tue May 28 11:07:59 1996 +0200
+++ b/ETxtView.st	Tue May 28 17:00:49 1996 +0200
@@ -579,10 +579,10 @@
         cursorCol := self validateCursorCol:cursorCol inLine:cursorLine.
         cursorVisibleLine := self listLineToVisibleLine:cursorLine.
         wasOn ifTrue:[self showCursor].
-        device beep. device sync.
+        self beep.
     ].
 
-    "Modified: 22.5.1996 / 18:22:48 / cg"
+    "Modified: 28.5.1996 / 16:58:38 / cg"
 !
 
 cursorDown:n
@@ -2534,7 +2534,7 @@
                                                 ]
                                            ]
                                 ifNotFound:[self showNotFound]
-                                   onError:[device beep]
+                                   onError:[self beep]
                 ].
             ].
         ].
@@ -2841,7 +2841,7 @@
     ].
     super keyPress:key x:x y:y
 
-    "Modified: 18.5.1996 / 15:08:47 / cg"
+    "Modified: 28.5.1996 / 16:58:41 / cg"
 !
 
 mapped
@@ -3587,12 +3587,14 @@
     "select characters enclosed by matching parenthesis if one is under cusor"
 
     self searchForMatchingParenthesisFromLine:cursorLine col:cursorCol
-			      ifFound:[:line :col | 
-					  self selectFromLine:cursorLine col:cursorCol
-						       toLine:line col:col
-				      ]
-			   ifNotFound:[self showNotFound]
-			      onError:[device beep]
+                              ifFound:[:line :col | 
+                                          self selectFromLine:cursorLine col:cursorCol
+                                                       toLine:line col:col
+                                      ]
+                           ifNotFound:[self showNotFound]
+                              onError:[self beep]
+
+    "Modified: 28.5.1996 / 16:58:44 / cg"
 !
 
 searchForMatchingParenthesis
@@ -3602,9 +3604,11 @@
      Positions the cursor if found, peeps if not"
 
      self searchForMatchingParenthesisFromLine:cursorLine col:cursorCol
-			       ifFound:[:line :col | self cursorLine:line col:col]
-			    ifNotFound:[self showNotFound]
-			       onError:[device beep]
+                               ifFound:[:line :col | self cursorLine:line col:col]
+                            ifNotFound:[self showNotFound]
+                               onError:[self beep]
+
+    "Modified: 28.5.1996 / 16:58:48 / cg"
 !
 
 searchFwd:pattern ifAbsent:aBlock
@@ -3853,5 +3857,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.80 1996-05-24 12:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.81 1996-05-28 15:00:49 cg Exp $'
 ! !
--- a/EditTextView.st	Tue May 28 11:07:59 1996 +0200
+++ b/EditTextView.st	Tue May 28 17:00:49 1996 +0200
@@ -579,10 +579,10 @@
         cursorCol := self validateCursorCol:cursorCol inLine:cursorLine.
         cursorVisibleLine := self listLineToVisibleLine:cursorLine.
         wasOn ifTrue:[self showCursor].
-        device beep. device sync.
+        self beep.
     ].
 
-    "Modified: 22.5.1996 / 18:22:48 / cg"
+    "Modified: 28.5.1996 / 16:58:38 / cg"
 !
 
 cursorDown:n
@@ -2534,7 +2534,7 @@
                                                 ]
                                            ]
                                 ifNotFound:[self showNotFound]
-                                   onError:[device beep]
+                                   onError:[self beep]
                 ].
             ].
         ].
@@ -2841,7 +2841,7 @@
     ].
     super keyPress:key x:x y:y
 
-    "Modified: 18.5.1996 / 15:08:47 / cg"
+    "Modified: 28.5.1996 / 16:58:41 / cg"
 !
 
 mapped
@@ -3587,12 +3587,14 @@
     "select characters enclosed by matching parenthesis if one is under cusor"
 
     self searchForMatchingParenthesisFromLine:cursorLine col:cursorCol
-			      ifFound:[:line :col | 
-					  self selectFromLine:cursorLine col:cursorCol
-						       toLine:line col:col
-				      ]
-			   ifNotFound:[self showNotFound]
-			      onError:[device beep]
+                              ifFound:[:line :col | 
+                                          self selectFromLine:cursorLine col:cursorCol
+                                                       toLine:line col:col
+                                      ]
+                           ifNotFound:[self showNotFound]
+                              onError:[self beep]
+
+    "Modified: 28.5.1996 / 16:58:44 / cg"
 !
 
 searchForMatchingParenthesis
@@ -3602,9 +3604,11 @@
      Positions the cursor if found, peeps if not"
 
      self searchForMatchingParenthesisFromLine:cursorLine col:cursorCol
-			       ifFound:[:line :col | self cursorLine:line col:col]
-			    ifNotFound:[self showNotFound]
-			       onError:[device beep]
+                               ifFound:[:line :col | self cursorLine:line col:col]
+                            ifNotFound:[self showNotFound]
+                               onError:[self beep]
+
+    "Modified: 28.5.1996 / 16:58:48 / cg"
 !
 
 searchFwd:pattern ifAbsent:aBlock
@@ -3853,5 +3857,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.80 1996-05-24 12:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.81 1996-05-28 15:00:49 cg Exp $'
 ! !
--- a/TextView.st	Tue May 28 11:07:59 1996 +0200
+++ b/TextView.st	Tue May 28 17:00:49 1996 +0200
@@ -565,7 +565,7 @@
                                           ]
                                       ]
                            ifNotFound:[self showNotFound]
-                              onError:[device beep].
+                              onError:[self beep].
                         selectStyle := nil
                     ]
                 ].
@@ -600,7 +600,7 @@
         super buttonMultiPress:button x:x y:y
     ]
 
-    "Modified: 6.3.1996 / 14:55:11 / cg"
+    "Modified: 28.5.1996 / 16:58:53 / cg"
 !
 
 buttonPress:button x:x y:y
@@ -1774,7 +1774,7 @@
 
     |savedCursor|
 
-    device beep.
+    self beep.
 
 "
     uncomment if you want a CROSS cursor to be shown for a while ..
@@ -1787,7 +1787,7 @@
     self cursor:savedCursor
 " "
 
-    "Modified: 16.12.1995 / 13:11:31 / cg"
+    "Modified: 28.5.1996 / 16:58:57 / cg"
 ! !
 
 !TextView methodsFor:'selections'!
@@ -2207,5 +2207,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.53 1996-05-22 11:30:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.54 1996-05-28 15:00:03 cg Exp $'
 ! !
--- a/WarnBox.st	Tue May 28 11:07:59 1996 +0200
+++ b/WarnBox.st	Tue May 28 17:00:49 1996 +0200
@@ -193,18 +193,18 @@
 openModal
     "added bell to wake up user"
 
-    device beep.
+    self beep.
     super openModal
 
     "
      self warn:'hello'
     "
 
-    "Modified: 7.3.1996 / 17:52:17 / cg"
+    "Modified: 28.5.1996 / 16:59:01 / cg"
 ! !
 
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.19 1996-05-16 10:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/WarnBox.st,v 1.20 1996-05-28 14:59:43 cg Exp $'
 ! !
--- a/WarningBox.st	Tue May 28 11:07:59 1996 +0200
+++ b/WarningBox.st	Tue May 28 17:00:49 1996 +0200
@@ -193,18 +193,18 @@
 openModal
     "added bell to wake up user"
 
-    device beep.
+    self beep.
     super openModal
 
     "
      self warn:'hello'
     "
 
-    "Modified: 7.3.1996 / 17:52:17 / cg"
+    "Modified: 28.5.1996 / 16:59:01 / cg"
 ! !
 
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.19 1996-05-16 10:02:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.20 1996-05-28 14:59:43 cg Exp $'
 ! !
--- a/Workspace.st	Tue May 28 11:07:59 1996 +0200
+++ b/Workspace.st	Tue May 28 17:00:49 1996 +0200
@@ -548,7 +548,7 @@
      If the text is readOnly, do nothing."
 
     readOnly ifTrue:[
-        device beep
+        self beep
     ] ifFalse:[ 
         self doItWithValueDo:[:result | 
             self cursorLine:selectionEndLine col:(selectionEndCol + 1).
@@ -556,10 +556,10 @@
         ]
     ]
 
-    "Modified: 20.5.1996 / 23:30:55 / cg"
+    "Modified: 28.5.1996 / 16:59:04 / cg"
 ! !
 
 !Workspace class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.45 1996-05-20 21:35:11 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.46 1996-05-28 14:59:29 cg Exp $'! !
hg/stx-libwidg