cleanup
authorClaus Gittinger <cg@exept.de>
Mon, 21 Sep 2009 22:46:53 +0200
changeset 8743 49ab1a31fb79
parent 8742 b70571855d48
child 8744 2ad1b8a365db
cleanup
Tools_OrganizerCanvas.st
--- a/Tools_OrganizerCanvas.st	Mon Sep 21 22:46:34 2009 +0200
+++ b/Tools_OrganizerCanvas.st	Mon Sep 21 22:46:53 2009 +0200
@@ -3359,13 +3359,13 @@
 updateNameSpaceLabel
     |box|
 
-    box := self builder componentAt:#NameSpaceFilterComboBox.
+    box := self componentAt:#NameSpaceFilterComboBox.
     box notNil ifTrue:[
-	"/ new code: ExtComboBox uses always an EditField
-	box editor contents:nameSpaceFilterSelection value first.        
-
-	"/ old code: readOnly ExtComboBox used a Label
-	"/ box menuField label:nameSpaceFilterSelection value first
+        "/ new code: ExtComboBox uses always an EditField
+        box editor contents:nameSpaceFilterSelection value first.        
+
+        "/ old code: readOnly ExtComboBox used a Label
+        "/ box menuField label:nameSpaceFilterSelection value first
     ]
 !
 
@@ -4901,5 +4901,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.36 2009-09-21 13:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.37 2009-09-21 20:46:53 cg Exp $'
 ! !