"{ Encoding: utf8 }"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

Object subclass:#QualifiedName

	instanceVariableNames:'pathString'

	classVariableNames:''

	poolDictionaries:''

	category:'Kernel-Support'

!

!QualifiedName class methodsFor:'documentation'!

documentation

"

    a dummy class to allow fileIn of some VW code

"

! !

!QualifiedName class methodsFor:'instance creation'!

pathString:pathStringArg 

    ^ self new pathString:pathStringArg 

! !

!QualifiedName methodsFor:'accessing'!

pathString

    ^ pathString

!

pathString:pathStringArg 

    pathString := pathStringArg.

! !

!QualifiedName class methodsFor:'documentation'!

version_CVS

    ^ '$Header$'

! !