← Back to branch summary

~ubuntu-branches/ubuntu/hardy/ruby1.8/hardy-updates

« back to all changes in this revision

Viewing changes to ext/tk/sample/tkextlib/tile/themes/plastik/plastik.tcl

  • Committer: Bazaar Package Importer
  • Author(s): akira yamada
  • Date: 2007-03-13 22:11:58 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070313221158-h3oql37brlaf2go2
Tags: 1.8.6-1
http://bugs.debian.org/410018
* new upstream version, 1.8.6.
* libruby1.8 conflicts with libopenssl-ruby1.8 (< 1.8.6) (closes: #410018)
* changed packaging style to cdbs from dbs.

Show diffs side-by-side

added added

removed removed

Lines of Context:
ext/tk/sample/tkextlib/tile/themes/plastik/plastik.tcl
 
1
# plastik.tcl - Copyright (C) 2004 Googie
 
2
#
 
3
# A sample pixmap theme for the tile package.
 
4
#
 
5
#  Copyright (c) 2004 Googie
 
6
#  Copyright (c) 2005 Pat Thoyts <patthoyts@users.sourceforge.net>
 
7
#
 
8
# $Id: plastik.tcl 11708 2007-02-12 23:01:19Z shyouhei $
 
9
 
 
10
package require Tk 8.4
 
11
package require tile 0.5
 
12
 
 
13
namespace eval tile::theme::plastik {
 
14
 
 
15
    variable version 0.3.1
 
16
    package provide tile::theme::plastik $version
 
17
 
 
18
    variable imgdir [file join [file dirname [info script]] plastik]
 
19
    variable Images;
 
20
    array set Images [tile::LoadImages $imgdir *.gif]
 
21
 
 
22
    variable colors
 
23
    array set colors {
 
24
        -frame          "#cccccc"
 
25
        -disabledfg     "#aaaaaa"
 
26
        -selectbg       "#657a9e"
 
27
        -selectfg       "#ffffff"
 
28
    }
 
29
 
 
30
style theme create plastik -parent default -settings {
 
31
    style default . \
 
32
        -background $colors(-frame) \
 
33
        -troughcolor $colors(-frame) \
 
34
        -selectbackground $colors(-selectbg) \
 
35
        -selectforeground $colors(-selectfg) \
 
36
        -font TkDefaultFont \
 
37
        -borderwidth 1 \
 
38
        ;
 
39
 
 
40
    style map . -foreground [list disabled $colors(-disabledfg)]
 
41
 
 
42
    #
 
43
    # Layouts:
 
44
    #
 
45
    style layout Vertical.TScrollbar {
 
46
        Scrollbar.background
 
47
        Scrollbar.trough -children {
 
48
            Scrollbar.uparrow -side top
 
49
            Scrollbar.downarrow -side bottom
 
50
            Scrollbar.uparrow -side bottom
 
51
            Vertical.Scrollbar.thumb -side top -expand true -sticky ns
 
52
        }
 
53
    }
 
54
 
 
55
    style layout Horizontal.TScrollbar {
 
56
        Scrollbar.background
 
57
        Scrollbar.trough -children {
 
58
            Scrollbar.leftarrow -side left
 
59
            Scrollbar.rightarrow -side right
 
60
            Scrollbar.leftarrow -side right
 
61
            Horizontal.Scrollbar.thumb -side left -expand true -sticky we
 
62
        }
 
63
    }
 
64
 
 
65
    style layout TButton {
 
66
        Button.button -children {
 
67
            Button.focus -children {
 
68
                Button.padding -children {
 
69
                    Button.label -side left -expand true
 
70
                }
 
71
            }
 
72
        }
 
73
    }
 
74
 
 
75
    #
 
76
    # Elements:
 
77
    #
 
78
    style element create Button.button image $Images(button-n) \
 
79
        -border 4 -sticky ew \
 
80
        -map [list pressed $Images(button-p)  active $Images(button-h)]
 
81
 
 
82
    style element create Checkbutton.indicator image $Images(check-nu) \
 
83
        -sticky {} -map [list \
 
84
            {active selected}     $Images(check-hc) \
 
85
            {pressed selected}    $Images(check-pc) \
 
86
            active                $Images(check-hu) \
 
87
            selected              $Images(check-nc) \
 
88
        ]
 
89
 
 
90
    style element create Radiobutton.indicator image $Images(radio-nu) \
 
91
        -sticky {} -map [list \
 
92
            {active selected}     $Images(radio-hc) \
 
93
            {pressed selected}    $Images(radio-pc) \
 
94
            active                $Images(radio-hu) \
 
95
            selected              $Images(radio-nc) \
 
96
        ]
 
97
 
 
98
    style element create Horizontal.Scrollbar.thumb \
 
99
        image $Images(hsb-n) -border 3 -sticky ew
 
100
    style element create Vertical.Scrollbar.thumb \
 
101
        image $Images(vsb-n) -border 3 -sticky ns
 
102
 
 
103
    style element create Scale.slider \
 
104
        image $Images(hslider-n) -sticky {}
 
105
    style element create Vertical.Scale.slider \
 
106
        image $Images(vslider-n) -sticky {}
 
107
 
 
108
    style element create Scrollbar.uparrow image $Images(arrowup-n) \
 
109
        -map [list pressed $Images(arrowup-p)] -sticky {}
 
110
    style element create Scrollbar.downarrow image $Images(arrowdown-n) \
 
111
        -map [list pressed $Images(arrowdown-p)] -sticky {}
 
112
    style element create Scrollbar.leftarrow image $Images(arrowleft-n) \
 
113
        -map [list pressed $Images(arrowleft-p)] -sticky {}
 
114
    style element create Scrollbar.rightarrow image $Images(arrowright-n) \
 
115
        -map [list pressed $Images(arrowright-p)] -sticky {}
 
116
 
 
117
    #
 
118
    # Settings:
 
119
    #
 
120
    style default TButton -width -10
 
121
    style default TNotebook.Tab -padding {6 2 6 2}
 
122
    style default TLabelframe -borderwidth 2 -relief groove
 
123
 
 
124
} }
 
125