/usr/share/tcltk/tklib0.5/style/style.tcl is in tklib 0.5-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | # style.tcl -- Styles for Tk.
# $Id: style.tcl,v 1.4 2005/08/23 22:21:32 hobbs Exp $
# Copyright 2004 David N. Welton <davidw@dedasys.com>
# Copyright 2004 ActiveState Corporation
namespace eval style {
# Available styles
variable available [list lobster as]
}
# style::names --
#
# Return the names of all available styles.
proc style::names {} {
variable available
return $available
}
# style::use --
#
# Until I see a better way of doing it, this is just a wrapper
# for package require. The problem is that 'use'ing different
# styles won't undo the changes made by previous styles.
proc style::use {newstyle args} {
package require style::${newstyle}
eval [linsert $args 0 style::${newstyle}::init]
}
package provide style 0.3
|