### 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. 9 1998 Japanized by Mahsio Motoyama <moto@ba.mbn.or.jp>
###
proc FvwmBanner {} {
  # モジュール / FvwmBanner
  Desc "FvwmBanner モジュールの設定"
  ShortDesc "FvwmBanner"

  Header h -text "FvwmBanner" -frame:relief flat \
      -help "このページでは FvwmBanner モジュールの設定を行います。"\
      "このモジュールは、起動時に FVWM のロゴ等を数秒間表示するために使われます。"
  Line l
  CheckBox spawn -text "起動時から利用" \
	  -help "これを選択すると、このモジュールは起動時、つまり"\
	  "'InitFunction' と 'RestartFunction' からその動作を開始します。"
  Entry pixmap\
	  -text "ピックスマップを"\
	  -textafter "に変更"\
	  -help "FvwmBanner モジュールで表示する FVWM のロゴを別の物に変更するならば、そのピックスマップを入力します。"
  Int delay\
	  -text "タイムアウト時間を"\
	  -textafter "秒に設定"\
	  -help "標準の表示時間は三秒間ですが、これが気に食わないときには秒単位で表示時間を設定できます。"

  Save {
    if {$pixmap != "" && $pixmap != "/"} {print "*FvwmBannerPixmap\t$pixmap"}
    if {$delay  != ""} {print "*FvwmBannerTimeout\t$delay"}
    if {$spawn == 1} {
      print "AddToFunc InitFunction \"I\" Module FvwmBanner"
      print "AddToFunc RestartFunction \"I\" Module FvwmBanner"
    }
  }
}
