!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: stringpair.gs,v 1.4 2008-01-09 22:50:19 stever Exp $
!
! Superclass Hierarchy:
!   StringPair, Association, Object.
!
!=========================================================================

expectvalue %String
run
Association _newKernelSubclass: 'StringPair'
  instVarNames: #()
  classVars: #()
  classInstVars: #()
  poolDictionaries: #[]
  inDictionary: Globals
  constraints: #[ #[#key, String],
                  #[#value, String]]
  instancesInvariant: false
  isModifiable: false
  reservedOop: 737
%

removeallmethods StringPair
removeallclassmethods StringPair

category: 'For Documentation Installation only'
classmethod: StringPair
installDocumentation

| doc txt |
doc := GsClassDocumentation newForClass: self.

txt := (GsDocText new) details:
'A StringPair is an Association whose key and value are both constrained
 to be Strings.'.
doc documentClassWith: txt.

self description: doc.
%

