### 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.
###
### Mon Feb 23 1998 Japanized by Mashio Motoyama <moto@ba.mbn.or.jp>
###

proc miscellaneous {} {
  # 概観と操作性 / その他
  Desc "その他の雑多な設定"
  ShortDesc "その他の設定"

  Header miscH -text "その他の設定" -frame:relief flat
  Line miscL

  #######################################################################
  # ClickTime
  #
  CheckBox clickTime -text "ダブルクリックの遅延時間を"
  Int clickDelay -textafter "ミリ秒に変更"
  Frame clickDelayF -entries { clickTime clickDelay }

  Help clickTime \
      "クリックからダブルクリックまでの遅延時間を設定します。これはダブルクリックに関してトラブルを抱えている場合に有効です。"
  Help clickDelay \
      "ここではダブルクリックになる、クリック間の最大の空き時間を(ミリ秒で)指定できます。FVWM の標準は 150 ミリ秒です。"

  Change {
    if { $changeElm == "clickTime" } {
      if { $clickTime == 1 } { Enable clickDelay } else { Disable clickDelay }
    }
  }

  PageEnd {
    if { $clickTime == 1 } {
      if { $clickDelay == "" } {
	error "ダブルクリックの遅延時間が設定されていません。"
      }
    }
  }
  
  Save {if { $clickTime == 1 } { print "ClickTime\t$clickDelay" }}
  #
  #######################################################################

  #######################################################################
  # ColormapFocus
  #
  CheckBox cmf -text "キーボードフォーカスを得たウインドウに\nカラーマップをインストールする。"\
      -justify left

  Help cmf \
	  "通常 FVWM はマウスがウインドウに入るとカラーマップをインストールします。しかしこの設定オプションによってその振舞を変え、キーボードフォーカスを得たウインドウがカラーマップを決定します。"

  Save {if {$cmf == 1} {print "ColormapFocus\tFollowsFocus"}}
  #
  #######################################################################

  #######################################################################
  # OpaqueMove
  #
  CheckBox opmB -text "不明瞭な動作に対する最大ウインドウサイズを"
  Int opmE -text "  物理スクリーンの" -textafter "% に設定する。"

  set opmHelp [concat \
      "標準では物理スクリーンの 5% に設定されています。もし高速なサーバを持ち、この値を大きくするならば、大きなウインドウでもあやふやな動きをさせることができます。"]
  Help opmB $opmHelp
  Help opmE $opmHelp

  Change {
    if { $changeElm == "opmB" } {
      if { $opmB == 1 } { Enable opmE } else { Disable opmE }
    }
  }

  PageEnd {
    if { $opmB == 1 && ( $opmE == "" || $opmE > 100 || $opmE < 0 ) } {
      error "\"不明瞭な動作\"に無効な値が設定されています。"
    }
  }

  Save { if { $opmB == 1 } { print "OpaqueMoveSize\t$opmE" } }
  #
  #######################################################################

  #######################################################################
  # XORvalue
  #
  CheckBox xorB -text "XOR 値を"
  Int xorV -textafter "に変更する。"
  Frame xor -entries { xorB xorV }

  Help xorB "この XOR 値はウインドウを移動させたりレイズする時のラバーバンドで利用されます。従ってこの値を使ってラバーバンドの見え方を変更することができます。しかしながらこれを行うには思考錯誤が必要になります。"
  Help xorV \
      "XOR 値を入力します。"

  Change {
    if { $changeElm == "xorB" } {
      if { $xorB == 1 } { Enable xorV } else { Disable xorV }
    }
  }

  PageEnd {
    if { $xorB == 1 && $xorV == "" } {
      error "無効な XOR 値が与えられています。"
    }
  }

  Save { if { $xorB == 1 } { print "XORvalue\t$xorV" } }
  #
  #######################################################################
}