--- a/FSaveBox.st Sun May 12 21:39:41 1996 +0200
+++ b/FSaveBox.st Sun May 12 21:46:34 1996 +0200
@@ -35,8 +35,9 @@
documentation
"
- Instances of FileSaveBox add an 'append'-button. The other
- behavior is that of a FileSelectionBox.
+ Instances of FileSaveBox add an 'append'-button, and an
+ associated append-action.
+ The other behavior is that of a FileSelectionBox.
[Instance variables:]
appendAction action to be performed when append is pressed
@@ -63,23 +64,27 @@
!FileSaveBox methodsFor:'initialization'!
focusSequence
+ "return the sequence for tabbing through my components"
+
|a|
patternField shown ifTrue:[
- a := Array new:6.
- a at:1 put:enterField.
- a at:2 put:patternField.
- a at:3 put:selectionList.
- a at:4 put:abortButton.
- a at:5 put:appendButton.
- a at:6 put:okButton.
- ^ a
+ a := Array new:6.
+ a at:1 put:enterField.
+ a at:2 put:patternField.
+ a at:3 put:selectionList.
+ a at:4 put:abortButton.
+ a at:5 put:appendButton.
+ a at:6 put:okButton.
+ ^ a
].
^ Array with:enterField
- with:selectionList
- with:abortButton
- with:appendButton
- with:okButton
+ with:selectionList
+ with:abortButton
+ with:appendButton
+ with:okButton
+
+ "Modified: 12.5.1996 / 21:46:17 / cg"
!
initialize
@@ -102,15 +107,19 @@
!FileSaveBox methodsFor:'user interaction'!
appendPressed
+ "append was pressed - evaluate the append-action"
+
self hideAndEvaluate:[:string |
- appendAction notNil ifTrue:[
- appendAction value:string
- ]
+ appendAction notNil ifTrue:[
+ appendAction value:string
+ ]
]
+
+ "Modified: 12.5.1996 / 21:45:52 / cg"
! !
!FileSaveBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSaveBox.st,v 1.9 1996-04-25 17:20:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSaveBox.st,v 1.10 1996-05-12 19:46:34 cg Exp $'
! !