"
 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'
	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'!

nameListEntryForALL
    ^ AllEntry ? '* all *'

    "Created: / 24.2.2000 / 13:39:10 / cg"
    "Modified: / 25.2.2000 / 21:18:30 / cg"
!

nameListEntryForNILCategory
    ^ '* no category *'
!

nameListEntryForNonStatic
    ^ '* instance *'
!

nameListEntryForStatic
    ^ '* static *'
! !

!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:NavigatorModel andSelector:#metaSpec
     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
	    )
	   )
         
	)
      )
! !

!NavigatorModel class methodsFor:'misc'!

classResources
    ^ NewSystemBrowser classResources
! !

!NavigatorModel methodsFor:'misc'!

resources
    |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.2 2004-02-26 19:03:55 cg Exp $'
! !

NavigatorModel initialize!