### Copyright (C) 1995, 1996, 1997 Jeppe Buk (buk@imada.ou.dk)
### 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.
###
### Mar. 11 1998 Japanized by Mashio Motoyama <moto@ba.mbn.or.jp>
###
proc FvwmIdent {} {
  # モジュール / FvwmIdent
  Desc "FvwmIdent モジュールの設定"
  ShortDesc "FvwmIdent"

  Header h\
	  -text "FvwmIdent" -frame:relief flat \
	  -help "このページでは FvwmIdent モジュールの設定を行います。このモジュールは、ウインドウを識別するために利用されます。"
  Line l
  CheckBox spawn\
	  -text "起動時から利用" \
	  -help "これを選択すると、このモジュールは起動時、つまり"\
	  "'InitFunction' と 'RestartFunction' からその動作を開始します。"
  Init {Disable spawn}

  Line globL

  CheckBox fcB\
	  -text "前景色: " \
	  -help "FvwmIdent ウインドウの前景色を変更したい場合に選択します。"
  Command fc \
      -default [list "black" 0] \
      -setvalue {
	$widget configure -bg [lindex $fc 0] -text "      "} \
      -invoke {ColorWidget $colorList [lindex $fc 0] \
		   [lindex $fc 1]} \
      -disable {$widget configure -relief flat } \
      -enable {$widget configure -relief raised } \
      -help "FvwmIdent で利用するテキストの色を選択します。"
  Frame fcF -entries fcB fc
  Change {
    if {$changeElm == "fcB"} {if {$fcB == 1} {Enable fc} else {Disable fc}}
  }
  Save {if {$fcB == 1} {print "*FvwmIdentFore\t[hash2rgb [lindex $fc 0]]"}}

  CheckBox bcB\
	  -text "背景色: " \
	  -help "FvwmIdent ウインドウの前景色を変更したい場合に選択します。"
  Command bc \
      -default [list "white" 0] \
      -setvalue {
	$widget configure -bg [lindex $bc 0] -text "      "} \
      -invoke {ColorWidget $colorList [lindex $bc 0] \
		   [lindex $bc 1]} \
      -disable {$widget configure -relief flat } \
      -enable {$widget configure -relief raised } \
      -help "FvwmIdent ウインドウの背景色を選択します。"
  Frame bcF -entries bcB bc
  Change {
    if {$changeElm == "bcB"} {if {$bcB == 1} {Enable bc} else {Disable bc}}
  }
  Save {if {$bcB == 1} {print "*FvwmIdentBack\t[hash2rgb [lindex $bc 0]]"}}

  CheckBox fnB\
	  -text "フォント: " \
	  -help "識別ウインドウで利用するフォントを選択します。このフォントは、全てのテキストに対して用いられます。"
  Command fn \
      -default "fixed" \
      -setvalue {buttonSetText $widget $fn $fn ascii} \
      -invoke {FontWidget $fn 0 ascii} \
      -disable {$widget configure -text "Not set"
	$widget configure -font fixed} \
      -enable {buttonSetText $widget $fn $fn ascii} \
      -help "FvwmIdent で利用するフォントを選択します。"
  Frame fnF -entries fnB fn
  Change {
    if {$changeElm == "fnB"} {if {$fnB == 1} {Enable fn} else {Disable fn}}
  }
  Save {if {$fnB == 1} {print "*FvwmIdentFont\t$fn"}}
}
