Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /eXene/releases/release-110.80/styles/save/style-value-sig.sml
ViewVC logotype

View of /eXene/releases/release-110.80/styles/save/style-value-sig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4280 - (download) (annotate)
Fri Aug 19 12:31:07 2016 UTC (3 years, 1 month ago) by jhr
File size: 685 byte(s)
Release 110.80
(* style-value-sig.sml
 *
 * COPYRIGHT (c) 1994 AT&T Bell Laboratories.
 *)

signature STYLE_VALUE =
  sig

    datatype style_type
      = ST_Str
      | ST_Int
      | ST_Real
      | ST_Bool
      | ST_Font
      | ST_Color

    datatype style_value
      = SV_Str of string
      | SV_Int of int
      | SV_Real of real
      | SV_Bool of bool
      | SV_Font of EXeneBase.font
      | SV_Color of EXeneBase.color

    exception BadStyleValue

    val cvtStyleValue : EXeneBase.screen -> (string * style_type) -> style_value
	(* convert a string to the specified kind of style value; this raises
	 * BadStyleValue if the string has the wrong format.
	 *)

  end; (* STYLE_VALUE *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0