1
2
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
#! /usr/local/bin/ruby
## XML Tree viewer for Gtk
## 1998 by yoshidam
##
## Required: ruby-gtk-0.11 (and gtk+-1.0jp)
## xmlparser-0.4.17
## uconv-0.2.1
require 'gtk'
require 'xmltreebuilder-ja'
## Extend the Node class to manipulate the Gtk::Tree
class Node
## append a node to Gtk::Tree
def appendNodeToTree(node)
if @treeitem.nil?
raise "Cannot append tree"
end
if @tree.nil?
@tree = Gtk::Tree::new()
@treeitem.set_subtree(@tree)
@tree.show
@treeitem.expand
end
@tree.append(node)
end
## create Gtk::Tree from XML::Node tree
def newTreeItem(parent = nil)
if !@treeitem.nil?
raise "tree item already exist"
end
case self.nodeType
when TEXT_NODE
str = "\"" + self.nodeValue + "\""
when CDATA_SECTION_NODE
str = "<![CDATA[" + self.nodeValue + "]]>"
when PROCESSING_INSTRUCTION_NODE
str = "?" + self.nodeValue
when ELEMENT_NODE
attr = ''
@attr.each do |a| ## self.attributes do |a|
attr += a.to_s + ", "
end if @attr
attr.chop!
attr.chop!
str = self.nodeName
if (attr != '');
str += " (" + attr + ")"
end
when COMMENT_NODE
str = "<!--" + self.nodeValue + "-->"
when DOCUMENT_TYPE_NODE
str = "#doctype: " + self.nodeName
else
str = self.nodeName
end
str.gsub!(/\n/, "\\\\n")
@treeitem = Gtk::TreeItem::new(str)
if (parent.nil? && !self.parentNode.nil?)
self.parentNode.appendNodeToTree(@treeitem)
else
parent.append(@treeitem)
end
@treeitem.show
self.childNodes do |c|
c.newTreeItem
end
end
end
## Gtk resources
Gtk::RC::parse_string <<EOS
style "default"
{
fontset = "-adobe-helvetica-medium-r-normal--*-100-*-*-*-*-*-*,\
-*-fixed-medium-r-normal--12-*-*-*-*-*-jisx0208.1983-0,*"
}
widget_class "*" style "default"
EOS
## create XML tree
builder = XML::JapaneseTreeBuilder.new(1)
begin
xmltree = builder.parseStream($<)
rescue XMLParserError
line = builder.line
print "#{$0}: #{$!} (in line #{line})\n"
exit 1
end
print "Parsing end\n"
## unify sequential Text nodes
xmltree.documentElement.normalize
xmltree.trim
print "Normalization end\n"
## create Gtk window
window = Gtk::Window::new(Gtk::WINDOW_TOPLEVEL)
window.signal_connect("delete_event") { exit }
window.signal_connect("destroy_event") { exit }
window.border_width(10)
window.set_title($<.filename)
box1 = Gtk::VBox::new(FALSE, 5)
window.add(box1)
box1.show
scroll = Gtk::ScrolledWindow.new
scroll.show
scroll.set_usize(300,300)
box1.add(scroll)
tree = Gtk::Tree::new()
scroll.add_with_viewport(tree) ## gtk+-1.2
##scroll.add(tree) ## gtk+-1.0
tree.show
## construct Gtk tree
xmltree.newTreeItem(tree)
print "Tree construction end\n"
box2 = Gtk::VBox::new(FALSE, 10)
box2.border_width(10)
box1.pack_start(box2, FALSE, TRUE, 0)
box2.show
button = Gtk::Button::new("Quit")
button.signal_connect("clicked") do
# window.destroy
exit
end
box2.pack_start(button, TRUE, TRUE, 0)
button.show
window.show
Gtk::main()
|
