Boot Disc 13/boot-disc-1997-09.iso/HyprWire/DATA.Z/DataType.mdf

Text File | 1996-10-25 | 13KB | 413 lines

kxKinetix
kxType = kxDataTypesPlugIn

kxModuleDefinition BasicDataTypes =
  {
  kxDataType AbsoluteURL =
    {
    kxJavaSignature = "LAbsoluteURL;"
    kxPublicName = "Absolute URL"
    kxSmalltalkProxyClass = AbsoluteURL
    kxLiteralParseSelector = nextURL
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaURL
    kxReturnTypeClass = HwLObject
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType boolean =
    {
    kxJavaSignature = "Z"
    kxPublicName = "Boolean"
    kxSmalltalkProxyClass = Boolean
    kxLiteralParseSelector = nextBoolean
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaBoolean
    kxReturnTypeClass = HwBoolean
    kxCanBeLiteral = true
    }

  kxDataType byte =
    {
    kxJavaSignature = "B"
    kxPublicName = "Byte"
    kxSmalltalkProxyClass = Integer
    kxLiteralParseSelector = nextInteger
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaInt
    kxReturnTypeClass = HwInt
    }

  kxDataType char =
    {
    kxJavaSignature = "C"
    kxPublicName = "Character"
    kxSmalltalkProxyClass = Character
    kxLiteralParseSelector = nextCharacter
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaCharacter
    kxReturnTypeClass = HwCharacter
    }

  kxDataType Color =
    {
    kxJavaSignature = "LColor;"
    kxPublicName = "Color"
    kxSmalltalkProxyClass = OpusPrimColor
    kxLiteralParseSelector = nextColor
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaColor
    kxReturnTypeClass = HwColor
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType double =
    {
    kxJavaSignature = "D"
    kxPublicName = "Double"
    kxSmalltalkProxyClass = Float
    kxLiteralParseSelector = nextFloat
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaDouble
    kxReturnTypeClass = HwDouble
    }

  kxDataType float =
    {
    kxJavaSignature = "F"
    kxPublicName = "Float"
    kxSmalltalkProxyClass = Float
    kxLiteralParseSelector = nextFloat
    kxConstructorSelector = javaBasicConstructorF
    kxParameterCoercionMethod = coerceToJavaDouble
    kxReturnTypeClass = HwDouble
    }

  kxDataType Font =
    {
    kxJavaSignature = "LFont;"
    kxPublicName = "Font"
    kxParameterCoercionMethod = coerceToJavaFont
    kxReturnTypeClass = HwFont
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType int =
    {
    kxJavaSignature = "I"
    kxPublicName = "Integer"
    kxSmalltalkProxyClass = Integer
    kxLiteralParseSelector = nextInteger
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaInt
    kxReturnTypeClass = HwInt
    }

  kxDataType long =
    {
    kxJavaSignature = "J"
    kxPublicName = "Long Integer"
    kxSmalltalkProxyClass = Integer
    kxLiteralParseSelector = nextInteger
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaLong
    kxReturnTypeClass = HwLong
    }

  kxDataType java.lang.String =
    {
    kxJavaSignature = "Ljava.lang.String;"
    kxPublicName = "String"
    kxSmalltalkProxyClass = String
    kxLiteralParseSelector = nextStringRequired
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaString
    kxReturnTypeClass = HwString
    kxLiteralHighlightSelector = parmFieldSelectString:
    }

  kxDataType java.net.URL =
    {
    kxJavaSignature = "Ljava.net.URL;"
    kxPublicName = "Relative URL"
    kxSmalltalkProxyClass = RelativeURL
    kxLiteralParseSelector = nextURL
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaURL
    kxReturnTypeClass = HwLObject
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType Nodule =
    {
    kxJavaSignature = "LNodule;"
    kxPublicName = "Hyperwire Module"
    kxParameterCoercionMethod = coerceToNodule
    kxReturnTypeClass = HwModule
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType Object =
    {
    kxJavaSignature = "LObject;"
    kxPublicName = "Object"
    kxParameterCoercionMethod = getValue
    kxReturnTypeClass = HwLObject
    }

  kxDataType HwBoolean =
    {
    kxJavaSignature = "LHwBoolean;"
    kxPublicName = "Boolean"
    kxSmalltalkProxyClass = Boolean
    kxLiteralParseSelector = nextBoolean
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToBoolean
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwColor =
    {
    kxJavaSignature = "LHwColor;"
    kxPublicName = "Color"
    kxSmalltalkProxyClass = OpusPrimColor
    kxLiteralParseSelector = nextColor
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToColor
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwDouble =
    {
    kxJavaSignature = "LHwDouble;"
    kxPublicName = "Double"
    kxSmalltalkProxyClass = Float
    kxLiteralParseSelector = nextFloat
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToDouble
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwFloat =
    {
    kxJavaSignature = "LHwFloat;"
    kxPublicName = "Float"
    kxSmalltalkProxyClass = Float
    kxLiteralParseSelector = nextFloat
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToFloat
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwFont =
    {
    kxJavaSignature = "LHwFont;"
    kxPublicName = "Font"
    kxParameterCoercionMethod = coerceToFont
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwInt =
    {
    kxJavaSignature = "LHwInt;"
    kxPublicName = "Integer"
    kxSmalltalkProxyClass = Integer
    kxLiteralParseSelector = nextInteger
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToInteger
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwLong =
    {
    kxJavaSignature = "LHwLong;"
    kxPublicName = "Long Integer"
    kxSmalltalkProxyClass = Integer
    kxLiteralParseSelector = nextInteger
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToLong
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwMatrix =
    {
    kxJavaSignature = "LHwMatrix;"
    kxPublicName = "Matrix"
    kxParameterCoercionMethod = coerceToMatrix
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwModule =
    {
    kxJavaSignature = "LHwModule;"
    kxPublicName = "Hyperwire Module"
    kxParameterCoercionMethod = coerceToModule
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwNumber =
    {
    kxJavaSignature = "LHwNumber;"
    kxPublicName = "Number"
    kxSmalltalkProxyClass = Number
    kxParameterCoercionMethod = coerceToNumber
    kxCanBeLiteral = true
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwObject =
    {
    kxJavaSignature = "LHwObject;"
    kxPublicName = "Object"
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwPoint =
    {
    kxJavaSignature = "LHwPoint;"
    kxPublicName = "Point"
    kxSmalltalkProxyClass = Point
    kxLiteralParseSelector = nextPoint
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToPoint
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwRectangle =
    {
    kxJavaSignature = "LHwRectangle;"
    kxPublicName = "Rectangle"
    kxSmalltalkProxyClass = Rectangle
    kxLiteralParseSelector = nextRectangle
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToRectangle
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwString =
    {
    kxJavaSignature = "LHwString;"
    kxPublicName = "String"
    kxSmalltalkProxyClass = String
    kxLiteralParseSelector = nextStringRequired
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToString
    kxLiteralHighlightSelector = parmFieldSelectString:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType HwVector =
    {
    kxJavaSignature = "LHwVector;"
    kxPublicName = "Array"
    kxSmalltalkProxyClass = Array
    kxParameterCoercionMethod = coerceToArray
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType Point =
    {
    kxJavaSignature = "LPoint;"
    kxPublicName = "Point"
    kxSmalltalkProxyClass = Point
    kxLiteralParseSelector = nextPoint
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaPoint
    kxReturnTypeClass = HwPoint
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType Point3 =
    {
    kxJavaSignature = "LPoint3;"
    kxPublicName = "Point 3D"
    kxSmalltalkProxyClass = Point3
    kxLiteralParseSelector = nextPoint3
    kxConstructorSelector = javaConstructor
    kxParameterCoercionMethod = coerceToPoint3
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType Rectangle =
    {
    kxJavaSignature = "LRectangle;"
    kxPublicName = "Rectangle"
    kxSmalltalkProxyClass = Rectangle
    kxLiteralParseSelector = nextRectangle
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaRectangle
    kxReturnTypeClass = HwRectangle
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  kxDataType ReferencePoint =
    {
    kxJavaSignature = "LReferencePoint;"
    kxPublicName = "Reference Point"
    kxSmalltalkProxyClass = ReferencePoint
    kxParameterCoercionMethod = coerceToReferencePoint
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    kxReturnTypeClass = HwObject    // Special case -- will leave return value unchanged
    }

  kxDataType short =
    {
    kxJavaSignature = "S"
    kxPublicName = "Short Integer"
    kxSmalltalkProxyClass = Integer
    kxLiteralParseSelector = nextInteger
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaInt
    kxReturnTypeClass = HwShort
    }

  kxDataType String =
    {
    kxJavaSignature = "LString;"
    kxPublicName = "String"
    kxSmalltalkProxyClass = String
    kxLiteralParseSelector = nextStringRequired
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaString
    kxReturnTypeClass = HwString
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectString:
    }

  kxDataType UndefinedObject =
    {
    kxPublicName = "Undefined Object"
    kxSmalltalkProxyClass = UndefinedObject
    kxCanBeLiteral = true
    }

  kxDataType URL =
    {
    kxJavaSignature = "LURL;"
    kxPublicName = "Relative URL"
    kxSmalltalkProxyClass = RelativeURL
    kxLiteralParseSelector = nextURL
    kxConstructorSelector = javaBasicConstructor
    kxParameterCoercionMethod = coerceToJavaURL
    kxReturnTypeClass = HwLObject
    kxCanBeLiteral = true
    kxLiteralHighlightSelector = parmFieldSelectInParens:
    }

  }