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

« back to all changes in this revision

Viewing changes to ext/tk/lib/tkextlib/bwidget/pagesmanager.rb

  • 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
* 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:
 
1
#
 
2
#  tkextlib/bwidget/pagesmanager.rb
 
3
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
 
4
#
 
5
 
 
6
require 'tk'
 
7
require 'tk/frame'
 
8
require 'tkextlib/bwidget.rb'
 
9
 
 
10
module Tk
 
11
  module BWidget
 
12
    class PagesManager < TkWindow
 
13
    end
 
14
  end
 
15
end
 
16
 
 
17
class Tk::BWidget::PagesManager
 
18
  TkCommandNames = ['PagesManager'.freeze].freeze
 
19
  WidgetClassName = 'PagesManager'.freeze
 
20
  WidgetClassNames[WidgetClassName] = self
 
21
 
 
22
  def tagid(id)
 
23
    # id.to_s
 
24
    _get_eval_string(id)
 
25
  end
 
26
 
 
27
  def add(page, &b)
 
28
    win = window(tk_send('add', tagid(page)))
 
29
    win.instance_eval(&b) if b
 
30
    win
 
31
  end
 
32
 
 
33
  def compute_size
 
34
    tk_send('compute_size')
 
35
    self
 
36
  end
 
37
 
 
38
  def delete(page)
 
39
    tk_send('delete', tagid(page))
 
40
    self
 
41
  end
 
42
 
 
43
  def get_frame(page, &b)
 
44
    win = window(tk_send('getframe', tagid(page)))
 
45
    win.instance_eval(&b) if b
 
46
    win
 
47
  end
 
48
 
 
49
  def get_page(page)
 
50
    tk_send('pages', page)
 
51
  end
 
52
 
 
53
  def pages(first=None, last=None)
 
54
    list(tk_send('pages', first, last))
 
55
  end
 
56
 
 
57
  def raise(page=None)
 
58
    tk_send('raise', page)
 
59
    self
 
60
  end
 
61
end