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