--- a/ClckMenuV.st Thu Apr 25 19:26:41 1996 +0200
+++ b/ClckMenuV.st Thu Apr 25 19:34:16 1996 +0200
@@ -40,6 +40,9 @@
ClickMenuViews can be used as static menus (i.e. non-popping);
for example, the old launcher uses an instance of ClickMenuView.
+
+ [author:]
+ Claus Gittinger
"
!
@@ -118,5 +121,5 @@
!ClickMenuView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ClckMenuV.st,v 1.9 1996-03-08 13:43:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ClckMenuV.st,v 1.10 1996-04-25 17:30:13 cg Exp $'
! !
--- a/ClickMenuView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/ClickMenuView.st Thu Apr 25 19:34:16 1996 +0200
@@ -40,6 +40,9 @@
ClickMenuViews can be used as static menus (i.e. non-popping);
for example, the old launcher uses an instance of ClickMenuView.
+
+ [author:]
+ Claus Gittinger
"
!
@@ -118,5 +121,5 @@
!ClickMenuView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.9 1996-03-08 13:43:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ClickMenuView.st,v 1.10 1996-04-25 17:30:13 cg Exp $'
! !
--- a/ETxtView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/ETxtView.st Thu Apr 25 19:34:16 1996 +0200
@@ -51,7 +51,7 @@
Please read the historic notice in the ListView class.
- Instance variables:
+ [Instance variables:]
cursorLine <Number> line where cursor sits (1..)
@@ -68,23 +68,23 @@
fixedSize <Boolean> true, if no lines may be added/removed
exceptionBlock <Block> block to be evaluated when readonly text is about to be modified
- if it returns true, the modification will be done anyway.
- if it returns anything else, the modification is not done.
+ if it returns true, the modification will be done anyway.
+ if it returns anything else, the modification is not done.
cursorFgColor <Color> color used for cursor drawing
cursorBgColor <Color> color used for cursor drawing
cursorType <Symbol> how the cursor is drawn; currently implemented
- are #block (solid-block cursor), #ibeam
- (vertical bar at insertion point)
- and #caret (caret below insertion-point)
+ are #block (solid-block cursor), #ibeam
+ (vertical bar at insertion point)
+ and #caret (caret below insertion-point)
undoAction <Block> block which undoes last cut, paste or replace
- (not yet fully implemented)
+ (not yet fully implemented)
typeOfSelection <Symbol> #paste, if selection created by paste, nil otherwise
- this affects the next keyPress: if #paste it does not
- replace; otherwise it replaces the selection.
+ this affects the next keyPress: if #paste it does not
+ replace; otherwise it replaces the selection.
lastCut <String> last cut or replaced string
@@ -93,19 +93,19 @@
replacing <Boolean> true if entered characters replace last selection
showMatchingParenthesis <Boolean> if true, shows matching parenthesis
- when entering one; this is the default.
-
- hasKeyboardFocus <Boolean> true if this view has the focus
-
- acceptAction <Block> accept action - evaluated passing the contents as
- argument
-
- tabMeansNextField <Boolean> if true, Tab is ignored as input and shifts keyboard
- focus to the next field. For editTextViews, this is false
- by default (i.e. tabs can be entered into the text).
- For some subclasses (inputFields), this may be true.
-
- lockUpdates <Boolean> internal, private
+ when entering one; this is the default.
+
+ hasKeyboardFocus <Boolean> true if this view has the focus
+
+ acceptAction <Block> accept action - evaluated passing the contents as
+ argument
+
+ tabMeansNextField <Boolean> if true, Tab is ignored as input and shifts keyboard
+ focus to the next field. For editTextViews, this is false
+ by default (i.e. tabs can be entered into the text).
+ For some subclasses (inputFields), this may be true.
+
+ lockUpdates <Boolean> internal, private
prevCursorState <Boolean> temporary, private
@@ -113,13 +113,19 @@
used globals:
DeleteHistory <Text> last 1000 lines of deleted text
- (but only if this variable exists already)
-
- styleSheet parameters:
+ (but only if this variable exists already)
+
+ [styleSheet parameters:]
textCursorForegroundColor <Color> cursor fg color; default: text background
textCursorBackgroundColor <Color> cursor bg color; default: text foreground
textCursorType <Symbol> cursor type; default: #block
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ CodeView Workspace TextView
"
!
@@ -3533,5 +3539,5 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.64 1996-04-22 08:12:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.65 1996-04-25 17:34:16 cg Exp $'
! !
--- a/EditField.st Thu Apr 25 19:26:41 1996 +0200
+++ b/EditField.st Thu Apr 25 19:34:16 1996 +0200
@@ -94,78 +94,84 @@
- Instance variables:
+ [Instance variables:]
leaveAction <Block | nil> if non-nil, this is evaluated with
- the key (#Return, #CursorUp etc.) when
- the field is left via keyboard keys.
- (fieldGroups use this to decide which
- field has to be enabled next)
+ the key (#Return, #CursorUp etc.) when
+ the field is left via keyboard keys.
+ (fieldGroups use this to decide which
+ field has to be enabled next)
enabled <Boolean> if false, input is ignored.
clickAction <Block | nil> action performed if the field is
- clicked upon.
- (this is used by the group to
- set the active field to the clicked upon field)
+ clicked upon.
+ (this is used by the group to
+ set the active field to the clicked upon field)
crAction <Block | nil> if non-nil, keyboard input of a cr are not
- handled specially, instead this block is evaluated
- (however, this block can perform additional checks and send
- a #accept then)
+ handled specially, instead this block is evaluated
+ (however, this block can perform additional checks and send
+ a #accept then)
tabAction <Block | nil> if non-nil, keyboard input of a tab character
- is not entered into the text, instead this block
- is evaluated. Also, no input completion is performed if
- tabAction is nonNil.
+ is not entered into the text, instead this block
+ is evaluated. Also, no input completion is performed if
+ tabAction is nonNil.
converter <PrintConverter | nil> if non-nil, this is supposed to convert between
- the object and its printed representation and vice versa.
- Defaults to nil i.e. assume that strings are edited.
+ the object and its printed representation and vice versa.
+ Defaults to nil i.e. assume that strings are edited.
leaveKeys <Collection> keys which are interpreted as 'leaving the field'
immediateAccept <Boolean> if true, every change of the text is immediately
- forwarded to the model/acceptBlock. If false,
- the changed value is only stored in the model
- if the field is left or accepted.
- Default is false.
+ forwarded to the model/acceptBlock. If false,
+ the changed value is only stored in the model
+ if the field is left or accepted.
+ Default is false.
acceptOnLeave <Boolean> if true, leaving the field (via cursor keys)
- automatically accepts the value into the model.
- Default is true.
+ automatically accepts the value into the model.
+ Default is true.
acceptOnReturn <Boolean> if true, leaving the field via return
- automatically accepts the value into the model.
- Default is true.
+ automatically accepts the value into the model.
+ Default is true.
acceptOnTab <Boolean> if true, the Tab key accepts and leaves the field.
- If false, Tabs are entered into the contents field like
- ordinary non-control keys.
- AcceptOnTab is ignored if the entryCompletion block is nonNil.
- Default is true.
+ If false, Tabs are entered into the contents field like
+ ordinary non-control keys.
+ AcceptOnTab is ignored if the entryCompletion block is nonNil.
+ Default is true.
lengthLimit <Number> the max. number of allowed characters
entryCompletionBlock <BlockOrNil> if non-nil, this is evaluated to complete the entry
- when Tab is pressed.
- Entry completion is used with Filenamefields or in the
- browser for classname/selector completion.
- Setting a nonNil entryCompletion disables acceptOnTab.
+ when Tab is pressed.
+ Entry completion is used with Filenamefields or in the
+ browser for classname/selector completion.
+ Setting a nonNil entryCompletion disables acceptOnTab.
passwordCharacter <CharacterOrNil> if non-nil, typed input is replaced by this character
- for display. Used for secret-input fields (such as password entry).
- Default is nil.
+ for display. Used for secret-input fields (such as password entry).
+ Default is nil.
cursorMovementWhenUpdating <Symbol> defines where the cursor is to be positioned if the
- model changes its value by some outside activity
- (i.e. not by user input into the field).
- Can be one of:
- #keep / nil -> stay where it was
- #endOfLine -> position cursor after the string
- #beginOfLine -> position cursor to the beginning
- The default is nil (i.e. stay where it was before).
+ model changes its value by some outside activity
+ (i.e. not by user input into the field).
+ Can be one of:
+ #keep / nil -> stay where it was
+ #endOfLine -> position cursor after the string
+ #beginOfLine -> position cursor to the beginning
+ The default is nil (i.e. stay where it was before).
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ DialogBox
"
!
@@ -1630,5 +1636,5 @@
!EditField class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.53 1996-04-20 12:39:32 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.54 1996-04-25 17:33:04 cg Exp $'
! !
--- a/EditTextView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/EditTextView.st Thu Apr 25 19:34:16 1996 +0200
@@ -51,7 +51,7 @@
Please read the historic notice in the ListView class.
- Instance variables:
+ [Instance variables:]
cursorLine <Number> line where cursor sits (1..)
@@ -68,23 +68,23 @@
fixedSize <Boolean> true, if no lines may be added/removed
exceptionBlock <Block> block to be evaluated when readonly text is about to be modified
- if it returns true, the modification will be done anyway.
- if it returns anything else, the modification is not done.
+ if it returns true, the modification will be done anyway.
+ if it returns anything else, the modification is not done.
cursorFgColor <Color> color used for cursor drawing
cursorBgColor <Color> color used for cursor drawing
cursorType <Symbol> how the cursor is drawn; currently implemented
- are #block (solid-block cursor), #ibeam
- (vertical bar at insertion point)
- and #caret (caret below insertion-point)
+ are #block (solid-block cursor), #ibeam
+ (vertical bar at insertion point)
+ and #caret (caret below insertion-point)
undoAction <Block> block which undoes last cut, paste or replace
- (not yet fully implemented)
+ (not yet fully implemented)
typeOfSelection <Symbol> #paste, if selection created by paste, nil otherwise
- this affects the next keyPress: if #paste it does not
- replace; otherwise it replaces the selection.
+ this affects the next keyPress: if #paste it does not
+ replace; otherwise it replaces the selection.
lastCut <String> last cut or replaced string
@@ -93,19 +93,19 @@
replacing <Boolean> true if entered characters replace last selection
showMatchingParenthesis <Boolean> if true, shows matching parenthesis
- when entering one; this is the default.
-
- hasKeyboardFocus <Boolean> true if this view has the focus
-
- acceptAction <Block> accept action - evaluated passing the contents as
- argument
-
- tabMeansNextField <Boolean> if true, Tab is ignored as input and shifts keyboard
- focus to the next field. For editTextViews, this is false
- by default (i.e. tabs can be entered into the text).
- For some subclasses (inputFields), this may be true.
-
- lockUpdates <Boolean> internal, private
+ when entering one; this is the default.
+
+ hasKeyboardFocus <Boolean> true if this view has the focus
+
+ acceptAction <Block> accept action - evaluated passing the contents as
+ argument
+
+ tabMeansNextField <Boolean> if true, Tab is ignored as input and shifts keyboard
+ focus to the next field. For editTextViews, this is false
+ by default (i.e. tabs can be entered into the text).
+ For some subclasses (inputFields), this may be true.
+
+ lockUpdates <Boolean> internal, private
prevCursorState <Boolean> temporary, private
@@ -113,13 +113,19 @@
used globals:
DeleteHistory <Text> last 1000 lines of deleted text
- (but only if this variable exists already)
-
- styleSheet parameters:
+ (but only if this variable exists already)
+
+ [styleSheet parameters:]
textCursorForegroundColor <Color> cursor fg color; default: text background
textCursorBackgroundColor <Color> cursor bg color; default: text foreground
textCursorType <Symbol> cursor type; default: #block
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ CodeView Workspace TextView
"
!
@@ -3533,5 +3539,5 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.64 1996-04-22 08:12:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.65 1996-04-25 17:34:16 cg Exp $'
! !
--- a/FSelList.st Thu Apr 25 19:26:41 1996 +0200
+++ b/FSelList.st Thu Apr 25 19:34:16 1996 +0200
@@ -52,7 +52,7 @@
Except for file-browser like applications, FileSelectionLists are almost
exclusively used with FileSelectionBoxes (see examples there).
- Instance variables:
+ [Instance variables:]
pattern the matchpattern
directory the current directory
@@ -109,6 +109,14 @@
if nonNil, file-select evaluate this block.
Possible hook for others (used with Boxes)
Defaults to nil.
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ DialogBox
+ EnterBox2 YesNoBox
+ ListSelectionBox FileSelectionBox FileSaveBox
"
!
@@ -926,5 +934,5 @@
!FileSelectionList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.27 1996-04-19 11:26:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/FSelList.st,v 1.28 1996-04-25 17:31:49 cg Exp $'
! !
--- a/FileSelectionList.st Thu Apr 25 19:26:41 1996 +0200
+++ b/FileSelectionList.st Thu Apr 25 19:34:16 1996 +0200
@@ -52,7 +52,7 @@
Except for file-browser like applications, FileSelectionLists are almost
exclusively used with FileSelectionBoxes (see examples there).
- Instance variables:
+ [Instance variables:]
pattern the matchpattern
directory the current directory
@@ -109,6 +109,14 @@
if nonNil, file-select evaluate this block.
Possible hook for others (used with Boxes)
Defaults to nil.
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ DialogBox
+ EnterBox2 YesNoBox
+ ListSelectionBox FileSelectionBox FileSaveBox
"
!
@@ -926,5 +934,5 @@
!FileSelectionList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.27 1996-04-19 11:26:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.28 1996-04-25 17:31:49 cg Exp $'
! !
--- a/ListView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/ListView.st Thu Apr 25 19:34:16 1996 +0200
@@ -92,7 +92,7 @@
code will be totally removed here and the inherited functionality be used in the next version.
- Instance variables:
+ [Instance variables:]
list <aCollection> the text strings
@@ -100,9 +100,9 @@
leftOffset <Number> left offset for horizontal scroll
nFullLinesShown <Number> the number of unclipped lines in visible area
- (internal; updated on size changes)
+ (internal; updated on size changes)
nLinesShown <Number> the number of lines in visible area, incl. partial
- (internal; updated on size changes)
+ (internal; updated on size changes)
fgColor <Color> color to draw characters
bgColor <Color> the background
@@ -121,33 +121,40 @@
lineSpacing <Number> pixels between lines
searchPattern <String> last pattern for searching
wordCheck <Block> rule used for check for word boundaries in word select
- The default rule is to return true for alphaNumeric characters.
- (can be changed to allow for underscore and other
- characters to be treated as alphaCharacters)
+ The default rule is to return true for alphaNumeric characters.
+ (can be changed to allow for underscore and other
+ characters to be treated as alphaCharacters)
autoScrollBlock <Block> block installed as timeoutBlock when doing an
- autoScroll (internal)
+ autoScroll (internal)
autoScrollDeltaT computed scroll time delta in seconds (internal)
includesNonStrings cached flag if any non-strings are in list
widthOfWidestLine cached width of widest line
listMsg if view has a model and listMsg is non-nil,
- this is sent to the model to aquired a new contents
- whenever a change of the aspect (aspectMsg) occurs.
+ this is sent to the model to aquired a new contents
+ whenever a change of the aspect (aspectMsg) occurs.
viewOrigin the current origin
menuHolder who has a menu
- (default: nil or model here, self in textViews)
+ (default: nil or model here, self in textViews)
menuPerformer who performs menu actions
- (default: nil or model here, self in textViews)
-
- StyleSheet parameters:
+ (default: nil or model here, self in textViews)
+
+ [StyleSheet parameters:]
textForegroundColor defaults to Black
textBackgroundColor defaults to White
textFont defaults to defaultFont
textTabPositions defaults to #(1 9 17 25 ...)
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ TextView EditTextView
+
"
!
@@ -2963,5 +2970,5 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.76 1996-04-20 17:31:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.77 1996-04-25 17:32:39 cg Exp $'
! !
--- a/MenuView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/MenuView.st Thu Apr 25 19:34:16 1996 +0200
@@ -69,29 +69,32 @@
StyleSheet defaults:
- menuFont font to use for menus
-
- menuViewBackground view background (should be same as menuBackgroundColor)
- menuForegroundColor foreground color
- menuBackgroundColor background color
-
- menuShadowColor shadow color for 3D effects
- menuLightColor lightColor for 3D effects
- menuHilightForegroundColor hilighted items foregroundColor
- menuHilightBackgroundColor hilighted items backgroundColor
-
- menuHilightFrameColor frame arounf hilighted items (or nil, if none)
- defaults to selectionHilightFrameColor
- menuHilightLevel 3D level of selected items
- menuHilightStyle #openwin or nil (special kludge)
- menuSeparatingLineLevel 3D level of sep. lines
- menuSeparatingLineInset left/right inset of sep. lines
- menuDisabledForegroundColor foreground color of disabled items
- menuCheckColor color to use for check marks
- menuFont font to use
+ menuFont font to use for menus
+
+ menuViewBackground view background (should be same as menuBackgroundColor)
+ menuForegroundColor foreground color
+ menuBackgroundColor background color
+
+ menuShadowColor shadow color for 3D effects
+ menuLightColor lightColor for 3D effects
+ menuHilightForegroundColor hilighted items foregroundColor
+ menuHilightBackgroundColor hilighted items backgroundColor
+
+ menuHilightFrameColor frame arounf hilighted items (or nil, if none)
+ defaults to selectionHilightFrameColor
+ menuHilightLevel 3D level of selected items
+ menuHilightStyle #openwin or nil (special kludge)
+ menuSeparatingLineLevel 3D level of sep. lines
+ menuSeparatingLineInset left/right inset of sep. lines
+ menuDisabledForegroundColor foreground color of disabled items
+ menuCheckColor color to use for check marks
+ menuFont font to use
other values and some defaults are inherited via SelectionInListViews
styles (i.e. look for selectionForegroundColor ...)
+
+ [author:]
+ Claus Gittinger
"
!
@@ -2431,5 +2434,5 @@
!MenuView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.70 1996-04-22 09:45:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.71 1996-04-25 17:30:53 cg Exp $'
! !
--- a/PopUpMenu.st Thu Apr 25 19:26:41 1996 +0200
+++ b/PopUpMenu.st Thu Apr 25 19:34:16 1996 +0200
@@ -55,6 +55,9 @@
via the #menuSelector each time a button press occurs.
See examples section for more.
+
+ [author:]
+ Claus Gittinger
"
!
@@ -1141,5 +1144,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.47 1996-04-23 16:59:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.48 1996-04-25 17:30:21 cg Exp $'
! !
--- a/PullDMenu.st Thu Apr 25 19:26:41 1996 +0200
+++ b/PullDMenu.st Thu Apr 25 19:34:16 1996 +0200
@@ -52,16 +52,16 @@
An entries selector is used as the key to define and access submenus
and (for empty entries:) the selector sent to the receiver of the menu.
- Instance variables:
+ [Instance variables:]
menus <Collection> the sub menus
titles <Collection> the strings in the menu
selectors <Collection> the selectors to send to the menu-
- receiver (for empty pull-menus)
- if nil (the default), title entries
- do not send anything.
+ receiver (for empty pull-menus)
+ if nil (the default), title entries
+ do not send anything.
activeMenuNumber <Number> the index of the currently active menu
@@ -81,56 +81,59 @@
edgeStyle <Symbol> how to draw edges
keepmenu <Boolean> if on, pulled menu stays on click,
- till clicked again (motif & windows behavior)
+ till clicked again (motif & windows behavior)
toggleKeep <Boolean> if on and keepMenu is on,
- clicking again on label closes menu
+ clicking again on label closes menu
except menus, titles and selectors, instvars are usually defined from
defaults in the styleSheet; you should not care for them.
- StyleSheet values:
+ [StyleSheet values:]
pullDownMenuViewBackground view background Color for the menu bar
- default: menuViewBackground
+ default: menuViewBackground
pullDownMenuForegroundColor foreground drawing color for the menu bar
- default: menuForegroundColor
+ default: menuForegroundColor
pullDownMenuBackgroundColor background drawing color for the menu bar
- default: menuBackgroundColor
+ default: menuBackgroundColor
pullDownMenuHilightForegroundColor active foreground drawing color for the menu bar
- default: menuHilightForegroundColor
+ default: menuHilightForegroundColor
pullDownMenuHilightBackgroundColor active background drawing color for the menu bar
- default: menuHilightBackgroundColor
+ default: menuHilightBackgroundColor
pullDownMenuHilightLevel level (3D only) when active
- default: menuHilightLevel
+ default: menuHilightLevel
pullDownMenuEdgeStyle edge style (nil or #soft)
pullDownMenuKeepMenu if true, pulled menu stays open until button
- is pressed again outside of the item-area (motif behavior)
- if false, menu closes on release (default)
+ is pressed again outside of the item-area (motif behavior)
+ if false, menu closes on release (default)
pullDownMenuToggleKeep if true, pulled menu closes when an entry is pressed
- again. Otherwise, only press outside of the items area
- hides it. default is false
+ again. Otherwise, only press outside of the items area
+ hides it. default is false
pullDownMenuLevel level (3D only)
pullDownMenuFont font to use for the menu bar
- default: menuFont
+ default: menuFont
pullDownMenuShowSeparatingLines if true, lines are drawn between items.
- default: false
+ default: false
pullDownMenuRaiseTop if true, topview is raised whenever an entry
- is activated.
- default: true
+ is activated.
+ default: true
+
+ [author:]
+ Claus Gittinger
"
!
@@ -1486,5 +1489,5 @@
!PullDownMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.47 1996-04-22 22:19:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.48 1996-04-25 17:30:34 cg Exp $'
! !
--- a/PullDownMenu.st Thu Apr 25 19:26:41 1996 +0200
+++ b/PullDownMenu.st Thu Apr 25 19:34:16 1996 +0200
@@ -52,16 +52,16 @@
An entries selector is used as the key to define and access submenus
and (for empty entries:) the selector sent to the receiver of the menu.
- Instance variables:
+ [Instance variables:]
menus <Collection> the sub menus
titles <Collection> the strings in the menu
selectors <Collection> the selectors to send to the menu-
- receiver (for empty pull-menus)
- if nil (the default), title entries
- do not send anything.
+ receiver (for empty pull-menus)
+ if nil (the default), title entries
+ do not send anything.
activeMenuNumber <Number> the index of the currently active menu
@@ -81,56 +81,59 @@
edgeStyle <Symbol> how to draw edges
keepmenu <Boolean> if on, pulled menu stays on click,
- till clicked again (motif & windows behavior)
+ till clicked again (motif & windows behavior)
toggleKeep <Boolean> if on and keepMenu is on,
- clicking again on label closes menu
+ clicking again on label closes menu
except menus, titles and selectors, instvars are usually defined from
defaults in the styleSheet; you should not care for them.
- StyleSheet values:
+ [StyleSheet values:]
pullDownMenuViewBackground view background Color for the menu bar
- default: menuViewBackground
+ default: menuViewBackground
pullDownMenuForegroundColor foreground drawing color for the menu bar
- default: menuForegroundColor
+ default: menuForegroundColor
pullDownMenuBackgroundColor background drawing color for the menu bar
- default: menuBackgroundColor
+ default: menuBackgroundColor
pullDownMenuHilightForegroundColor active foreground drawing color for the menu bar
- default: menuHilightForegroundColor
+ default: menuHilightForegroundColor
pullDownMenuHilightBackgroundColor active background drawing color for the menu bar
- default: menuHilightBackgroundColor
+ default: menuHilightBackgroundColor
pullDownMenuHilightLevel level (3D only) when active
- default: menuHilightLevel
+ default: menuHilightLevel
pullDownMenuEdgeStyle edge style (nil or #soft)
pullDownMenuKeepMenu if true, pulled menu stays open until button
- is pressed again outside of the item-area (motif behavior)
- if false, menu closes on release (default)
+ is pressed again outside of the item-area (motif behavior)
+ if false, menu closes on release (default)
pullDownMenuToggleKeep if true, pulled menu closes when an entry is pressed
- again. Otherwise, only press outside of the items area
- hides it. default is false
+ again. Otherwise, only press outside of the items area
+ hides it. default is false
pullDownMenuLevel level (3D only)
pullDownMenuFont font to use for the menu bar
- default: menuFont
+ default: menuFont
pullDownMenuShowSeparatingLines if true, lines are drawn between items.
- default: false
+ default: false
pullDownMenuRaiseTop if true, topview is raised whenever an entry
- is activated.
- default: true
+ is activated.
+ default: true
+
+ [author:]
+ Claus Gittinger
"
!
@@ -1486,5 +1489,5 @@
!PullDownMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.47 1996-04-22 22:19:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.48 1996-04-25 17:30:34 cg Exp $'
! !
--- a/RButtGrp.st Thu Apr 25 19:26:41 1996 +0200
+++ b/RButtGrp.st Thu Apr 25 19:34:16 1996 +0200
@@ -11,10 +11,10 @@
"
OrderedCollection subclass:#RadioButtonGroup
- instanceVariableNames:'valueChannel groupID'
- classVariableNames:''
- poolDictionaries:''
- category:'Views-Support'
+ instanceVariableNames:'valueChannel groupID'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Views-Support'
!
!RadioButtonGroup class methodsFor:'documentation '!
@@ -39,16 +39,16 @@
turning off other button(s) when one of the group is pressed.
To group some buttons (and have one-on behavior) use:
- |g|
+ |g|
- g := RadioButtonGroup new.
- ...
- b1 := RadioButton label:....
- g add:b1
- ...
- b2 := RadioButton label:....
- g add:b2
- ...
+ g := RadioButtonGroup new.
+ ...
+ b1 := RadioButton label:....
+ g add:b1
+ ...
+ b2 := RadioButton label:....
+ g add:b2
+ ...
A radioButtonGroup installs itself as the model of its toggles or
radioButtons. Therefore, you can no longer operate the individual
@@ -61,7 +61,12 @@
The groupID instance variable is not required for normal operation;
the interface builder uses it to give a button-group some descriptive
(unique) name.
+
+ [author:]
+ Claus Gittinger
"
+
+ "Modified: 25.4.1996 / 17:40:00 / cg"
!
examples
@@ -178,7 +183,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButtGrp.st,v 1.19 1995-11-23 02:28:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButtGrp.st,v 1.20 1996-04-25 17:31:36 cg Exp $'
! !
!RadioButtonGroup methodsFor:'accessing'!
--- a/RadioButtonGroup.st Thu Apr 25 19:26:41 1996 +0200
+++ b/RadioButtonGroup.st Thu Apr 25 19:34:16 1996 +0200
@@ -11,10 +11,10 @@
"
OrderedCollection subclass:#RadioButtonGroup
- instanceVariableNames:'valueChannel groupID'
- classVariableNames:''
- poolDictionaries:''
- category:'Views-Support'
+ instanceVariableNames:'valueChannel groupID'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Views-Support'
!
!RadioButtonGroup class methodsFor:'documentation '!
@@ -39,16 +39,16 @@
turning off other button(s) when one of the group is pressed.
To group some buttons (and have one-on behavior) use:
- |g|
+ |g|
- g := RadioButtonGroup new.
- ...
- b1 := RadioButton label:....
- g add:b1
- ...
- b2 := RadioButton label:....
- g add:b2
- ...
+ g := RadioButtonGroup new.
+ ...
+ b1 := RadioButton label:....
+ g add:b1
+ ...
+ b2 := RadioButton label:....
+ g add:b2
+ ...
A radioButtonGroup installs itself as the model of its toggles or
radioButtons. Therefore, you can no longer operate the individual
@@ -61,7 +61,12 @@
The groupID instance variable is not required for normal operation;
the interface builder uses it to give a button-group some descriptive
(unique) name.
+
+ [author:]
+ Claus Gittinger
"
+
+ "Modified: 25.4.1996 / 17:40:00 / cg"
!
examples
@@ -178,7 +183,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.19 1995-11-23 02:28:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/RadioButtonGroup.st,v 1.20 1996-04-25 17:31:36 cg Exp $'
! !
!RadioButtonGroup methodsFor:'accessing'!
--- a/SelListV.st Thu Apr 25 19:26:41 1996 +0200
+++ b/SelListV.st Thu Apr 25 19:34:16 1996 +0200
@@ -102,54 +102,57 @@
(i.e. use #attributeAt: / #attributeAt:put etc. - at least, these are easy to find
when migrating to the new attributed text handling).
- InstanceVariables:
- selection <misc> the current selection. nil, a number or collection of numbers
-
- actionBlock <Block> block to be evaluated on selection changes
-
- enabled <Boolean> true: selection changes allowed; false: ignore clicks
-
- hilightFgColor
- hilightBgColor <Color> how highlighted items are drawn
-
- halfIntensityColor <Color> foreground for disabled items
-
- selectConditionBlock <Block> if non-nil, this nlock can decide if selection is ok
-
- doubleClickActionBlock <Block> action to perform on double-click
-
- listAttributes dont use - will vanish
-
- hilightLevel <Integer> level to draw selections (i.e. for 3D effect)
- hilightFrameColor <Color> rectangle around highlighted items
-
- multipleSelectOk <Boolean> if true, multiple selections (with shift) are ok.
- default: false
-
- ignoreReselect <Boolean> if true, selecting same again does not trigger action;
- if false, every select triggers it.
- default: true
-
- toggleSelect <Boolean> if true, click toggles;
- if false, click selects.
- default: false
-
- arrowLevel <Integer> level to draw right-arrows (for submenus etc.)
- smallArrow <Boolean> if true, uses a small arrow bitmap
-
- listMsg if non-nil, use ST-80 style (model-access)
- initialSelectionMsg
- printItems
- oneItem
-
- keyActionStyle <Symbol> controls how to respond to keyboard selects
-
- returnKeyActionStyle <Symbol> controls how to respond to return key
+ [Instance variables:]
+ selection <misc> the current selection. nil, a number or collection of numbers
+
+ actionBlock <Block> block to be evaluated on selection changes
+
+ enabled <Boolean> true: selection changes allowed; false: ignore clicks
+
+ hilightFgColor
+ hilightBgColor <Color> how highlighted items are drawn
+
+ halfIntensityColor <Color> foreground for disabled items
+
+ selectConditionBlock <Block> if non-nil, this nlock can decide if selection is ok
+
+ doubleClickActionBlock <Block> action to perform on double-click
+
+ listAttributes dont use - will vanish
+
+ hilightLevel <Integer> level to draw selections (i.e. for 3D effect)
+ hilightFrameColor <Color> rectangle around highlighted items
+
+ multipleSelectOk <Boolean> if true, multiple selections (with shift) are ok.
+ default: false
+
+ ignoreReselect <Boolean> if true, selecting same again does not trigger action;
+ if false, every select triggers it.
+ default: true
+
+ toggleSelect <Boolean> if true, click toggles;
+ if false, click selects.
+ default: false
+
+ arrowLevel <Integer> level to draw right-arrows (for submenus etc.)
+ smallArrow <Boolean> if true, uses a small arrow bitmap
+
+ listMsg if non-nil, use ST-80 style (model-access)
+ initialSelectionMsg
+ printItems
+ oneItem
+
+ keyActionStyle <Symbol> controls how to respond to keyboard selects
+
+ returnKeyActionStyle <Symbol> controls how to respond to return key
written spring/summer 89 by claus
3D Jan 90 by claus
multiselect Jun 92 by claus
keyboard-select jun 94 by claus
+
+ [author:]
+ Claus Gittinger
"
!
@@ -2720,5 +2723,5 @@
!SelectionInListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.64 1996-04-19 16:23:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.65 1996-04-25 17:33:40 cg Exp $'
! !
--- a/SelectionInListView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/SelectionInListView.st Thu Apr 25 19:34:16 1996 +0200
@@ -102,54 +102,57 @@
(i.e. use #attributeAt: / #attributeAt:put etc. - at least, these are easy to find
when migrating to the new attributed text handling).
- InstanceVariables:
- selection <misc> the current selection. nil, a number or collection of numbers
-
- actionBlock <Block> block to be evaluated on selection changes
-
- enabled <Boolean> true: selection changes allowed; false: ignore clicks
-
- hilightFgColor
- hilightBgColor <Color> how highlighted items are drawn
-
- halfIntensityColor <Color> foreground for disabled items
-
- selectConditionBlock <Block> if non-nil, this nlock can decide if selection is ok
-
- doubleClickActionBlock <Block> action to perform on double-click
-
- listAttributes dont use - will vanish
-
- hilightLevel <Integer> level to draw selections (i.e. for 3D effect)
- hilightFrameColor <Color> rectangle around highlighted items
-
- multipleSelectOk <Boolean> if true, multiple selections (with shift) are ok.
- default: false
-
- ignoreReselect <Boolean> if true, selecting same again does not trigger action;
- if false, every select triggers it.
- default: true
-
- toggleSelect <Boolean> if true, click toggles;
- if false, click selects.
- default: false
-
- arrowLevel <Integer> level to draw right-arrows (for submenus etc.)
- smallArrow <Boolean> if true, uses a small arrow bitmap
-
- listMsg if non-nil, use ST-80 style (model-access)
- initialSelectionMsg
- printItems
- oneItem
-
- keyActionStyle <Symbol> controls how to respond to keyboard selects
-
- returnKeyActionStyle <Symbol> controls how to respond to return key
+ [Instance variables:]
+ selection <misc> the current selection. nil, a number or collection of numbers
+
+ actionBlock <Block> block to be evaluated on selection changes
+
+ enabled <Boolean> true: selection changes allowed; false: ignore clicks
+
+ hilightFgColor
+ hilightBgColor <Color> how highlighted items are drawn
+
+ halfIntensityColor <Color> foreground for disabled items
+
+ selectConditionBlock <Block> if non-nil, this nlock can decide if selection is ok
+
+ doubleClickActionBlock <Block> action to perform on double-click
+
+ listAttributes dont use - will vanish
+
+ hilightLevel <Integer> level to draw selections (i.e. for 3D effect)
+ hilightFrameColor <Color> rectangle around highlighted items
+
+ multipleSelectOk <Boolean> if true, multiple selections (with shift) are ok.
+ default: false
+
+ ignoreReselect <Boolean> if true, selecting same again does not trigger action;
+ if false, every select triggers it.
+ default: true
+
+ toggleSelect <Boolean> if true, click toggles;
+ if false, click selects.
+ default: false
+
+ arrowLevel <Integer> level to draw right-arrows (for submenus etc.)
+ smallArrow <Boolean> if true, uses a small arrow bitmap
+
+ listMsg if non-nil, use ST-80 style (model-access)
+ initialSelectionMsg
+ printItems
+ oneItem
+
+ keyActionStyle <Symbol> controls how to respond to keyboard selects
+
+ returnKeyActionStyle <Symbol> controls how to respond to return key
written spring/summer 89 by claus
3D Jan 90 by claus
multiselect Jun 92 by claus
keyboard-select jun 94 by claus
+
+ [author:]
+ Claus Gittinger
"
!
@@ -2720,5 +2723,5 @@
!SelectionInListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.64 1996-04-19 16:23:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.65 1996-04-25 17:33:40 cg Exp $'
! !
--- a/TextColl.st Thu Apr 25 19:26:41 1996 +0200
+++ b/TextColl.st Thu Apr 25 19:34:16 1996 +0200
@@ -55,13 +55,20 @@
You can set linelimit to nil (i.e. no limit), but you may need a lot
of memory then ...
- StyleSheet paramters (transcript only):
+ [StyleSheet paramters (transcript only):]
+
+ transcriptForegroundColor defaults to textForegroundColor
+ transcriptBackgroundColor' defaults to textBackgroundColor.
- transcriptForegroundColor defaults to textForegroundColor
- transcriptBackgroundColor' defaults to textBackgroundColor.
+ transcriptCursorForegroundColor
+ transcriptCursorBackgroundColor
- transcriptCursorForegroundColor
- transcriptCursorBackgroundColor
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ CodeView EditTextView
+ ActorStream
"
! !
@@ -462,5 +469,5 @@
!TextCollector class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.27 1996-04-19 15:52:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.28 1996-04-25 17:33:16 cg Exp $'
! !
--- a/TextCollector.st Thu Apr 25 19:26:41 1996 +0200
+++ b/TextCollector.st Thu Apr 25 19:34:16 1996 +0200
@@ -55,13 +55,20 @@
You can set linelimit to nil (i.e. no limit), but you may need a lot
of memory then ...
- StyleSheet paramters (transcript only):
+ [StyleSheet paramters (transcript only):]
+
+ transcriptForegroundColor defaults to textForegroundColor
+ transcriptBackgroundColor' defaults to textBackgroundColor.
- transcriptForegroundColor defaults to textForegroundColor
- transcriptBackgroundColor' defaults to textBackgroundColor.
+ transcriptCursorForegroundColor
+ transcriptCursorBackgroundColor
- transcriptCursorForegroundColor
- transcriptCursorBackgroundColor
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ CodeView EditTextView
+ ActorStream
"
! !
@@ -462,5 +469,5 @@
!TextCollector class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.27 1996-04-19 15:52:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.28 1996-04-25 17:33:16 cg Exp $'
! !
--- a/TextView.st Thu Apr 25 19:26:41 1996 +0200
+++ b/TextView.st Thu Apr 25 19:34:16 1996 +0200
@@ -47,7 +47,7 @@
Please read the historic notice in the ListView class.
- Instance variables:
+ [Instance variables:]
selectionStartLine <Number> the line of the selection start (or nil)
selectionStartCol <Number> the col of the selection start
@@ -71,12 +71,19 @@
contentsWasSaved <Boolean> set to true, whenever saved in a file
- StyleSheet parameters:
+ [StyleSheet parameters:]
textViewBackground defaults to viewBackground
textSelectionForegroundColor defaults to textBackgroundColor
textSelectionBackgroundColor defaults to textForegroundColor
textViewFont defaults to textFont
+
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ EditTextView CodeView Workspace
"
! !
@@ -2084,5 +2091,5 @@
!TextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.46 1996-03-18 16:33:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.47 1996-04-25 17:32:05 cg Exp $'
! !