Class: Shoes::App

426
427
428
429

# File 'lib/shoes/app.rb', line 426

def arc l, t, w, h, a1, a2, args={}
  args.merge!({angle1: a1, angle2: a2})
  oval  l, t, w, h, args
end

607
608
609
610
611
612
613
614
615
616
617
618
619
620
621

# File 'lib/shoes/app.rb', line 607

def arrow *attrs
  args = attrs.last.class == Hash ? attrs.pop : {}
  w = attrs[2]
  args.merge!({left: attrs[0], top: attrs[1], width: w, height: w})
  shape args do
    move_to 0, w*0.5*0.6
    line_to w*0.58, w*0.5*0.6
    line_to w*0.58, w*0.5*0.2
    line_to w, w*0.5
    line_to w*0.58, w*(1-0.5*0.2)
    line_to w*0.58, w*(1-0.5*0.6)
    line_to 0, w*(1-0.5*0.6)
    line_to 0, w*0.5*0.6
  end
end

685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707

# File 'lib/shoes/app.rb', line 685

def background pat, args={}
  args[:pattern] = pat
  args = basic_attributes args

  if args[:create_real] and !args[:height].zero?
    args[:width] = 1 if args[:width] <= 0
    surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width], args[:height]
    context = Cairo::Context.new surface
    context.rounded_rectangle 0, 0, args[:width], args[:height], args[:curve]
    gp = gradient pat, args[:width], args[:height], args[:angle]
    context.set_source gp
    context.fill
    img = create_tmp_png surface
    @canvas.put img, args[:left], args[:top]
    img.show_now
    args[:real] = img
  else
    args[:real] = false
  end

  args[:app] = self
  Background.new args
end

163

# File 'lib/shoes/app.rb', line 163

def banner *msg; textblock Banner, 48, *msg; end

64
65
66
67
68
69

# File 'lib/shoes/helper_methods.rb', line 64

def basic_attributes args={}
  default = BASIC_ATTRIBUTES_DEFAULT
  default.merge!({nocontrol: true}) if @nolayout
  replace_string_to_float args
  default.merge args
end

709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733

# File 'lib/shoes/app.rb', line 709

def border pat, args={}
  args[:pattern] = pat
  args = basic_attributes args
  sw = args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )

  if args[:create_real] and !args[:height].zero?
    surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width], args[:height]
    context = Cairo::Context.new surface
    gp = gradient pat, args[:width], args[:height], args[:angle]
    context.set_source gp
    context.set_line_width sw
    context.rounded_rectangle sw/2.0, sw/2.0, args[:width]-sw, args[:height]-sw, args[:curve]
    context.stroke
    
    img = create_tmp_png surface
    @canvas.put img, args[:left], args[:top]
    img.show_now
    args[:real] = img
  else
    args[:real] = false
  end

  args[:app] = self
  Border.new args
end

210
211
212
213
214
215
216
217
218
219
220
221
222
223
224

# File 'lib/shoes/app.rb', line 210

def button name, args={}
  args = basic_attributes args
  (click_proc = args[:click]; args.delete :click) if args[:click]
  b = Gtk::Button.new name
  b.set_size_request args[:width], args[:height] if args[:width] > 0 and args[:height] > 0
  @canvas.put b, args[:left], args[:top]
  b.show_now
  args[:real], args[:text], args[:app] = b, name, self
  Button.new(args).tap do |s|
    s.click &click_proc if click_proc
    b.signal_connect "clicked" do
      yield s
    end if block_given?
  end
end

802
803
804
805
806
807
808
809

# File 'lib/shoes/app.rb', line 802

def cap *line_cap
  @line_cap = case line_cap.first
    when :curve, :rect, :project
      LINECAP[line_cap.first]
    else
      @line_cap ||= LINECAP[:rect]
  end
end

167

# File 'lib/shoes/app.rb', line 167

def caption *msg; textblock Caption, 14, *msg; end

226
227
228
229
230
231
232
233
234
235
236
237
238
239
240

# File 'lib/shoes/app.rb', line 226

def check args={}
  args = basic_attributes args
  (click_proc = args[:click]; args.delete :click) if args[:click]
  cb = Gtk::CheckButton.new
  cb.active = true if args[:checked]
  @canvas.put cb, args[:left], args[:top]
  cb.show_now
  args[:real], args[:app] = cb, self
  Check.new(args).tap do |s|
    s.click &click_proc if click_proc
    cb.signal_connect "clicked" do
      yield s
    end if block_given?
  end
end

108
109
110
111

# File 'lib/shoes/app.rb', line 108

def clear &blk
  mcs.each &:clear
  @top_slot.clear &blk
end

767
768
769

# File 'lib/shoes/app.rb', line 767

def clipboard
  Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).wait_for_text
end

771
772
773

# File 'lib/shoes/app.rb', line 771

def clipboard=(str)
  Gtk::Clipboard.get(Gdk::Selection::CLIPBOARD).text = str
end

775
776
777
778
779
780

# File 'lib/shoes/app.rb', line 775

def close
  win.destroy
  Gtk.main_quit
  Shoes.APPS.delete app
  exit if Shoes.APPS.empty?
end

86
87
88
89

# File 'lib/plugins/systray.rb', line 86

def close_dialog
	win.destroy
	Shoes.APPS.delete app
end

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
34
35
36
37

# File 'lib/plugins/code_box.rb', line 3

def code_box args={}
  require 'gtksourceview2'
  args = basic_attributes args

  args[:width]  = 400 if args[:width].zero?
  args[:height] = 300 if args[:height].zero?

  (change_proc = args[:change]; args.delete :change) if args[:change]
  sv = Gtk::SourceView.new
  sv.show_line_numbers = true
  sv.insert_spaces_instead_of_tabs = true
  sv.smart_home_end = Gtk::SourceView::SMART_HOME_END_ALWAYS
  sv.tab_width = 2
  sv.buffer.text = args[:text].to_s
  sv.buffer.language = Gtk::SourceLanguageManager.new.get_language('ruby')
  sv.buffer.highlight_syntax = true
  sv.modify_font(Pango::FontDescription.new(args[:font])) if args[:font]

  cb = Gtk::ScrolledWindow.new
  cb.set_size_request args[:width], args[:height]
  cb.set_policy Gtk::POLICY_AUTOMATIC, Gtk::POLICY_AUTOMATIC
  cb.set_shadow_type Gtk::SHADOW_IN
  cb.add sv

  @canvas.put cb, args[:left], args[:top]

  cb.show_all
  args[:real], args[:app], args[:textview] = cb, self, sv
  CodeBox.new(args).tap do |s|
    s.change &change_proc
    sv.buffer.signal_connect "changed" do
      yield s
    end if block_given?
  end
end

85
86
87
88

# File 'lib/shoes/helper_methods.rb', line 85

def create_tmp_png surface
  surface.write_to_png TMP_PNG_FILE
  Gtk::Image.new TMP_PNG_FILE
end

17
18
19
20
21
22
23
24
25

# File 'lib/plugins/thread.rb', line 17

def define_async_thread_invoker(period=0.1)
   $__shoes_app__=self
   @queue=Queue.new if ! defined?(@queue)
   every(period) do
      while @queue.size>0
	    instance_eval  &@queue.pop
	  end
   end
end

155
156
157
158
159

# File 'lib/shoes/helper_methods.rb', line 155

def delete_mouse_events ele
  events = [mccs, mrcs, mmcs, mhcs]
  events.pop if ele.is_a? Basic
  events.each{|m| m.delete ele}
end

746
747
748

# File 'lib/shoes/app.rb', line 746

def download name, args={}, &blk
  Download.new name, args, &blk
end

282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307

# File 'lib/shoes/app.rb', line 282

def edit_box args={}
  args = basic_attributes args
  args[:width] = 200 if args[:width].zero?
  args[:height] = 108 if args[:height].zero?
  (change_proc = args[:change]; args.delete :change) if args[:change]
  tv = Gtk::TextView.new
  tv.wrap_mode = Gtk::TextTag::WRAP_WORD
  tv.buffer.text = args[:text].to_s
  tv.modify_font(Pango::FontDescription.new(args[:font])) if args[:font]

  eb = Gtk::ScrolledWindow.new
  eb.set_size_request args[:width], args[:height]
  eb.set_policy Gtk::POLICY_NEVER, Gtk::POLICY_AUTOMATIC
  eb.set_shadow_type Gtk::SHADOW_IN
  eb.add tv

  @canvas.put eb, args[:left], args[:top]
  eb.show_all
  args[:real], args[:app], args[:textview] = eb, self, tv
  EditBox.new(args).tap do |s|
    s.change &change_proc
    tv.buffer.signal_connect "changed" do
      yield s
    end if block_given?
  end
end

262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280

# File 'lib/shoes/app.rb', line 262

def edit_line args={}
  args = basic_attributes args
  args[:width] = 200 if args[:width].zero?
  args[:height] = 28 if args[:height].zero?
  (change_proc = args[:change]; args.delete :change) if args[:change]
  el = Gtk::Entry.new
  el.visibility = false if args[:secret]
  el.text = args[:text].to_s
  el.set_size_request args[:width], args[:height]
  @canvas.put el, args[:left], args[:top]
  el.show_now
  args[:real], args[:app] = el, self
  EditLine.new(args).tap do |s|
    s.change &change_proc
    el.signal_connect "changed" do
      yield s
    end if block_given?
  end
end

344
345
346

# File 'lib/shoes/app.rb', line 344

def every n=1, &blk
  animate 1.0/n, &blk
end

63
64
65
66
67
68
69
70
71

# File 'lib/shoes/app.rb', line 63

def flow args={}, &blk
  if args[:scroll]
    slot_with_scrollbar Flow, args, &blk
  else
    args[:app] = self
    (click_proc = args[:click]; args.delete :click) if args[:click]
    Flow.new(slot_attributes(args), &blk).tap{|s| s.click &click_proc if click_proc}
  end
end

787
788
789

# File 'lib/shoes/app.rb', line 787

def flush
  Shoes.call_back_procs self
end

22
23
24

# File 'lib/shoes/text.rb', line 22

def font name
  @font_family = name
end

13
14
15
16

# File 'lib/plugins/thread.rb', line 13

def get_queue()
   @queue=Queue.new if ! defined?(@queue)
   @queue
end

645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673

# File 'lib/shoes/app.rb', line 645

def gradient *attrs
  case attrs.length
    when 1, 2
      pat1, pat2 = attrs
      pat2 = pat1 unless pat2
      return tr_color(pat1)..tr_color(pat2)
    when 3, 4
      pat, w, h, angle = attrs
      angle = 0 unless angle
    else
    return black..black
  end

  pat = tr_color pat
  color = case pat
    when Range; [tr_color(pat.first), tr_color(pat.last)]
    when Array; [pat, pat]
    when String
      sp = Cairo::SurfacePattern.new Cairo::ImageSurface.from_png(pat)
      return sp.set_extend(Cairo::Extend::REPEAT)
    else
      [black, black]
  end
  dx, dy = w*angle/180.0, h*angle/180.0
  lp = Cairo::LinearPattern.new w*0.5-dx, dy, w*0.5+dx, h-dy
  lp.add_color_stop_rgba 0, *color[0]
  lp.add_color_stop_rgba 1, *color[1]
  lp
end

797
798
799
800

# File 'lib/shoes/app.rb', line 797

def gray *attrs
  g, a = attrs
  g ? rgb(g*255, g*255, g*255, a) : rgb(128, 128, 128)[0..2]
end

81
82
83
84

# File 'lib/plugins/systray.rb', line 81

def hide_app
	win.iconify
	win.hide
end

171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204

# File 'lib/shoes/app.rb', line 171

def image name, args={}
  args = IMAGE_DEFAULT.merge args
  args = basic_attributes args
  args[:full_width] = args[:full_height] = 0
  (click_proc = args[:click]; args.delete :click) if args[:click]
  if name =~ /^(http|https):\/\//
    tmpname = File.join(Dir.tmpdir, "__green_shoes_#{Time.now.to_f}.png")
    d = download name, save: tmpname
    img = Gtk::Image.new File.join(DIR, '../static/downloading.png')
    downloading = true
  elsif name =~ /\.(png|jpg|gif)$/
    img = Gtk::Image.new name
    downloading = false
  else
    require 'rsvg2'
    img = Gtk::Image.new RSVG::Handle.new_from_data(name).pixbuf
    downloading = false
  end

  if (!args[:width].zero? or !args[:height].zero?) and !downloading 
    args[:full_width], args[:full_height] = imagesize(name)
    args[:width] = args[:full_width] if args[:width].zero?
    args[:height] = args[:full_height] if args[:height].zero?
    img = Gtk::Image.new img.pixbuf.scale(args[:width], args[:height])
  end
  @canvas.put img, args[:left], args[:top]
  img.show_now
  @canvas.remove img if args[:hidden]
  args[:real], args[:app], args[:path] = img, self, name
  Image.new(args).tap do |s|
    @dics.push([s, d, tmpname]) if downloading
    s.click &click_proc if click_proc
  end
end

206
207
208

# File 'lib/shoes/app.rb', line 206

def imagesize name
  Gtk::Image.new(name).size_request
end

169

# File 'lib/shoes/app.rb', line 169

def inscription *msg; textblock Para, 10, *msg; end

360
361
362
363
364
365
366
367
368
369
370
371
372

# File 'lib/shoes/app.rb', line 360

def keypress &blk
  win.set_events Gdk::Event::BUTTON_PRESS_MASK | Gdk::Event::BUTTON_RELEASE_MASK | Gdk::Event::POINTER_MOTION_MASK | Gdk::Event::KEY_PRESS_MASK
  win.signal_connect("key_press_event") do |w, e|
    k = Gdk::Keyval.to_name e.keyval
    k = case
      when Shoes::KEY_NAMES.include?(k); e.keyval.chr
      when k == 'Return'; "\n"
      when k == 'Tab'; "\t"
	  else k
    end
    blk[k]
  end
end

474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533

# File 'lib/shoes/app.rb', line 474

def line *attrs
  args = attrs.last.class == Hash ? attrs.pop : {}
  case attrs.length
    when 0, 1, 2
    when 3; args[:sx], args[:sy], args[:ex] = attrs; args[:ey] = args[:ex]
    else args[:sx], args[:sy], args[:ex], args[:ey] = attrs
  end
  sx, sy, ex, ey = args[:sx], args[:sy], args[:ex], args[:ey]
  sw = args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
  cw = hsw = sw*0.5
  args[:width], args[:height] = (sx - ex).abs, (sy - ey).abs
  args[:width] += cw
  args[:height] += cw
  
  args = basic_attributes args
  (click_proc = args[:click]; args.delete :click) if args[:click]
  surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, args[:width]+sw, args[:height]+sw
  context = Cairo::Context.new surface
  
  pat = (args[:stroke] or stroke)
  gp = gradient pat, args[:width], args[:height], args[:angle]
  context.set_source gp
  context.set_line_width args[:strokewidth]
  
  if ((sx - ex) < 0 and (sy - ey) < 0) or ((sx - ex) > 0 and (sy - ey) > 0)
    context.move_to cw+hsw, cw+hsw
    context.line_to args[:width]+hsw, args[:height]+hsw
    args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
    args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
  elsif ((sx - ex) < 0 and (sy - ey) > 0) or ((sx - ex) > 0 and (sy - ey) < 0)
    context.move_to cw+hsw, args[:height]+hsw
    context.line_to args[:width]+hsw, cw+hsw
    args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
    args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
  elsif !(sx - ex).zero? and (sy - ey).zero?
    context.move_to cw, cw+hsw
    context.line_to args[:width], cw+hsw
    args[:left] = (sx - ex) < 0 ? sx : ex
    args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
  elsif (sx - ex).zero? and !(sy - ey).zero?
    context.move_to cw+hsw, cw
    context.line_to cw+hsw, args[:height]
    args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
    args[:top] = (sy - ey) < 0 ? sy : ey
  else
    context.move_to 0, 0
    context.line_to 0, 0
    args[:left] = sw
    args[:top] = sy
  end
  
  context.set_line_cap(LINECAP[args[:cap]] || cap)
  context.stroke
  img = create_tmp_png surface
  @canvas.put img, (args[:left]-=cw), (args[:top]-=cw)
  img.show_now
  @canvas.remove img if args[:hidden]
  args[:real], args[:app] = img, self
  Line.new(args).tap{|s| s.click &click_proc if click_proc}
end

18
19
20

# File 'lib/shoes/text.rb', line 18

def link str, arg = {}, &blk
  Link.new "#{LINK_DEFAULT}#{str}</span>", arg, &blk
end

309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328

# File 'lib/shoes/app.rb', line 309

def list_box args={}
  args = basic_attributes args
  args[:width] = 200 if args[:width].zero?
  args[:height] = 28 if args[:height].zero?
  (change_proc = args[:change]; args.delete :change) if args[:change]
  cb = Gtk::ComboBox.new
  args[:items] ||= []
  args[:items].each{|item| cb.append_text item.to_s}
  cb.set_size_request args[:width], args[:height]
  cb.active = args[:items].index(args[:choose]) if args[:choose]
  @canvas.put cb, args[:left], args[:top]
  cb.show_now
  args[:real], args[:app] = cb, self
  ListBox.new(args).tap do |s|
    s.change &change_proc
    cb.signal_connect("changed") do
      yield s
    end if block_given?
  end
end

90
91
92
93
94
95
96
97
98

# File 'lib/shoes/helper_methods.rb', line 90

def make_link_index msg
  start, links = 0, []
  msg.each do |e|
    len = e.to_s.gsub(/<\/.*?>/, '').gsub(/<.*?>/, '').bytesize
    (links << e; e.index = [start, start + len]) if e.is_a? Link
    start += len
  end
  links
end

100
101
102
103
104
105
106

# File 'lib/shoes/helper_methods.rb', line 100

def make_link_pos links, layout, line_height
  links.each do |e|
    e.pos = [layout.index_to_pos(e.index[0]).x / Pango::SCALE, layout.index_to_pos(e.index[0]).y / Pango::SCALE]
    e.pos << (layout.index_to_pos(e.index[1]).x / Pango::SCALE) << (layout.index_to_pos(e.index[1]).y / Pango::SCALE)
    e.pos << line_height
  end
end

126
127
128
129
130
131

# File 'lib/shoes/helper_methods.rb', line 126

def make_pango_attr markup
  attr_list, dummy_text = Pango.parse_markup markup.gsub('\u0026', '@')
  dummy_attr_list, text = Pango.parse_markup markup
  text = text.gsub('\u0026', '&')
  return text, attr_list
end

133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

# File 'lib/shoes/helper_methods.rb', line 133

def make_pango_layout size, width, height, align, font, justify, leading, wrap, text, attr_list
  leading ||= 4
  wrap ||= 'word'
  wrap == 'trim' ? (wrap, ellipsize = nil, WRAP[wrap.to_sym]) : (wrap, ellipsize = WRAP[wrap.to_sym], nil)
  surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, width, height
  context = Cairo::Context.new surface
  layout = context.create_pango_layout
  layout.width = width * Pango::SCALE
  layout.wrap = wrap if wrap
  layout.ellipsize = ellipsize if ellipsize
  layout.spacing = leading  * Pango::SCALE
  layout.text = text
  layout.justify = justify
  layout.alignment = eval "Pango::ALIGN_#{align.upcase}"
  fd = Pango::FontDescription.new
  fd.family = font
  fd.size = size * Pango::SCALE
  layout.font_description = fd
  layout.attributes = attr_list
  return layout, context, surface
end

114
115
116
117

# File 'lib/shoes/helper_methods.rb', line 114

def make_textcursor_index tb, x, y
  layout = make_textcursor_layout tb
  layout.xy_to_index x * Pango::SCALE, y * Pango::SCALE
end

119
120
121
122
123
124

# File 'lib/shoes/helper_methods.rb', line 119

def make_textcursor_layout tb
  markup, size, width, height, align, font, justify, leading, wrap = 
    %w[@markup @size @width @height @align @font @justify @leading @wrap].map{|v| tb.instance_variable_get v}
  text, attr_list = make_pango_attr markup
  make_pango_layout(size, width, height, align, font, justify, leading, wrap, text, attr_list)[0]
end

108
109
110
111
112

# File 'lib/shoes/helper_methods.rb', line 108

def make_textcursor_pos tb, n
  layout = make_textcursor_layout tb
  n = tb.text.length if n == -1
  return layout.index_to_pos(n).x / Pango::SCALE, layout.index_to_pos(n).y / Pango::SCALE
end

104
105
106

# File 'lib/shoes/app.rb', line 104

def mask &blk
  Mask.new(self, &blk).tap{|m| @mcs << m}
end

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

# File 'lib/plugins/treeview.rb', line 27

def mk_column vals, parent = nil
  vals.each_with_index do |v, i|
    if v.is_a? Array
      mk_column v, parent
    else
      if i.zero?
        parent = @tree_view_store.append parent
        @tree_view_methods.each_with_index{|e, i| parent[i] = eval("v.#{e}").to_s}
      else
        child = @tree_view_store.append parent
        @tree_view_methods.each_with_index{|e, i| child[i] = eval("v.#{e}").to_s}
      end
    end
  end
end

53
54
55
56
57
58
59
60
61
62
63
64

# File 'lib/plugins/treeview.rb', line 53

def mk_path tree, path = []
  tree.each_with_index do |t, i|
    if t.is_a? Array
      path.push(path.empty? ? i : (i.zero? ? i : i-1))
      mk_path t, path
      path.pop
    else
      tmp = i.zero? ? path : [path, i-1]
      @tree_view_paths << tmp.flatten.join(':')
    end
  end
end

43
44
45
46
47
48
49
50
51

# File 'lib/plugins/treeview.rb', line 43

def mk_tree tables
  tables.map do |table|
    if table.is_a? Array
      mk_tree table
    else
      return @tree_view_row.new( *tables )
    end
  end
end

356
357
358

# File 'lib/shoes/app.rb', line 356

def motion &blk
  @mmcs << blk
end

374
375
376

# File 'lib/shoes/app.rb', line 374

def mouse
  [@mouse_button, @mouse_pos[0], @mouse_pos[1]]
end

641
642
643

# File 'lib/shoes/app.rb', line 641

def nofill
  @fill = false
end

750
751
752

# File 'lib/shoes/app.rb', line 750

def nolayout
  @nolayout = true
end

637
638
639

# File 'lib/shoes/app.rb', line 637

def nostroke
  strokewidth 0
end

378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424

# File 'lib/shoes/app.rb', line 378

def oval *attrs
  args = attrs.last.class == Hash ? attrs.pop : {}
  case attrs.length
    when 0, 1
    when 2; args[:left], args[:top] = attrs
    when 3; args[:left], args[:top], args[:radius] = attrs
    else args[:left], args[:top], args[:width], args[:height] = attrs
  end
  args = basic_attributes args
  (click_proc = args[:click]; args.delete :click) if args[:click]
  args[:width].zero? ? (args[:width] = args[:radius] * 2) : (args[:radius] = args[:width]/2.0)
  args[:height] = args[:width] if args[:height].zero?
  args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
  args[:angle1] ||= 0
  args[:angle2] ||= 2*Math::PI

  w, h, mx, my = set_rotate_angle(args)
  my *= args[:width]/args[:height].to_f
  
  surface = Cairo::ImageSurface.new Cairo::FORMAT_ARGB32, w, h
  context = Cairo::Context.new surface
  context.rotate @context_angle
  context.scale(1,  args[:height]/args[:width].to_f)
  
  if pat = (args[:fill] or fill)
    gp = gradient pat, args[:width], args[:height], args[:angle]
    context.set_source gp
    context.arc args[:radius]+mx, args[:radius]-my, args[:radius], args[:angle1], args[:angle2]
    context.fill
  end
  
  pat = (args[:stroke] or stroke)
  gp = gradient pat, args[:width], args[:height], args[:angle]
  context.set_source gp
  context.set_line_width args[:strokewidth]
  context.arc args[:radius]+mx, args[:radius]-my, args[:radius]-args[:strokewidth]/2.0, args[:angle1], args[:angle2]
  context.set_line_cap(LINECAP[args[:cap]] || cap)
  context.stroke

  img = create_tmp_png surface
  img = Gtk::Image.new img.pixbuf.rotate(ROTATE[@pixbuf_rotate])
  @canvas.put img, args[:left], args[:top]
  img.show_now
  @canvas.remove img if args[:hidden]
  args[:real], args[:app] = img, self
  Oval.new(args).tap{|s| s.click &click_proc if click_proc}
end

168

# File 'lib/shoes/app.rb', line 168

def para *msg; textblock Para, 12, *msg; end

735
736
737
738
739
740
741
742
743
744

# File 'lib/shoes/app.rb', line 735

def progress args={}
  args = basic_attributes args
  args[:width] = 150 if args[:width] < 150
  pb = Gtk::ProgressBar.new
  pb.text = ' ' * (args[:width] / 4 - 2)
  @canvas.put pb, args[:left], args[:top]
  pb.show_now
  args[:real], args[:app], args[:noorder], args[:nocontrol] = pb, self, true, true
  Progress.new args
end

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
34
35
36
37
38
39
40

# File 'lib/shoes/projector.rb', line 3

def projector file
  projector = Projector.new
  projector.controller = SwingController.new
  projector.controller.content = TextureMappingData.new
  projector.controller.content.face_list = AkatsukiFace::create
  projector.controller.content.texture = Gdk::Pixbuf.new(file)
  
  def (projector.controller.content.texture).source_set(context)
    context.set_source_pixbuf(self)
  end
  
  @canvas.tap do |drawing_area|
    drawing_area.signal_connect('expose-event') do |widget, event|
      projector.controller.region(widget.allocation)
      projector.update
      projector.draw
      true
    end
    drawing_area.add_events(Gdk::Event::BUTTON_PRESS_MASK)
    drawing_area.signal_connect('button_press_event') do |widget, event|
      projector.controller.press(event)
      true
    end
    drawing_area.add_events(Gdk::Event::POINTER_MOTION_MASK)
    drawing_area.signal_connect('motion_notify_event') do |widget, event|
      projector.controller.motion(event)
      true
    end
    drawing_area.add_events(Gdk::Event::BUTTON_RELEASE_MASK)
    drawing_area.signal_connect('button_release_event') do |widget, event|
      projector.controller.release(event)
      true
    end
  end

  projector.widget = @canvas
  animate{projector.draw}
end

242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260

# File 'lib/shoes/app.rb', line 242

def radio *attrs
  args = attrs.last.class == Hash ? attrs.pop : {}
  group = attrs.first unless attrs.empty?
  group = args[:group] if args[:group]
  group = group ? (@radio_groups[group] ||= Gtk::RadioButton.new) : cslot.radio_group
  args = basic_attributes args
  (click_proc = args[:click]; args.delete :click) if args[:click]
  rb = Gtk::RadioButton.new group
  rb.active = true if args[:checked]
  @canvas.put rb, args[:left], args[:top]
  rb.show_now
  args[:real], args[:app] = rb, self
  Radio.new(args).tap do |s|
    s.click &click_proc if click_proc
    rb.signal_connect "clicked" do
      yield s
    end if block_given?
  end
end