class OpenEdge.Core.LogicalValue
	implements Ccs.Common.Support.ILogicalHolder, 
		Ccs.Common.Support.IPrimitiveHolder:

	constructor public LogicalValue ( plVal as logical):
	end.

	define public property Format as character no-undo
		public get.
		public set.

	define public property Value as logical no-undo
		public get.
		private set.

	method public override character ToString ():
	end.

	method public override logical Equals ( PO as Progress.Lang.Object):
	end.

end.
