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.
border a la vista
authorClaus Gittinger <cg@exept.de>
Sat, 24 Oct 2009 18:01:28 +0200
changeset 3825 f5fe434e1cf7
parent 3824 5d7e67f50bb5
child 3826 608aa28e7676
border a la vista
ComboView.st file | annotate | diff | comparison | revisions 
--- a/ComboView.st	Sat Oct 24 16:42:02 2009 +0200
+++ b/ComboView.st	Sat Oct 24 18:01:28 2009 +0200
@@ -576,6 +576,13 @@
     super destroy.
 !
 
+initStyle
+    super initStyle.
+
+    self borderWidth:(EditField defaultBorderWidth).
+    self borderColor:(EditField defaultBorderColor).
+!
+
 initialize
     |prefExt leftInset rightInset prefWidth halfSpacing nm lvl|
 
@@ -586,7 +593,7 @@
     changeMsg := self class defaultChangeMessage.
 
     self initializeField.
-    field origin:0@0 corner:1.0@1.0.
+    field origin:margin@margin corner:1.0@1.0.
     self shadowColor:(field shadowColor).
 
     self initializeButton.
@@ -863,9 +870,9 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.101 2009-10-24 14:42:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.102 2009-10-24 16:01:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.101 2009-10-24 14:42:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.102 2009-10-24 16:01:28 cg Exp $'
 ! !
hg/stx-libwidg2