| Server IP : 103.119.228.120 / Your IP : 18.224.65.198 Web Server : Apache System : Linux v8.techscape8.com 3.10.0-1160.119.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Jul 15 12:09:18 UTC 2024 x86_64 User : nobody ( 99) PHP Version : 5.6.40 Disable Function : shell_exec,symlink,system,exec,proc_get_status,proc_nice,proc_terminate,define_syslog_variables,syslog,openlog,closelog,escapeshellcmd,passthru,ocinum cols,ini_alter,leak,listen,chgrp,apache_note,apache_setenv,debugger_on,debugger_off,ftp_exec,dl,dll,myshellexec,proc_open,socket_bind,proc_close,escapeshellarg,parse_ini_filepopen,fpassthru,exec,passthru,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice,proc_terminate,proc_get_status,proc_close,pfsockopen,leak,apache_child_terminate,posix_kill,posix_mkfifo,posix_setpgid,posix_setsid,posix_setuid,dl,symlink,shell_exec,system,dl,passthru,escapeshellarg,escapeshellcmd,myshellexec,c99_buff_prepare,c99_sess_put,fpassthru,getdisfunc,fx29exec,fx29exec2,is_windows,disp_freespace,fx29sh_getupdate,fx29_buff_prepare,fx29_sess_put,fx29shexit,fx29fsearch,fx29ftpbrutecheck,fx29sh_tools,fx29sh_about,milw0rm,imagez,sh_name,myshellexec,checkproxyhost,dosyayicek,c99_buff_prepare,c99_sess_put,c99getsource,c99sh_getupdate,c99fsearch,c99shexit,view_perms,posix_getpwuid,posix_getgrgid,posix_kill,parse_perms,parsesort,view_perms_color,set_encoder_input,ls_setcheckboxall,ls_reverse_all,rsg_read,rsg_glob,selfURL,dispsecinfo,unix2DosTime,addFile,system,get_users,view_size,DirFiles,DirFilesWide,DirPrintHTMLHeaders,GetFilesTotal,GetTitles,GetTimeTotal,GetMatchesCount,GetFileMatchesCount,GetResultFiles,fs_copy_dir,fs_copy_obj,fs_move_dir,fs_move_obj,fs_rmdir,SearchText,getmicrotime MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/ssl/local/ssl/lib64/tcl8.5/Tix8.4.3/pref/ |
Upload File : |
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
# $Id: WmDefault.csc,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#
#
proc tixPref:SetScheme-Color:WmDefault {args} {
global tixOption
package require wm_default
if {![info exists ::wm_default::wm]} {
wm_default::setup
wm_default::addoptions
}
set tixOption(bg) $::wm_default::background
set tixOption(fg) $::wm_default::foreground
# was "#808080"
set tixOption(dark1_bg) $::wm_default::disabledbackground
set tixOption(inactive_bg) $::wm_default::disabledbackground
set tixOption(inactive_fg) black; # unused
# light1 was used for listbox widgets and trough colors
set tixOption(light1_bg) $::wm_default::scrollbars
set tixOption(light1_fg) white; #unused
# text is now used for listbox widgets
set tixOption(list_bg) $::wm_default::textbackground
set tixOption(active_bg) $::wm_default::activebackground
set tixOption(active_fg) $::wm_default::activeforeground
set tixOption(disabled_fg) $::wm_default::disabledforeground
# new
set tixOption(disabled_bg) $::wm_default::disabledtextbackground
set tixOption(textbackground) $::wm_default::textbackground
set tixOption(input1_fg) $::wm_default::textforeground
set tixOption(select_fg) $::wm_default::selectforeground
set tixOption(select_bg) $::wm_default::selectbackground
set tixOption(selector) $::wm_default::selectcolor
set pri $tixOption(prioLevel)
# Try to give the subwidget (hlist) the highlightThickness
foreach pref {*TixDirTree *TixDirList *TixTree \
*TixScrolledListBox \
*TixScrolledTList *TixScrolledText} {
option add $pref.highlightThickness 0 $pri
}
# necessary:
option add *TixBalloon*background white $pri
option add *TixBalloon*foreground black $pri
option add *TixBalloon.background black $pri
# necessary: but should be restricted
# was - option add *Label.anchor w $pri
option add *TixBalloon*Label.anchor w $pri
option add *TixComboBox*Label.anchor w $pri
option add *TixFileEntry*Label.anchor w $pri
option add *TixLabelEntry*Label.anchor w $pri
option add *TixOptionMenu*Label.anchor w $pri
option add *TixComboBox*background $tixOption(background) $pri
option add *TixFileEntry*Entry.borderWidth 0 $pri
option add *TixFileEntry.frame.background $tixOption(textbackground) $pri
option add *TixFileEntry*Entry.highlightBackground $::wm_default::highlightbackground $pri
option add *TixOptionMenu*menubutton.relief raised $pri
option add *TixOptionMenu*menubutton.borderWidth $::wm_default::borderwidth $pri
option add *TixResizeHandle*background $tixOption(disabledbackground) $pri
option add *handleActiveBg $::wm_default::selectbackground $pri
# These may already have been covered by wm_default
option add *TixControl*entry.insertBackground $tixOption(textforeground) $pri
option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $pri
option add *TixDirTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
option add *TixDirTree*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixDirTree*f1.relief sunken $pri
option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $pri
option add *TixDirList*hlist.disabledBackground $tixOption(disabled_bg) $pri
option add *TixDirList*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixDirList*f1.relief sunken $pri
option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $pri
option add *TixScrolledHList*hlist.disabledBackground $tixOption(disabled_bg) $pri
option add *TixScrolledHList*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixScrolledHList*f1.relief sunken $pri
option add *TixTree*hlist.background $tixOption(textbackground) $pri
option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $pri
option add *TixTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
option add *TixTree*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixTree*f1.relief sunken $pri
option add *TixFileEntry.background $tixOption(background) $pri
option add *TixHList.activeBackground $tixOption(light1_bg) $pri
option add *TixHList.disabledBackground $tixOption(disabled_bg) $pri
option add *TixLabelEntry*entry.background $tixOption(textbackground) $pri
option add *TixLabelEntry*entry.foreground $tixOption(textforeground) $pri
option add *TixLabelEntry*entry.insertBackground $tixOption(textforeground) $pri
option add *TixMultiView*Listbox.borderWidth 0 $pri
option add *TixMultiView*Listbox.highlightThickness 0 $pri
option add *TixMultiView*Scrollbar.relief sunken $pri
option add *TixMultiView*Scrollbar.width 15 $pri
option add *TixMultiView*f1.borderWidth 2 $pri
option add *TixMultiView*f1.relief sunken $pri
option add *TixMultiView*f1.highlightThickness 2 $pri
option add *TixNoteBook.Background $tixOption(background) $pri
option add *TixNoteBook.nbframe.Background $tixOption(background) $pri
option add *TixNoteBook.nbframe.backPageColor $tixOption(background) $pri
option add *TixNoteBook.nbframe.inactiveBackground $tixOption(disabledbackground) $pri
option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $pri
# option add *TixPanedWindow.seperatorBg $tixOption(disabledbackground) $pri
# option add *TixPanedWindow.handleBg $tixOption(disabledbackground) $pri
option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $pri
option add *TixScrolledTList*tlist.background $tixOption(textbackground) $pri
option add *TixScrolledListBox*listbox.background $tixOption(textbackground) $pri
option add *TixScrolledWindow.frame.background $tixOption(list_bg) $pri
option add *TixTree*hlist.highlightBackground $tixOption(background) $pri
option add *TixTree*hlist.background $tixOption(textbackground) $pri
option add *TixTree*hlist.borderWidth $::wm_default::borderwidth $pri
option add *TixComboBox*Entry.highlightBackground $tixOption(background) $pri
option add *TixComboBox*Entry.background $tixOption(textbackground) $pri
option add *TixComboBox*Entry.foreground $tixOption(textforeground) $pri
option add *TixComboBox*Entry.insertBackground $tixOption(textforeground) $pri
}
proc tixPref:SetScheme-Mono:Gray {} {
global tixOption
package require wm_default
if {![info exists ::wm_default::wm]} {
wm_default::setup
wm_default::addoptions
}
set tixOption(background) lightgray
set tixOption(foreground) black
set tixOption(dark1_bg) gray70
set tixOption(inactive_bg) lightgray
set tixOption(inactive_fg) black
set tixOption(light1_bg) gray90
set tixOption(light1_fg) white
set tixOption(active_bg) gray90
set tixOption(active_fg) $tixOption(foreground)
set tixOption(disabled_fg) gray55
set tixOption(textbackground) $tixOption(light1_bg)
set tixOption(select_fg) white
set tixOption(select_bg) black
set tixOption(selector) black
set pri $tixOption(prioLevel)
# Override what you want with optional arguments to wm_default::adoptions
# necessary:
option add *TixBalloon*background white $pri
option add *TixBalloon*foreground black $pri
option add *TixBalloon.background black $pri
# necessary: but should be restricted
# was - option add *Label.anchor w $pri
option add *TixBalloon*Label.anchor w $pri
option add *TixComboBox*Label.anchor w $pri
option add *TixFileEntry*Label.anchor w $pri
option add *TixLabelEntry*Label.anchor w $pri
# option add *TixDirTree*hlist.highlightBackground $tixOption(background) $pri
# option add *TixDirTree*hlist.background $tixOption(light1_bg) $pri
# option add *TixDirTree*hlist.activeBackground $tixOption(light1_bg) $pri
# option add *TixDirTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
# option add *TixDirTree*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixDirTree*f1.relief sunken $pri
# option add *TixDirList*hlist.highlightBackground $tixOption(background) $pri
# option add *TixDirList*hlist.background $tixOption(light1_bg) $pri
# option add *TixDirList*hlist.activeBackground $tixOption(light1_bg) $pri
# option add *TixDirList*hlist.disabledBackground $tixOption(disabled_bg) $pri
# option add *TixDirList*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixDirList*f1.relief sunken $pri
# option add *TixScrolledHList*hlist.highlightBackground $tixOption(background) $pri
# option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $pri
# option add *TixScrolledHList*hlist.activeBackground $tixOption(light1_bg) $pri
# option add *TixScrolledHList*hlist.disabledBackground $tixOption(disabled_bg) $pri
# option add *TixScrolledHList*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixScrolledHList*f1.relief sunken $pri
# option add *TixTree*hlist.highlightBackground $tixOption(background) $pri
# option add *TixTree*hlist.background $tixOption(light1_bg) $pri
# option add *TixTree*hlist.activeBackground $tixOption(light1_bg) $pri
# option add *TixTree*hlist.disabledBackground $tixOption(disabled_bg) $pri
# option add *TixTree*f1.borderWidth $::wm_default::borderwidth $pri
option add *TixTree*f1.relief sunken $pri
# option add *TixHList.background $tixOption(light1_bg) $pri
# option add *TixHList.activeBackground $tixOption(light1_bg) $pri
# option add *TixHList.disabledBackground $tixOption(light1_bg) $pri
# option add *TixMultiView*Listbox.borderWidth 0 $pri
# option add *TixMultiView*Listbox.highlightThickness 0 $pri
option add *TixMultiView*Scrollbar.relief sunken $pri
# option add *TixMultiView*f1.borderWidth 2 $pri
option add *TixMultiView*f1.relief sunken $pri
# option add *TixMultiView*f1.highlightThickness 2 $pri
# option add *TixMDIMenuBar*menubar.relief raised $pri
# option add *TixMDIMenuBar*menubar.borderWidth 2 $pri
# option add *TixMDIMenuBar*Menubutton.padY 2 $pri
# option add *TixNoteBook.Background $tixOption(background) $pri
# option add *TixNoteBook.nbframe.Background $tixOption(background) $pri
# option add *TixNoteBook.nbframe.backPageColor $tixOption(background) $pri
# option add *TixNoteBook.nbframe.inactiveBackground $tixOption(inactive_bg) $pri
# option add *TixPanedWindow.handleActiveBg $tixOption(active_bg) $pri
# option add *TixPanedWindow.seperatorBg $tixOption(disabledbackground) $pri
# option add *TixPanedWindow.handleBg $tixOption(disabledbackground) $pri
# option add *TixPopupMenu*menubutton.background $tixOption(dark1_bg) $pri
# option add *TixScrolledHList*hlist.highlightBackground $tixOption(background) $pri
# option add *TixScrolledHList*hlist.background $tixOption(light1_bg) $pri
# option add *TixScrolledTList*tlist.highlightBackground $tixOption(background) $pri
# option add *TixScrolledTList*tlist.background $tixOption(light1_bg) $pri
# option add *TixScrolledListBox*listbox.highlightBackground $tixOption(background) $pri
# option add *TixScrolledWindow.frame.background $tixOption(light1_bg) $pri
# option add *TixTree*hlist.highlightBackground $tixOption(background) $pri
# option add *TixTree*hlist.background $tixOption(light1_bg) $pri
# option add *TixTree*hlist.borderWidth $::wm_default::borderwidth $pri
# These were missing
# option add *TixMenu*Menu.selectColor $NIMLook(foreground) $pri
# option add *TixMDIMenuBar*Menubutton.padY 2 $pri
# option add *TixMDIMenuBar*menubar.borderWidth 2 $pri
# option add *TixMDIMenuBar*menubar.relief raised $pri
# option add *TixMultiView*Listbox.borderWidth 0 $pri
# option add *TixMultiView*Listbox.highlightThickness 0 $pri
# option add *TixMultiView*Scrollbar.relief sunken $pri
# option add *TixMultiView*f1.borderWidth 2 $pri
# option add *TixMultiView*f1.highlightThickness 2 $pri
option add *TixMultiView*f1.relief sunken $pri
}
# Leave the standard widgets alone
if {0} {
option add *Background $tixOption(background) $pri
option add *background $tixOption(background) $pri
option add *Foreground $tixOption(foreground) $pri
option add *foreground $tixOption(foreground) $pri
option add *activeBackground $tixOption(active_bg) $pri
option add *activeForeground $tixOption(active_fg) $pri
option add *HighlightBackground $tixOption(background) $pri
option add *selectBackground $tixOption(select_bg) $pri
option add *selectForeground $tixOption(select_fg) $pri
option add *selectBorderWidth 0 $pri
option add *Menu.selectColor $tixOption(foreground) $pri
option add *TixMenu.selectColor $tixOption(foreground) $pri
option add *Menubutton.padY 5 $pri
option add *Button.borderWidth 2 $pri
option add *Button.anchor c $pri
option add *Checkbutton.selectColor $tixOption(selector) $pri
option add *Radiobutton.selectColor $tixOption(selector) $pri
option add *Entry.relief sunken $pri
option add *Entry.highlightBackground $tixOption(background) $pri
option add *Entry.background $tixOption(textbackground) $pri
option add *Entry.foreground $tixOption(textforeground) $pri
option add *Entry.insertBackground $tixOption(textforeground) $pri
option add *Label.anchor w $pri
option add *Label.borderWidth 0 $pri
option add *Listbox.background $tixOption(textbackground) $pri
option add *Listbox.relief sunken $pri
option add *Scale.foreground $tixOption(foreground) $pri
option add *Scale.activeForeground $tixOption(background) $pri
option add *Scale.background $tixOption(background) $pri
option add *Scale.sliderForeground $tixOption(background) $pri
option add *Scale.sliderBackground $tixOption(light1_bg) $pri
option add *Scrollbar.relief sunken $pri
option add *Scrollbar.borderWidth $::wm_default::borderwidth $pri
option add *Scrollbar.width 15 $pri
option add *Text.background $tixOption(textbackground) $pri
option add *Text.relief sunken $pri
}