Mercurial Mercurial > hg > stx-libwidg2 / 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.
category change
authorClaus Gittinger <cg@exept.de>
Tue, 10 Dec 2002 12:05:10 +0100
changeset 2404 2b7591c982ac
parent 2403 6c8761bb98b9
child 2405 51e75c174717
category change
ExtendedComboBox.st file | annotate | diff | comparison | revisions
ImageView.st file | annotate | diff | comparison | revisions
MultipleItemSelectionWidget.st file | annotate | diff | comparison | revisions
ProgressIndicator.st file | annotate | diff | comparison | revisions
SelectionInListModelView.st file | annotate | diff | comparison | revisions
SubCanvas.st file | annotate | diff | comparison | revisions
TabItem.st file | annotate | diff | comparison | revisions
TreeItem.st file | annotate | diff | comparison | revisions 
--- a/ExtendedComboBox.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/ExtendedComboBox.st	Tue Dec 10 12:05:10 2002 +0100
@@ -922,7 +922,7 @@
 
 ! !
 
-!ExtendedComboBox methodsFor:'accessing-scroller'!
+!ExtendedComboBox methodsFor:'accessing-scrollbars'!
 
 autoHideScrollBars
     "set/clear the flag which controls if scrollBars should
@@ -1493,5 +1493,5 @@
 !ExtendedComboBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.34 2002-09-06 15:17:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ExtendedComboBox.st,v 1.35 2002-12-10 11:02:52 cg Exp $'
 ! !
--- a/ImageView.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/ImageView.st	Tue Dec 10 12:05:10 2002 +0100
@@ -278,7 +278,7 @@
     tileOffset := aPoint
 ! !
 
-!ImageView methodsFor:'accessing - channels'!
+!ImageView methodsFor:'accessing-channels'!
 
 imageChannel
     imageChannel isNil ifTrue:[
@@ -467,7 +467,7 @@
 !ImageView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.53 2002-12-10 10:46:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.54 2002-12-10 11:05:01 cg Exp $'
 ! !
 
 ImageView initialize!
--- a/MultipleItemSelectionWidget.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/MultipleItemSelectionWidget.st	Tue Dec 10 12:05:10 2002 +0100
@@ -424,7 +424,7 @@
     ^ selectedItemListSelection.
 ! !
 
-!MultipleItemSelectionWidget methodsFor:'aspects - look'!
+!MultipleItemSelectionWidget methodsFor:'aspects-look'!
 
 addButtonLabelHolder
     "automatically generated by UIPainter ..."
@@ -500,5 +500,5 @@
 !MultipleItemSelectionWidget class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MultipleItemSelectionWidget.st,v 1.4 2000-10-07 14:31:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MultipleItemSelectionWidget.st,v 1.5 2002-12-10 11:02:27 cg Exp $'
 ! !
--- a/ProgressIndicator.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/ProgressIndicator.st	Tue Dec 10 12:05:10 2002 +0100
@@ -629,7 +629,27 @@
     "Modified: / 21.10.1998 / 18:03:06 / cg"
 ! !
 
-!ProgressIndicator methodsFor:'accessing - look'!
+!ProgressIndicator methodsFor:'accessing-behavior'!
+
+closeTopWhenDone:aBoolean
+    "set/clear the close-topView-when-done flag"
+
+    closeTopWhenDone := aBoolean
+
+    "Created: 3.9.1996 / 14:22:03 / cg"
+    "Modified: 29.3.1997 / 16:08:19 / cg"
+!
+
+finishAction:aBlock 
+    "define an action to be performed when finished"
+
+    finishAction := aBlock
+
+    "Created: 3.9.1996 / 14:15:15 / cg"
+    "Modified: 29.3.1997 / 16:08:35 / cg"
+! !
+
+!ProgressIndicator methodsFor:'accessing-look'!
 
 backgroundColor 
     "return the percentage displays background color"
@@ -693,26 +713,6 @@
     "Modified: / 6.6.1998 / 19:28:44 / cg"
 ! !
 
-!ProgressIndicator methodsFor:'accessing-behavior'!
-
-closeTopWhenDone:aBoolean
-    "set/clear the close-topView-when-done flag"
-
-    closeTopWhenDone := aBoolean
-
-    "Created: 3.9.1996 / 14:22:03 / cg"
-    "Modified: 29.3.1997 / 16:08:19 / cg"
-!
-
-finishAction:aBlock 
-    "define an action to be performed when finished"
-
-    finishAction := aBlock
-
-    "Created: 3.9.1996 / 14:15:15 / cg"
-    "Modified: 29.3.1997 / 16:08:35 / cg"
-! !
-
 !ProgressIndicator methodsFor:'change & update'!
 
 update:aspect with:aParameter from:changedObject
@@ -1028,5 +1028,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.40 2002-12-10 10:47:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.41 2002-12-10 11:05:10 cg Exp $'
 ! !
--- a/SelectionInListModelView.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/SelectionInListModelView.st	Tue Dec 10 12:05:10 2002 +0100
@@ -213,85 +213,6 @@
   ^ super list:aList
 ! !
 
-!SelectionInListModelView methodsFor:'accessing editor'!
-
-closeEditor
-    "close the current editor
-    "
-    |editor|
-
-    (editor := editorView) notNil ifTrue:[
-        editorView := nil.
-        closeEditorAction notNil ifTrue:[
-            closeEditorAction value:editor.
-        ].
-        editor destroy.
-    ].
-!
-
-closeEditorAction
-    "get the block which is evaluated before the editor is closed; the argument
-     to the action is the editor.
-    "
-    ^ closeEditorAction
-!
-
-closeEditorAction:anOneArgAction
-    "get the block which is evaluated before the editor is closed; the argument
-     to the action is the editor.
-    "
-    closeEditorAction := anOneArgAction.
-!
-
-openEditor
-    "opens the editor on the current selection;
-     returns the editorView or nil if no openEditorAction is defined
-     or no single selection exists ...
-    "
-    |numArgs lnNr|
-
-    self closeEditor.
-    shown ifFalse:[^ nil].
-    openEditorAction isNil ifTrue:[^ nil].
-    lnNr := self selectedIndex.
-    lnNr == 0 ifTrue:[^ nil].
-
-    self makeSelectionVisible.
-
-    numArgs := openEditorAction numArgs.
-
-    numArgs == 0 ifTrue:[
-        editorView := openEditorAction value
-    ] ifFalse:[
-        numArgs == 1 ifTrue:[editorView := openEditorAction value:lnNr]
-                    ifFalse:[editorView := openEditorAction value:lnNr value:self]
-    ].
-    editorView isNil ifTrue:[^ nil].
-
-    editorView superView isNil ifTrue:[
-        self addSubView:editorView
-    ].
-    self computeEditorLayout.
-    editorView realize.
-    self windowGroup focusView:editorView.
-  ^ editorView
-!
-
-openEditorAction
-    "get the block which is evaluated to get the editor which is set for the
-     line; the arguments to the block is the line number and the widget itself
-    "
-    ^ openEditorAction
-
-!
-
-openEditorAction:aTwoArgAction
-    "set the block which is evaluated to get the editor which is set for the
-     line; the arguments to the block is the line number and the widget itself
-    "
-    openEditorAction := aTwoArgAction.
-! !
-
 !SelectionInListModelView methodsFor:'accessing-actions'!
 
 action
@@ -492,6 +413,85 @@
 
 ! !
 
+!SelectionInListModelView methodsFor:'accessing-editor'!
+
+closeEditor
+    "close the current editor
+    "
+    |editor|
+
+    (editor := editorView) notNil ifTrue:[
+        editorView := nil.
+        closeEditorAction notNil ifTrue:[
+            closeEditorAction value:editor.
+        ].
+        editor destroy.
+    ].
+!
+
+closeEditorAction
+    "get the block which is evaluated before the editor is closed; the argument
+     to the action is the editor.
+    "
+    ^ closeEditorAction
+!
+
+closeEditorAction:anOneArgAction
+    "get the block which is evaluated before the editor is closed; the argument
+     to the action is the editor.
+    "
+    closeEditorAction := anOneArgAction.
+!
+
+openEditor
+    "opens the editor on the current selection;
+     returns the editorView or nil if no openEditorAction is defined
+     or no single selection exists ...
+    "
+    |numArgs lnNr|
+
+    self closeEditor.
+    shown ifFalse:[^ nil].
+    openEditorAction isNil ifTrue:[^ nil].
+    lnNr := self selectedIndex.
+    lnNr == 0 ifTrue:[^ nil].
+
+    self makeSelectionVisible.
+
+    numArgs := openEditorAction numArgs.
+
+    numArgs == 0 ifTrue:[
+        editorView := openEditorAction value
+    ] ifFalse:[
+        numArgs == 1 ifTrue:[editorView := openEditorAction value:lnNr]
+                    ifFalse:[editorView := openEditorAction value:lnNr value:self]
+    ].
+    editorView isNil ifTrue:[^ nil].
+
+    editorView superView isNil ifTrue:[
+        self addSubView:editorView
+    ].
+    self computeEditorLayout.
+    editorView realize.
+    self windowGroup focusView:editorView.
+  ^ editorView
+!
+
+openEditorAction
+    "get the block which is evaluated to get the editor which is set for the
+     line; the arguments to the block is the line number and the widget itself
+    "
+    ^ openEditorAction
+
+!
+
+openEditorAction:aTwoArgAction
+    "set the block which is evaluated to get the editor which is set for the
+     line; the arguments to the block is the line number and the widget itself
+    "
+    openEditorAction := aTwoArgAction.
+! !
+
 !SelectionInListModelView methodsFor:'change & update'!
 
 argForChangeMessage
@@ -2171,5 +2171,5 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.72 2002-12-09 09:51:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.73 2002-12-10 11:03:51 cg Exp $'
 ! !
--- a/SubCanvas.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/SubCanvas.st	Tue Dec 10 12:05:10 2002 +0100
@@ -165,7 +165,7 @@
     "Created: / 10.3.1998 / 16:20:52 / stefan"
 ! !
 
-!SubCanvas methodsFor:'accessing - canvasView handling'!
+!SubCanvas methodsFor:'accessing-canvasView handling'!
 
 keepClientView:aBoolean
     keepClientView := aBoolean
@@ -549,5 +549,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.47 2002-11-26 17:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.48 2002-12-10 11:04:48 cg Exp $'
 ! !
--- a/TabItem.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/TabItem.st	Tue Dec 10 12:05:10 2002 +0100
@@ -287,7 +287,7 @@
 
 ! !
 
-!TabItem methodsFor:'accessing canvas'!
+!TabItem methodsFor:'accessing-canvas'!
 
 canvas
     "returns the application or nil
@@ -424,7 +424,7 @@
   ^ frame
 ! !
 
-!TabItem methodsFor:'accessing scrolling'!
+!TabItem methodsFor:'accessing-scrollbars'!
 
 autoHideScrollBars
     ^ self adornmentAt:#autoHideScrollBars
@@ -772,5 +772,5 @@
 !TabItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabItem.st,v 1.13 2001-03-01 14:39:48 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabItem.st,v 1.14 2002-12-10 11:03:00 cg Exp $'
 ! !
--- a/TreeItem.st	Tue Dec 10 11:47:59 2002 +0100
+++ b/TreeItem.st	Tue Dec 10 12:05:10 2002 +0100
@@ -374,7 +374,7 @@
     ]
 ! !
 
-!TreeItem methodsFor:'accessing-model'!
+!TreeItem methodsFor:'accessing-mvc'!
 
 model
     "get my model (an instance of selection in tree) or nil
@@ -1036,6 +1036,7 @@
 !TreeItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.40 2002-05-15 08:03:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.41 2002-12-10 11:03:19 cg Exp $'
 ! !
+
 TreeItem initialize!
hg/stx-libwidg2