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.
resource spec updated
authorClaus Gittinger <cg@exept.de>
Thu, 09 Jan 1997 12:49:58 +0100
changeset 922 e6a5e1cf9565
parent 921 459081e64241
child 923 a6ee1a239fc0
resource spec updated
CodeView.st file | annotate | diff | comparison | revisions
ETxtView.st file | annotate | diff | comparison | revisions
EditField.st file | annotate | diff | comparison | revisions
EditTextView.st file | annotate | diff | comparison | revisions
PullDMenu.st file | annotate | diff | comparison | revisions
PullDownMenu.st file | annotate | diff | comparison | revisions
TextView.st file | annotate | diff | comparison | revisions
Workspace.st file | annotate | diff | comparison | revisions 
--- a/CodeView.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/CodeView.st	Thu Jan 09 12:49:58 1997 +0100
@@ -241,7 +241,7 @@
     "catch keyboard shortcuts"
 
     <resource: #keyboard (#Explain #Help 
-	       #CommentSelection #UncommentSelection)>
+                          #CommentSelection #UncommentSelection)>
 
     (key == #Explain) ifTrue:[^ self explain].
     (key == #Help)    ifTrue:[^ self explain].
@@ -249,6 +249,8 @@
     (key == #UncommentSelection)  ifTrue:[^ self uncommentSelection].
 
     super keyPress:key x:x y:y
+
+    "Modified: 9.1.1997 / 12:14:00 / cg"
 ! !
 
 !CodeView methodsFor:'initialization'!
@@ -356,5 +358,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.33 1997-01-07 19:32:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.34 1997-01-09 11:46:32 cg Exp $'
 ! !
--- a/ETxtView.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/ETxtView.st	Thu Jan 09 12:49:58 1997 +0100
@@ -2470,15 +2470,19 @@
 keyPress:key x:x y:y
     "handle keyboard input"
 
-    <resource: #keyboard (#Paste #Insert #Cut #Again #Replace 
-                          #Delete #BasicDelete #BackSpace #BasicBackSpace
-                          #SelectWord #SearchMatchingParent
-                          #SelectMatchingParents #SelectToEnd
-                          #SelectFromBeginning
-                          #BeginOfLine #EndOfLine #NextWord
+    <resource: #keyboard (#Paste #Insert #Cut #Again #Replace #Accept
+                          #Delete #BasicDelete #BackSpace #BasicBackspace
+                          #SelectWord
+                          #SearchMatchingParent #SelectMatchingParents 
+                          #SelectToEnd #SelectFromBeginning
+                          #BeginOfLine #EndOfLine #NextWord #PreviousWord
+                          #CursorRight #CursorDown #CursorLeft #CursorUp
+                          #Return #Tab #Escape
                           #GotoLine #Delete #BeginOfText #EndOfText
                           #SelectLine #ExpandSelectionByLine #DeleteLine
-                          #InsertLine)>
+                          #InsertLine
+                          #SelectLineFromBeginning
+                          #'F*' #'f*')>
 
     |sensor n fKeyMacros shifted i|
 
@@ -2840,7 +2844,7 @@
     ].
     super keyPress:key x:x y:y
 
-    "Modified: 6.11.1996 / 17:56:11 / cg"
+    "Modified: 9.1.1997 / 12:23:51 / cg"
 !
 
 mapped
@@ -3885,5 +3889,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.100 1997-01-03 21:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.101 1997-01-09 11:48:16 cg Exp $'
 ! !
--- a/EditField.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/EditField.st	Thu Jan 09 12:49:58 1997 +0100
@@ -1357,7 +1357,8 @@
      keys"
 
     <resource: #keyboard (#Tab #Return #Find #FindNext #FindPrev
-                          #DeleteLine #GotoLine #EndOfLine #EndOfText)>
+                          #DeleteLine #GotoLine #EndOfLine #EndOfText
+                          #CursorDown #CursorUp)>
 
     |leave xCol newOffset newWidth s|
 
@@ -1457,7 +1458,7 @@
     self resizeOrScroll.
 
     "Modified: 2.5.1996 / 17:24:16 / stefan"
-    "Modified: 31.5.1996 / 21:19:50 / cg"
+    "Modified: 9.1.1997 / 12:15:13 / cg"
 !
 
 resizeOrScroll
@@ -1796,5 +1797,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.72 1996-12-11 16:10:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.73 1997-01-09 11:47:22 cg Exp $'
 ! !
--- a/EditTextView.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/EditTextView.st	Thu Jan 09 12:49:58 1997 +0100
@@ -2470,15 +2470,19 @@
 keyPress:key x:x y:y
     "handle keyboard input"
 
-    <resource: #keyboard (#Paste #Insert #Cut #Again #Replace 
-                          #Delete #BasicDelete #BackSpace #BasicBackSpace
-                          #SelectWord #SearchMatchingParent
-                          #SelectMatchingParents #SelectToEnd
-                          #SelectFromBeginning
-                          #BeginOfLine #EndOfLine #NextWord
+    <resource: #keyboard (#Paste #Insert #Cut #Again #Replace #Accept
+                          #Delete #BasicDelete #BackSpace #BasicBackspace
+                          #SelectWord
+                          #SearchMatchingParent #SelectMatchingParents 
+                          #SelectToEnd #SelectFromBeginning
+                          #BeginOfLine #EndOfLine #NextWord #PreviousWord
+                          #CursorRight #CursorDown #CursorLeft #CursorUp
+                          #Return #Tab #Escape
                           #GotoLine #Delete #BeginOfText #EndOfText
                           #SelectLine #ExpandSelectionByLine #DeleteLine
-                          #InsertLine)>
+                          #InsertLine
+                          #SelectLineFromBeginning
+                          #'F*' #'f*')>
 
     |sensor n fKeyMacros shifted i|
 
@@ -2840,7 +2844,7 @@
     ].
     super keyPress:key x:x y:y
 
-    "Modified: 6.11.1996 / 17:56:11 / cg"
+    "Modified: 9.1.1997 / 12:23:51 / cg"
 !
 
 mapped
@@ -3885,5 +3889,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.100 1997-01-03 21:59:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.101 1997-01-09 11:48:16 cg Exp $'
 ! !
--- a/PullDMenu.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/PullDMenu.st	Thu Jan 09 12:49:58 1997 +0100
@@ -24,7 +24,7 @@
 	category:'Views-Menus'
 !
 
-!PullDownMenu  class methodsFor:'documentation'!
+!PullDownMenu class methodsFor:'documentation'!
 
 copyright
 "
@@ -327,7 +327,7 @@
 "
 ! !
 
-!PullDownMenu  class methodsFor:'instance creation'!
+!PullDownMenu class methodsFor:'instance creation'!
 
 labels:titleArray
     "create and return a new PullDownMenu"
@@ -335,7 +335,7 @@
     ^ self new labels:titleArray
 ! !
 
-!PullDownMenu  class methodsFor:'defaults'!
+!PullDownMenu class methodsFor:'defaults'!
 
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
@@ -1076,7 +1076,7 @@
 
 keyPress:key x:x y:y
 
-    <resource: #keyboard (#CursorLeft #CursorRight #MenuSelect)>
+    <resource: #keyboard (#CursorLeft #CursorRight #MenuSelect #Return)>
 
     |index startIndex m sel|
 
@@ -1159,7 +1159,7 @@
         m keyPress:key x:0 y:0.
     ].
 
-    "Modified: 17.4.1996 / 20:56:20 / cg"
+    "Modified: 9.1.1997 / 12:15:48 / cg"
 !
 
 showNoFocus:explicit
@@ -1648,8 +1648,8 @@
     self showPassive
 ! !
 
-!PullDownMenu  class methodsFor:'documentation'!
+!PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.66 1996-07-19 18:56:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.67 1997-01-09 11:49:58 cg Exp $'
 ! !
--- a/PullDownMenu.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/PullDownMenu.st	Thu Jan 09 12:49:58 1997 +0100
@@ -24,7 +24,7 @@
 	category:'Views-Menus'
 !
 
-!PullDownMenu  class methodsFor:'documentation'!
+!PullDownMenu class methodsFor:'documentation'!
 
 copyright
 "
@@ -327,7 +327,7 @@
 "
 ! !
 
-!PullDownMenu  class methodsFor:'instance creation'!
+!PullDownMenu class methodsFor:'instance creation'!
 
 labels:titleArray
     "create and return a new PullDownMenu"
@@ -335,7 +335,7 @@
     ^ self new labels:titleArray
 ! !
 
-!PullDownMenu  class methodsFor:'defaults'!
+!PullDownMenu class methodsFor:'defaults'!
 
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
@@ -1076,7 +1076,7 @@
 
 keyPress:key x:x y:y
 
-    <resource: #keyboard (#CursorLeft #CursorRight #MenuSelect)>
+    <resource: #keyboard (#CursorLeft #CursorRight #MenuSelect #Return)>
 
     |index startIndex m sel|
 
@@ -1159,7 +1159,7 @@
         m keyPress:key x:0 y:0.
     ].
 
-    "Modified: 17.4.1996 / 20:56:20 / cg"
+    "Modified: 9.1.1997 / 12:15:48 / cg"
 !
 
 showNoFocus:explicit
@@ -1648,8 +1648,8 @@
     self showPassive
 ! !
 
-!PullDownMenu  class methodsFor:'documentation'!
+!PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.66 1996-07-19 18:56:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.67 1997-01-09 11:49:58 cg Exp $'
 ! !
--- a/TextView.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/TextView.st	Thu Jan 09 12:49:58 1997 +0100
@@ -675,7 +675,8 @@
     "handle some keyboard input (there is not much to be done here)"
 
     <resource: #keyboard (#Find #Copy #FindNext #FindPrev 
-                          #GotoLine #SelectAll #SaveAs #Print)>
+                          #GotoLine #SelectAll #SaveAs #Print
+                          #'F*' #'f*' )>
 
     (key == #Find) ifTrue:[self search. ^self].
     (key == #Copy) ifTrue:[self copySelection. ^self].
@@ -709,7 +710,7 @@
 
     super keyPress:key x:x y:y
 
-    "Modified: 6.5.1996 / 16:13:09 / cg"
+    "Modified: 9.1.1997 / 12:18:14 / cg"
 !
 
 mapped 
@@ -2267,5 +2268,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.76 1997-01-05 01:17:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.77 1997-01-09 11:49:01 cg Exp $'
 ! !
--- a/Workspace.st	Tue Jan 07 23:01:19 1997 +0100
+++ b/Workspace.st	Thu Jan 09 12:49:58 1997 +0100
@@ -321,7 +321,7 @@
 
 keyPress:key x:x y:y
 
-    <resource: #keyboard (#DoIt #InspectIt #PrintIt)>
+    <resource: #keyboard (#DoIt #InspectIt #PrintIt #'CmdF*' #'CtrlF*')>
 
     |cmd commands fKey|
 
@@ -420,7 +420,7 @@
         try it here: /etc/passwd 
     "
 
-    "Modified: 27.2.1996 / 15:11:09 / cg"
+    "Modified: 9.1.1997 / 12:18:30 / cg"
 ! !
 
 !Workspace methodsFor:'execution'!
@@ -554,7 +554,7 @@
     idx ~~ 0 ifTrue:[
         m addLabels:(resources array:#('-' 'doIt' 'printIt' 'inspectIt'))
           selectors:#(nil doIt printIt inspectIt)
-          accelerators:#(nil DoIt PrintIt InspectIt)
+          accelerators:#(nil #DoIt #PrintIt #InspectIt)
           after:idx
     ].
 
@@ -564,7 +564,7 @@
 
     ^ m.
 
-    "Modified: 7.3.1996 / 13:14:15 / cg"
+    "Modified: 9.1.1997 / 12:17:01 / cg"
 !
 
 inspectIt
@@ -594,5 +594,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.49 1997-01-07 22:01:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.50 1997-01-09 11:46:50 cg Exp $'
 ! !
hg/stx-libwidg