--- a/UIObjectView.st Fri May 30 14:25:31 2008 +0200
+++ b/UIObjectView.st Fri May 30 14:36:10 2008 +0200
@@ -2577,7 +2577,7 @@
|list tabs top slv hzp inset selection okButton|
history isEmpty ifTrue:[
- ^ self
+ ^ self
].
top := StandardSystemView new label:'undo history'; extent:250@350.
@@ -2590,7 +2590,7 @@
okButton label:'undo to end'.
okButton action:[ top destroy ].
- inset := hzp preferredExtent y.
+ inset := hzp preferredHeight.
hzp topInset:(inset negated).
slv bottomInset:inset.
slv := slv scrolledView.
@@ -2601,11 +2601,11 @@
tabs align:#(#left #left).
list := history collect:[:aTrans||e|
- e := MultiColListEntry new.
- e colAt:1 put:(aTrans typeAsString).
- e colAt:2 put:(aTrans text ? '').
- e tabulatorSpecification:tabs.
- e
+ e := MultiColListEntry new.
+ e colAt:1 put:(aTrans typeAsString).
+ e colAt:2 put:(aTrans text ? '').
+ e tabulatorSpecification:tabs.
+ e
].
slv list:list.
@@ -2613,7 +2613,7 @@
top openModal.
selection notNil ifTrue:[
- self undoLast:(history size - selection + 1).
+ self undoLast:(history size - selection + 1).
]
! !