"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libtool' }"
"{ NameSpace: Tools }"
ApplicationModel subclass:#NavigatorModel
instanceVariableNames:''
classVariableNames:'AllEntry SuperSendEntry UncommentedEntry'
poolDictionaries:''
category:'Interface-Browsers-New'
!
!NavigatorModel class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
! !
!NavigatorModel class methodsFor:'initialization'!
initialize
AllEntry := '* all *'.
"Created: / 24.2.2000 / 13:41:29 / cg"
! !
!NavigatorModel class methodsFor:'defaults'!
markForBeingInChangeList
^ ' *'
"Created: / 29-08-2006 / 10:26:05 / cg"
!
nameListEntryForALL
^ AllEntry ? '* all *'
"Created: / 24.2.2000 / 13:39:10 / cg"
"Modified: / 25.2.2000 / 21:18:30 / cg"
!
nameListEntryForDocumentation
^ '* documentation (%1) *'
!
nameListEntryForNILCategory
^ '* no category *'
!
nameListEntryForNonStatic
^ '* instance *'
!
nameListEntryForObsolete
^ '* obsolete (%1) *'
!
nameListEntryForStatic
^ '* static *'
!
nameListEntryForSuperSend
^ '* super (%1) *'
!
nameListEntryForUncommented
^ '* uncommented (%1) *'
! !
!NavigatorModel class methodsFor:'interface specs'!
metaSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
"
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 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
)
)
)
)
! !
!NavigatorModel class methodsFor:'misc'!
classResources
^ NewSystemBrowser classResources
! !
!NavigatorModel methodsFor:'misc'!
resources
"answer the resources of my masterApp, if there is one"
|m|
(m := self masterApplication) notNil ifTrue:[
^ m resources
].
^ super resources
! !
!NavigatorModel class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.8 2009-09-21 12:50:29 cg Exp $'
! !
NavigatorModel initialize!