--- a/Tools_NavigatorModel.st Tue Nov 07 17:41:19 2006 +0100
+++ b/Tools_NavigatorModel.st Tue Nov 07 18:16:48 2006 +0100
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libtool' }"
"{ NameSpace: Tools }"
@@ -82,52 +81,52 @@
the UIPainter may not be able to read the specification."
"
- UIPainter new openOnClass:NavigatorModel andSelector:#metaSpec
- NavigatorModel new openInterface:#metaSpec
+ UIPainter new openOnClass:Tools::NavigatorModel andSelector:#metaSpec
+ Tools::NavigatorModel new openInterface:#metaSpec
"
<resource: #canvas>
^
- #(#FullSpec
- #name: #metaSpec
- #window:
- #(#WindowSpec
- #label: 'MetaToggles'
- #name: 'MetaToggles'
- #min: #(#Point 0 0)
- #max: #(#Point 1024 721)
- #bounds: #(#Rectangle 16 46 316 74)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#RadioButtonSpec
- #label: 'Instance'
- #name: 'InstanceToggle'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 0.5 25 0)
- #translateLabel: true
- #tabable: true
- #model: #notMetaToggle
- #isTriggerOnDown: true
- #select: true
- #isToggle: true
- )
- #(#RadioButtonSpec
- #label: 'Class'
- #name: 'ClassToggle'
- #layout: #(#LayoutFrame 0 0.5 0 0 0 1.0 25 0)
- #translateLabel: true
- #labelChannel: #metaToggleLabelHolder
- #tabable: true
- #model: #metaToggle
- #isTriggerOnDown: true
- #select: true
- #isToggle: true
- )
- )
+ #(FullSpec
+ name: metaSpec
+ window:
+ (WindowSpec
+ label: 'MetaToggles'
+ name: 'MetaToggles'
+ min: (Point 0 0)
+ max: (Point 1024 721)
+ bounds: (Rectangle 0 0 300 28)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (RadioButtonSpec
+ label: 'Instance'
+ name: 'InstanceToggle'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 0.5 25 0)
+ translateLabel: true
+ tabable: true
+ model: notMetaToggle
+ isTriggerOnDown: true
+ select: true
+ isToggle: true
+ )
+ (RadioButtonSpec
+ label: 'Class'
+ name: 'ClassToggle'
+ layout: (LayoutFrame 0 0.5 0 0 0 1.0 25 0)
+ translateLabel: true
+ labelChannel: metaToggleLabelHolder
+ tabable: false
+ model: metaToggle
+ isTriggerOnDown: true
+ select: true
+ isToggle: true
+ )
+ )
- )
+ )
)
! !
@@ -151,7 +150,7 @@
!NavigatorModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.3 2006-08-29 11:19:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.4 2006-11-07 17:16:48 cg Exp $'
! !
NavigatorModel initialize!