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

proc paths {} {
  # 検索パス
  
  Desc "このページでは FVWM がアイコンやモジュールを検索するパスを設定します。"
  ShortDesc "アイコンとモジュールの検索パス"

  ######################################################################
  # Paths
  #
  Header patH -text "検索パスの設定" -frame:relief flat
  Line icpL
  Label icpH -text "アイコン検索ディレクトリ:"

  Dir-Browser icpB -text "ディレクトリ: "
  ExtEntry icp -entries { frame_icpB }

  Line mdpL
  Label mdpH -text "モジュール検索ディレクトリ"

  Dir-Browser mdpB -text "ディレクトリ: "
  ExtEntry mdp -entries { frame_mdpB }

  set icpHelp [concat \
      "全てのアイコンはこのパスにあるものとして扱われます。"]

  Help icpH $icpHelp
  Help icpB $icpHelp
  Help com_icpB $icpHelp

  set mdpHelp "外部モジュールの検索パスを入力します。"
  Help mdpH $mdpHelp
  Help mdpB $mdpHelp
  Help com_mdpB $mdpHelp

  Save {
    set iconPath ""
    forevery icp {
      if {$icpB != ""} {
        if {$iconPath == ""} { set iconPath $icpB
        } else { append iconPath ":$icpB" }
      }
    }
    if {$iconPath != ""} {print "IconPath\t$iconPath"}
    if {$iconPath != ""} {print "PixmapPath\t$iconPath"}
    set modulePath ""
    forevery mdp {
      if {$mdpB != ""} {
        if {$modulePath == ""} { set modulePath $mdpB
        } else { append modulePath ":$mdpB" }
      }
    }
    if {$modulePath != ""} {print "ModulePath\t$modulePath"}
  }
  #
  ######################################################################
}
