diff options
author | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-08-25 15:13:14 +0000 |
---|---|---|
committer | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-08-25 15:13:14 +0000 |
commit | d0233291bc8a5068e52c69c210e5979e5324b5bc (patch) | |
tree | 7d9459449c33792c63eeb7baa071e76352e0baab /trunk/ext/tk/sample/tkextlib/vu/canvSticker2.rb | |
parent | 0dc342de848a642ecce8db697b8fecd83a63e117 (diff) | |
parent | 72eaacaa15256ab95c3b52ea386f88586fb9da40 (diff) |
re-adding tag v1_9_0_4 as an alias of trunk@18848v1_9_0_4
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18849 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'trunk/ext/tk/sample/tkextlib/vu/canvSticker2.rb')
-rw-r--r-- | trunk/ext/tk/sample/tkextlib/vu/canvSticker2.rb | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/trunk/ext/tk/sample/tkextlib/vu/canvSticker2.rb b/trunk/ext/tk/sample/tkextlib/vu/canvSticker2.rb deleted file mode 100644 index 548a72c2cb..0000000000 --- a/trunk/ext/tk/sample/tkextlib/vu/canvSticker2.rb +++ /dev/null @@ -1,101 +0,0 @@ -#!/usr/bin/env ruby - -require 'tk' -require 'tkextlib/vu/charts' - -####################################### - -c = TkCanvas.new.pack - -begin - st = Tk::Vu::TkcSticker.new(c, 0, 0, 10, 10) -rescue - Tk.messageBox(:type=>'ok', :title=>"No sticker Item", - :message=>"This build of vu does not include the sticker item") - exit -end - -c.destroy - -#--- -#--- set STRING {{x0 y0 x1 y1} {...text...} {resize point: center} - -#sti_conf = [ [10, 10, 180, 180], "Sticker äöüß@²³¼½¾", :center ] -#txt_conf = [ [210, 210], "Text äöüß@²³¼½¾", :center ] -sti_conf = [ [10, 10, 350, 350], - Tk::UTF8_String('Sticker \u00E4\u00F6\u00FC\u00DF\u0040\u00B2\u00B3\u00BC\u00BD\u00BE'), - :center ] -txt_conf = [ [250, 250], - Tk::UTF8_String('Text \u00E4\u00F6\u00FC\u00DF\u0040\u00B2\u00B3\u00BC\u00BD\u00BE'), - :center ] - -#p sti_conf - -fnt = TkFont.new('Helvetica 24 bold') - -#---GUI -c = TkCanvas.new(:width=>500, :height=>500, :bg=>'aquamarine3').pack - -#---CRRW Use the technique of eval the coord ... -sti = Tk::Vu::TkcSticker.new(c, sti_conf[0]){ - anchor sti_conf[2] - bar 'black' - color 'red' - fill '' - font fnt - lefttrunc 0 - outline '' - relheight 0.0 - relwidth 0.0 - relx 0.0 - rely 0.0 - space 0 - stipple '' - tags 'sti' - text sti_conf[1] - width 0 - orient :vertical - minwidth 0 - minheight 0 - maxwidth 32767 - maxheight 32767 -} - -txt = TkcText.new(c, txt_conf[0]){ - activefill '' - activestipple '' - anchor txt_conf[2] - disabledfill '' - disabledstipple '' - fill 'blue' - font fnt - justify :left - offset '0,0' - state '' - stipple '' - tags ['tex'] - text txt_conf[1] - width 0 -} - -#---BINDINGS -c.bind('2', proc{ - sti[:orient] = :horizontal - txt[:width] = 0 # horizontal - }) - -c.bind('3', proc{ - sti[:orient] = :vertical - txt[:width] = 1 # top down - }) - -Tk.root.bind('p', proc{ - c.postscript(:file=>'DEMO.ps') - puts "DEMO.ps printed" - }) - -Tk.root.bind('q', proc{exit}) - -##################### - -Tk.mainloop |