--- a/ListSelectionBox.st Thu Mar 22 10:42:07 2012 +0100
+++ b/ListSelectionBox.st Thu Mar 22 10:52:46 2012 +0100
@@ -12,7 +12,8 @@
"{ Package: 'stx:libwidg' }"
EnterBox subclass:#ListSelectionBox
- instanceVariableNames:'list selectionList selectionChangeCallback useIndex searchJob'
+ instanceVariableNames:'panel list selectionList selectionChangeCallback useIndex
+ searchJob'
classVariableNames:''
poolDictionaries:''
category:'Views-DialogBoxes'
@@ -226,6 +227,12 @@
^ selectionList
"Created: 26.10.1995 / 17:08:32 / cg"
+!
+
+panelView
+ ^ panel
+
+ "Created: / 22-03-2012 / 10:30:16 / cg"
! !
!ListSelectionBox methodsFor:'accessing-look'!
@@ -287,7 +294,11 @@
space2 := 2 * ViewSpacing.
halfSpace := ViewSpacing // 2.
- v := HVScrollableView for:(self class listViewType) in:self.
+ panel := VerticalPanelView in:self.
+ panel horizontalLayout:#fit.
+ panel verticalLayout:#topFit.
+
+ v := HVScrollableView for:(self class listViewType) in:panel.
v horizontalScrollable:true; horizontalMini:true; autoHideHorizontalScrollBar:true.
"/ old:
@@ -304,18 +315,19 @@
"/ ].
"/ new:
- v origin:[enterField notNil ifTrue:[
+ panel origin:[enterField notNil ifTrue:[
0.0 @ (enterField origin y + enterField height + ViewSpacing)
] ifFalse:[
0.0 @ (labelField origin y + labelField height + ViewSpacing)
]
]
corner:(1.0 @ 1.0).
- v bottomInset:(buttonPanel preferredHeight + ViewSpacing).
+ panel bottomInset:(buttonPanel preferredHeight + ViewSpacing).
vbw := v borderWidth.
- v leftInset:halfSpace+vbw;
- rightInset:halfSpace+vbw.
+ v
+ leftInset:halfSpace+vbw;
+ rightInset:halfSpace+vbw.
selectionList := v scrolledView.
self makeTabable:selectionList.
@@ -355,7 +367,7 @@
filter:[:key | (key ~~ #CursorUp) and:[key ~~ #CursorDown]]
)
- "Modified: / 25-08-2010 / 22:01:48 / cg"
+ "Modified (format): / 22-03-2012 / 10:30:03 / cg"
!
postRealize
@@ -480,9 +492,9 @@
!ListSelectionBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.61 2011-08-03 11:50:06 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.62 2012-03-22 09:52:46 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.61 2011-08-03 11:50:06 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListSelectionBox.st,v 1.62 2012-03-22 09:52:46 cg Exp $'
! !