### Copyright (C) 1995 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.
###
### [Fri May 30 1997]
### Some messages (label, help,..) were Japanized by MOTOYAMA,mashio
### <moto@ba.mbn.or.jp>. If you want to use original messages try this URL.
### Dotfile Generator's Page<http://www.imada.ou.dk/~buk/dotfile/>


proc activeColors {} {
  # カラーリング / アクティヴ・ウインドウ
  Desc "アクティヴ・ウインドウ"
  ShortDesc "アクティヴ・ウインドウ"

  # Find the names of all the defined colors
  set names [getColors]
  
  if {$names != {}} {
    # The colors have been found
    ListBox for -text "前景色" -entries $names -selectmode single \
	-help "アクティヴ・ウインドウの前景色です"
    ListBox bac -text "背景色" -entries $names -selectmode single \
	-help "アクティヴ・ウインドウの背景色です。"
  } else {
    error "Unable to execute 'showrgb' (comes with X11)"
  }

  Save {
    if {$for(name) != {}} {print "HiForeColor\t$for(name)"}
    if {$bac(name) != {}} {print "HiBackColor\t$bac(name)"}
  }
}

proc inactiveColors {} {
  # カラーリング / 非アクティヴ・ウインドウ
  Desc "非アクティヴ・ウインドウ"
  ShortDesc "非アクティヴ・ウインドウ"

  # Find the names of all the defined colors
  set names [getColors]
  
  if {$names != {}} {
    # The colors have been found
    ListBox for -text "前景色" -entries $names -selectmode single \
	-help "アクティヴでなく、スティッキーでもないときの前景色です"
    ListBox bac -text "背景色" -entries $names -selectmode single \
	-help "アクティヴでなく、スティッキーでもないときの背景色です"
  }

  Save {
    if {$for(name) != {}} {print "StdForeColor\t$for(name)"}
    if {$bac(name) != {}} {print "StdBackColor\t$bac(name)"}
  }
}

proc stickyColors {} {
  # カラーリング / スティッキー・ウインドウ
  Desc "スティッキー・ウインドウの色"
  ShortDesc "スティッキー・ウインドウ"

  # Find the names of all the defined colors
  set names [getColors]
  
  if {$names != {}} {
    # The colors have been found
    ListBox for -text "前景色" -entries $names -selectmode single \
	-help "アクティヴでなく、スティッキーなウインドウの前景色です"
    ListBox bac -text "背景色" -entries $names -selectmode single \
	-help "アクティヴでなく、スティッキーなウインドウの背景色です"
  }

  Save {
    if {$for(name) != {}} {print "StickyForeColor\t$for(name)"}
    if {$bac(name) != {}} {print "StickyBackColor\t$bac(name)"}
  }
}

proc pagerColors {} {
  # カラーリング / インターナル・ページャ
  Desc "インターナル・ページャ"
  ShortDesc "インターナル・ページャ"

  # Find the names of all the defined colors
  set names [getColors]
  
  if {$names != {}} {
    # The colors have been found
    ListBox for -text "前景色" -entries $names -selectmode single \
	-help "インターナル・ページャの前景色です"
    ListBox bac -text "背景色" -entries $names -selectmode single \
	-help "インターナル・ページャの背景色です"
  }

  Save {
    if {$for(name) != {}} {print "PagerForeColor\t$for(name)"}
    if {$bac(name) != {}} {print "PagerBackColor\t$bac(name)"}
  }
}

proc menuColors {} {
  # カラーリング / メニュー
  Desc "メニューの色"
  ShortDesc "メニューの色"

  # Find the names of all the defined colors
  set names [getColors]
  
  if {$names != {}} {
    # The colors have been found
    ListBox for -text "前景色" -entries $names -selectmode single \
	-help "メニュー・アイテムの前景色です"
    ListBox bac -text "背景色" -entries $names -selectmode single \
	-help "メニュー・アイテムの背景色です"
    ListBox stp -text "無効アイテム前景色" -entries $names -selectmode single \
	-help "無効なメニュー・アイテムの前景色です"
  }

  Save {
    if {$for(name) != {}} {print "MenuForeColor\t$for(name)"}
    if {$bac(name) != {}} {print "MenuBackColor\t$bac(name)"}
    if {$stp(name) != {}} {print "MenuStippleColor\t$stp(name)"}
  }
}
