### 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 ### . If you want to use original messages try this URL. ### Dotfile Generator's Page 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)"} } }