diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 21:39:23 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-02 21:39:23 +0000 |
| commit | c6032f06e6fce39e120ee176ce03690b84b8de10 (patch) | |
| tree | 3d13ba78122dd8bdd42e1d92df44c9e880906dc1 /ext/tk/sample/demos-en/menubu.rb | |
| parent | bb4dcac3c3a9efcd7c8004da5a582a87bf335b30 (diff) | |
| download | ruby-c6032f06e6fce39e120ee176ce03690b84b8de10.tar.gz ruby-c6032f06e6fce39e120ee176ce03690b84b8de10.tar.xz ruby-c6032f06e6fce39e120ee176ce03690b84b8de10.zip | |
* add or modify some widget demo scripts
* (bug fix) TkGrid failed to treat RELATIVE PLACEMENT
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4291 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/demos-en/menubu.rb')
| -rw-r--r-- | ext/tk/sample/demos-en/menubu.rb | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/ext/tk/sample/demos-en/menubu.rb b/ext/tk/sample/demos-en/menubu.rb index 4c19aa12a..42a5931dd 100644 --- a/ext/tk/sample/demos-en/menubu.rb +++ b/ext/tk/sample/demos-en/menubu.rb @@ -195,8 +195,18 @@ TkFrame.new(center) {|f| 'White','Brown','DarkSeaGreen','DarkViolet'] colorMenuButton = TkMenubutton.new(f) m = optionMenu(colorMenuButton, paletteColor, *colors) - topBorderColor = 'gray50' - bottomBorderColor = 'gray75' + begin + windowingsystem = Tk.windowingsystem() + rescue + windowingsystem = "" + end + if windowingsystem == "classic" || windowingsystem == "aqua" + topBorderColor = 'Black' + bottomBorderColor = 'Black' + else + topBorderColor = 'gray50' + bottomBorderColor = 'gray75' + end for i in 0..15 image = TkPhotoImage.new('height'=>16, 'width'=>16) image.put(topBorderColor, 0, 0, 16, 1) |