### 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. 12 1998 Japanize by Mashio Motoyama ### proc FvwmScroll {} { # モジュール / FvwmScroll Desc "FvwmScroll モジュールの設定" ShortDesc "FvwmScroll" Header h -text "FvwmScroll" -frame:relief flat \ -help "このページでは FvwmScroll モジュールの設定を行います。このモジュールは、大きすぎるウインドウにスクロールバーを付加するために利用されます。"\ "\n\nNOTE: スクロールバーはその右下にあるボタンをクリックすることで消すことができます。" Line l CheckBox spawn\ -text "起動時から利用" \ -help "これを起動時から利用する必要性はないでしょう。何故ならこのモジュールは、スクロールバーを付加した後に終了するモジュールだからです。キーやマウスにバインドするか、メニューに登録して使いましょう。" Init {Disable spawn} Line globL CheckBox fcB\ -text "前景色 :" \ -help "前景色を指定する場合に選択します。" Command fc \ -default [list "grey" 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 "スクロールバーの前景色を設定します。" Frame fcF -entries fcB fc Change { if {$changeElm == "fcB"} {if {$fcB == 1} {Enable fc} else {Disable fc}} } Save {if {$fcB == 1} {print "*FvwmScrollFore\t[hash2rgb [lindex $fc 0]]"}} CheckBox bcB\ -text "背景色: " \ -help "背景色を指定する場合に選択します。" Command bc \ -default [list "black" 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 "スクロールバーの背景色を設定します。" Frame bcF -entries bcB bc Change { if {$changeElm == "bcB"} {if {$bcB == 1} {Enable bc} else {Disable bc}} } Save {if {$bcB == 1} {print "*FvwmScrollBack\t[hash2rgb [lindex $bc 0]]"}} }