kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

commit miss.

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9616 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2005-11-25 07:12:58 +00:00
parent b244f5d57b
commit 8245833fb4
14 changed files with 29 additions and 204 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
ext/tk/sample/tkextlib/tile/themes/kroc.rb
View file

@ -5,7 +5,7 @@
# >> kroc.tcl - Copyright (C) 2004 David Zolli <kroc@kroc.tk>
#
imgdir = File.join(File.dirname(__FILE__), 'kroc')
imgdir = File.join(File.dirname(__FILE__), 'kroc', 'kroc')
$images = Tk::Tile.load_images(imgdir, '*.gif')
if TkPackage.vcompare(Tk::Tile.package_version, '0.5') >= 0
@ -97,28 +97,31 @@ def kroc_rb_settings
#
if TkPackage.vcompare(Tk::Tile.package_version, '0.5') >= 0
Tk::Tile::Style.element_create('Button.button', :image, $images['button-n'],
Tk::Tile::Style.element_create('Button.button',
:image, $images['button-n'],
:map=>[
:pressed, $images['button-p'],
:active, $images['button-h'],
], :border=>3, :sticky=>:ew)
Tk::Tile::Style.element_create('Checkbutton.indicator', :image, $images['check-nu'],
Tk::Tile::Style.element_create('Checkbutton.indicator',
:image, $images['check-nu'],
:map=>[
[:pressed, :selected], $images['check-nc'],
:pressed, $images['check-nu'],
[:active, :selected], $images['check-hc'],
:active, $images['check-hu'],
:selected, $images['check-nc'],
[:pressed, :selected],$images['check-nc'],
:pressed, $images['check-nu'],
[:active, :selected], $images['check-hc'],
:active, $images['check-hu'],
:selected, $images['check-nc'],
], :sticky=>:w)
Tk::Tile::Style.element_create('Radiobutton.indicator', :image, $images['radio-nu'],
Tk::Tile::Style.element_create('Radiobutton.indicator',
:image, $images['radio-nu'],
:map=>[
[:pressed, :selected], $images['radio-nc'],
:pressed, $images['radio-nu'],
[:active, :selected], $images['radio-hc'],
:active, $images['radio-hu'],
:selected, $images['radio-nc'],
[:pressed, :selected],$images['radio-nc'],
:pressed, $images['radio-nu'],
[:active, :selected], $images['radio-hc'],
:active, $images['radio-hu'],
:selected, $images['radio-nc'],
], :sticky=>:w)
else # tile 0.4 or earlier
@ -132,22 +135,22 @@ def kroc_rb_settings
Tk::Tile::Style.element_create('Checkbutton.indicator', :pixmap,
:images=>[
[:pressed, :selected], $images['check-nc'],
:pressed, $images['check-nu'],
[:active, :selected], $images['check-hc'],
:active, $images['check-hu'],
:selected, $images['check-nc'],
'', $images['check-nu'],
[:pressed, :selected],$images['check-nc'],
:pressed, $images['check-nu'],
[:active, :selected], $images['check-hc'],
:active, $images['check-hu'],
:selected, $images['check-nc'],
'', $images['check-nu'],
], :tiling=>:fixed)
Tk::Tile::Style.element_create('Radiobutton.indicator', :pixmap,
:images=>[
[:pressed, :selected], $images['radio-nc'],
:pressed, $images['radio-nu'],
[:active, :selected], $images['radio-hc'],
:active, $images['radio-hu'],
:selected, $images['radio-nc'],
'', $images['radio-nu'],
[:pressed, :selected],$images['radio-nc'],
:pressed, $images['radio-nu'],
[:active, :selected], $images['radio-hc'],
:active, $images['radio-hu'],
:selected, $images['radio-nc'],
'', $images['radio-nu'],
], :tiling=>:fixed)
end

163
ext/tk/sample/tkextlib/tile/themes/kroc.tcl
View file

@ -1,163 +0,0 @@
# kroc.tcl - Copyright (C) 2004 David Zolli <kroc@kroc.tk>
#
# A sample pixmap theme for the tile package.
#package require tile::pixmap
namespace eval tile {
namespace eval kroc {
variable version 0.0.1
}
}
namespace eval tile::kroc {
set imgdir [file join [file dirname [info script]] kroc]
array set Images [tile::LoadImages $imgdir *.gif]
if {[package vsatisfies [package provide tile] 0.5]} {
set TNoteBook_Tab TNotebook.Tab
} else {
set TNoteBook_Tab Tab.TNotebook
}
style theme create kroc -parent alt -settings {
style default . -background #FCB64F -troughcolor #F8C278 -borderwidth 1
style default . -font TkDefaultFont -borderwidth 1
style map . -background [list active #694418]
style map . -foreground [list disabled #B2B2B2 active #FFE7CB]
style default TButton -padding "10 4"
style default $TNoteBook_Tab -padding {10 3} -font TkDefaultFont
style map $TNoteBook_Tab \
-background [list selected #FCB64F {} #FFE6BA] \
-foreground [list {} black] \
-padding [list selected {10 6 10 3}]
style map TScrollbar \
-background { pressed #694418} \
-arrowcolor { pressed #FFE7CB } \
-relief { pressed sunken } \
;
style layout Vertical.TScrollbar {
Scrollbar.trough -children {
Scrollbar.uparrow -side top
Scrollbar.downarrow -side bottom
Scrollbar.uparrow -side bottom
Scrollbar.thumb -side top -expand true
}
}
style layout Horizontal.TScrollbar {
Scrollbar.trough -children {
Scrollbar.leftarrow -side left
Scrollbar.rightarrow -side right
Scrollbar.leftarrow -side right
Scrollbar.thumb -side left -expand true
}
}
#
# Elements:
#
if {[package vsatisfies [package provide tile] 0.5]} {
style element create Button.button image $Images(button-n) \
-map [list \
pressed $Images(button-p) \
active $Images(button-h) \
] -border 3 -sticky ew
style element create Checkbutton.indicator image $Images(check-nu) \
-map [list \
{pressed selected} $Images(check-nc) \
pressed $Images(check-nu) \
{active selected} $Images(check-hc) \
active $Images(check-hu) \
selected $Images(check-nc) \
] -sticky w
style element create Radiobutton.indicator image $Images(radio-nu) \
-map [list \
{pressed selected} $Images(radio-nc) \
pressed $Images(radio-nu) \
{active selected} $Images(radio-hc) \
active $Images(radio-hu) \
selected $Images(radio-nc) \
] -sticky w
} else {
style element create Button.button pixmap -images [list \
pressed $Images(button-p) \
active $Images(button-h) \
{} $Images(button-n) \
] -border 3 -tiling tile
style element create Checkbutton.indicator pixmap -images [list \
{pressed selected} $Images(check-nc) \
pressed $Images(check-nu) \
{active selected} $Images(check-hc) \
active $Images(check-hu) \
selected $Images(check-nc) \
{} $Images(check-nu) \
] -tiling fixed
style element create Radiobutton.indicator pixmap -images [list \
{pressed selected} $Images(radio-nc) \
pressed $Images(radio-nu) \
{active selected} $Images(radio-hc) \
active $Images(radio-hu) \
selected $Images(radio-nc) \
{} $Images(radio-nu) \
] -tiling fixed
}
#
# Settings: (*button.background is not needed in tile 0.5 or above)
#
style layout TButton {
Button.button -children {
Button.focus -children {
Button.padding -children {
Button.label -expand true -sticky {}
}
}
}
}
style layout TCheckbutton {
Checkbutton.border -children {
Checkbutton.background
Checkbutton.padding -children {
Checkbutton.indicator -side left
Checkbutton.focus -side left -children {
Checkbutton.label
}
}
}
}
style layout TRadiobutton {
Radiobutton.border -children {
Radiobutton.background
Radiobutton.padding -children {
Radiobutton.indicator -side left
Radiobutton.focus -expand true -sticky w -children {
Radiobutton.label -side right -expand true
}
}
}
}
} }
# -------------------------------------------------------------------------
package provide tile::theme::kroc $::tile::kroc::version
# -------------------------------------------------------------------------

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/button-h.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 522 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/button-n.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 554 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/button-p.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 548 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/check-hc.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 281 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/check-hu.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 273 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/check-nc.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 303 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/check-nu.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 294 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/radio-hc.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 652 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/radio-hu.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 644 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/radio-nc.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 632 B

BIN
ext/tk/sample/tkextlib/tile/themes/kroc/radio-nu.gif
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 621 B

15
ext/tk/sample/tkextlib/tile/themes/pkgIndex.tcl
View file

@ -1,15 +0,0 @@
# pkgIndex.tcl for additional tile pixmap themes.
#
# We don't provide the package is the image subdirectory isn't present,
# or we don't have the right version of Tcl/Tk
#
# To use this automatically within tile, the tile-using application should
# use tile::availableThemes and tile::setTheme
#
# $Id$
if {![file isdirectory [file join $dir kroc]]} { return }
if {![package vsatisfies [package provide Tcl] 8.4]} { return }
package ifneeded tile::theme::kroc 0.0.1 \
[list source [file join $dir kroc.tcl]]