### Copyright (C) 1996 Rasmus Ingemann Hansen
### This program is free software; you can redistribute it and/or modify
### it under the terms of the GNU General Public License as published by
### the Free Software Foundation; either version 2 of the License, or
### (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### You should have received a copy of the GNU General Public License
### along with this program; if not, write to the Free Software
### Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

proc viewingcharset {} {
    # Viewing / Charactersets
    Desc "Viewing Charactersets"
    ShortDesc "Viewing Charactersets"

### Character sets ####
    Header head1 \
	-text "Character sets" \
	-background gray\
	-help "MIME, Multipurpose Internet Mail Extension (RFC 1341), provides a way to attach postscript(.ps), graphics(.jpeg), video(.mpeg), ..., and binary. Forinstance, this enables us (non US citizens) to use our local characters above the 128 charcters (8bit)."

    Entry formatEntry0 \
	-text "Name of character-set supported by your terminal" \
	-width 35 \
	-help "For sites with a X-Window system, \"ISO-8859-1\" is default but that will depend on your site's installation."

    Entry formatEntry1 \
	-text "Name of character-set used with MIME text/plain" \
	-width 40 \
	-help "This is the character set used for messages with a \"Content-Type: text/plain\" header. Be aware that if you use a national charset Elm probably needs metamail to display US-ASCII. An example could be \"ISO-8859-1\" which is set by default."

    Line line1

    Label formatLabel1 \
	-text "List of Character Sets, which are more or less a superset of US-ASCII:"
    Entry formatEntry2 \
	-packFrame:expand 1 -packFrame:fill x -packEntry:fill x -packEntry:expand 1
    foreach widget { formatLabel1 formatEntry2 } {
	Help $widget "So Elm know that it can display messages with charset=US-ASCII without help of metamail. An example could be \"ISO-8859-1 ... ISO-8859-9\"."
    }


  ################################ Change #################################
    Change {
    }

  ############################## Init / Save ##############################

    Init {
    }

    Save {
	print "\n# name of Character Set which the display supports. This is independent\n# of the above charset"
	print "displaycharset = $formatEntry0"

	print "\n# name of Character Set used with MIME text/plain Content-type\n# US-ASCII is default. Be aware that if you use a national charset\n# elm probably needs metamail to display US-ASCII."
	print "charset = $formatEntry1"

	print "\n# list of Character Sets, which are more or less a superset of US-ASCII\n# so Elm can display messages with charset=US-ASCII without help of metamail"
	print "compatcharsets = $formatEntry2"
    }
}



