Gecko [ www.corporacionhdm.com.pe ]

Name	Size	Permission	Date
10Point.fs	641 B	-rw-r--r--	2002-01-24 09:17
10Point.fsc	2 KB	-rw-r--r--	2002-01-24 09:17
12Point.fs	640 B	-rw-r--r--	2001-12-09 05:03
12Point.fsc	2 KB	-rw-r--r--	2001-12-09 05:03
14Point.fs	639 B	-rw-r--r--	2001-12-09 05:03
14Point.fsc	2.06 KB	-rw-r--r--	2001-12-09 05:03
Bisque.cs	1 KB	-rw-r--r--	2000-05-17 11:08
Bisque.csc	22.01 KB	-rw-r--r--	2000-10-12 01:59
Blue.cs	1.02 KB	-rw-r--r--	2000-05-17 11:08
Blue.csc	22.02 KB	-rw-r--r--	2000-10-12 01:59
Gray.cs	1.02 KB	-rw-r--r--	2000-05-17 11:08
Gray.csc	22.02 KB	-rw-r--r--	2000-10-12 01:59
Old12Pt.fs	541 B	-rw-r--r--	2001-12-09 05:03
Old14Pt.fs	499 B	-rw-r--r--	2001-12-09 05:03
SGIGray.cs	1 KB	-rw-r--r--	2000-05-17 11:08
SGIGray.csc	22.01 KB	-rw-r--r--	2000-10-12 02:00
TK.cs	1 KB	-rw-r--r--	2000-05-17 11:08
TK.csc	1.98 KB	-rw-r--r--	2000-05-17 11:08
TK.fs	506 B	-rw-r--r--	2001-12-09 05:03
TK.fsc	569 B	-rw-r--r--	2001-12-09 05:03
TixGray.cs	1 KB	-rw-r--r--	2000-05-17 11:08
TixGray.csc	22.01 KB	-rw-r--r--	2000-10-12 02:00
TkWin.cs	2.19 KB	-rw-r--r--	2000-10-12 01:41
TkWin.csc	21.78 KB	-rw-r--r--	2002-01-24 09:16
TkWin.fs	390 B	-rw-r--r--	2001-12-09 05:03
TkWin.fsc	1.63 KB	-rw-r--r--	2001-12-09 05:03
WmDefault.cs	1.42 KB	-rw-r--r--	2001-12-09 05:03
WmDefault.csc	14.22 KB	-rw-r--r--	2001-12-09 05:03
WmDefault.fs	755 B	-rw-r--r--	2001-12-09 05:03
WmDefault.fsc	2.13 KB	-rw-r--r--	2001-12-09 05:03
WmDefault.py	3.42 KB	-rw-r--r--	2001-12-09 05:03
WmDefault.tcl	33.05 KB	-rw-r--r--	2008-03-17 22:47
WmDefault.txt	4.22 KB	-rw-r--r--	2001-12-09 05:03
pkgIndex.tcl	262 B	-rw-r--r--	2002-01-24 09:17

Rename

# -*- mode: python; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: WmDefault.py,v 1.2 2001/12/09 05:03:09 idiscovery Exp $
#

"""One of the bad things about Tk/Tkinter is that it does not pick up
the current color and font scheme from the prevailing CDE/KDE/GNOME/Windows 
window manager scheme.

One of the good things about Tk/Tkinter is that it is not tied to one
particular widget set so it could pick up the current color and font scheme 
from the prevailing CDE/KDE/GNOME/Windows window manager scheme.

The WmDefault package is for making Tk/Tkinter applications use the 
prevailing CDE/KDE/GNOME/Windows scheme. It tries to find the files
and/or settings that the current window manager is using, and then
sets the Tk options database accordingly.

Download the latest version of wm_default from http://tix.sourceforge.net
either as a part of the standard Tix distribution, or as a part of the
Tix Applications: http://tix.sourceforge.net/Tide. wm_default does not
require Tix, but is Tix enabled.
"""

import os, sys, traceback, string
import tkMessageBox

def setup(root, wm=''):
    """1) find the files and/or settings (::wm_default::setup).
    Takes one optional argument: wm, the name of the window manager
    as a string, if known. One of: windows gnome kde1 kde2 cde kde.
    """
    try:
        try:
            # Make sure Tcl/Tk knows wm_default is installed
            root.tk.eval("package require wm_default")
        except:
            # Try again with this directory on the Tcl/Tk path
            dir = os.path.dirname (self.__file__)
            root.tk.eval('global auto_path; lappend auto_path {%s}' % dir)
            root.tk.eval("package require wm_default")
    except:
        t, v, tb = sys.exc_info()
        text = "Error loading WmDefault\n"
        for line in traceback.format_exception(t,v,tb): text = text + line + '\n'
        try:
            tkMessageBox.showerror ('WmDefault Error', text)
        except:
            sys.stderr.write( text )

return root.tk.call('::wm_default::setup', wm)

def addoptions(root, cnf=None, **kw):
    """2) Setting the Tk options database (::wm_default::addoptions).
    You can override the settings in 1) by adding your values to the
    call to addoptions().
    """
    if cnf is None:
        return root.tk.splitlist(root.tk.call('::wm_default::addoptions'))
    return root.tk.splitlist(
        apply(root.tk.call,
              ('::wm_default::addoptions',) + root._options(cnf,kw)))

def getoptions(root):
    """Returns the current settings, as a dictionary.
    """
    words = root.tk.splitlist(root.tk.call('::wm_default::getoptions'))
    dict = {}
    for i in range(0, len(words), 2):
        key = words[i]
        value = words[i+1]
        dict[key] = value
    return dict

def parray(root):
    """Returns a string of the current settings, one value-pair per line.
    """
    return root.tk.call('::wm_default::parray')

if __name__ == "__main__":
    dir = ""
    if len(sys.argv) > 0:
        # Assume the name of the file containing the tixinspect Tcl source
        # is the same as argument on the command line with .tcl
	dir = os.path.dirname(sys.argv[0])
    if not dir or not os.path.isdir(dir) or not os.path.isabs(dir):
        # Or, assume it's in the same directory as this one:
        dir = os.getcwd()
    import Tkinter
    root = Tkinter.Tk()
    setup(root)
    addoptions(root, {'foreground': 'red'})
    retval = getoptions(root)
    print retval