--- a/FontPanel.st Sun Mar 16 23:46:05 2014 +0100
+++ b/FontPanel.st Mon Mar 17 02:36:53 2014 +0100
@@ -962,7 +962,7 @@
!
updateSizeList
- |sizes sizeStrings|
+ |sizes sizeStrings oldSize|
sizes := self
getSizesInFamily:(currentFamily ? '*')
@@ -979,10 +979,13 @@
sizes := sizes asOrderedCollection.
selectedFont notNil ifTrue:[
+ oldSize := currentSize.
currentSize := (selectedFont sizeUnit == #px)
ifTrue:[ selectedFont pixelSize ]
ifFalse:[ selectedFont size ].
-
+ currentSize == 0 ifTrue:[
+ currentSize := oldSize
+ ].
(sizes includes:currentSize) ifFalse:[
sizes add:currentSize
].
@@ -1275,10 +1278,10 @@
!FontPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.114 2014-03-16 22:46:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.115 2014-03-17 01:36:53 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.114 2014-03-16 22:46:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.115 2014-03-17 01:36:53 cg Exp $'
! !