extract-curves 0.1.1

data/ruby_libs/pav/gtk.rb

@@ -0,0 +1,6 @@
+require 'pav/gtk/icons'
+require 'pav/gtk/guiobj'
+require 'pav/gtk/button'
+require 'pav/gtk/dialog'
+require 'pav/gtk/rulers'
+require 'pav/gtk/toolbar'

data/ruby_libs/pav/gtk/button.rb

@@ -0,0 +1,118 @@
+require 'gtk2'
+require 'pav/gtk/icons'
+
+module PGtk
+
+class Button < Gtk::EventBox
+	attr_reader :hovered, :pressed
+	attr_accessor :content, :content_hover, :content_pressed
+	attr_accessor :left_click_proc, :middle_click_proc,
+		:right_click_proc
+	
+	def initialize(cont_spec=nil, w_cont_hover=nil, h_cont_hover=nil,
+	cont_hover=nil, cont_pressed=nil, &left_click_proc)
+		if cont_pressed
+			@content = PGtk.stock_pixbuf_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = PGtk.stock_pixbuf_of_size(cont_hover,
+				w_cont_hover, h_cont_hover)
+			@content_pressed = PGtk.stock_pixbuf_of_size(
+				cont_pressed, w_cont_hover, h_cont_hover)
+		elsif cont_hover
+			@content = PGtk.stock_pixbuf_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = PGtk.stock_pixbuf_of_size(cont_hover,
+				w_cont_hover, h_cont_hover)
+		elsif h_cont_hover
+		  if w_cont_hover.kind_of?(Integer)
+			@content = PGtk.stock_pixbuf_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = nil
+		  else
+			@content = Gdk::Pixbuf.new(cont_spec, h_cont_hover)
+			@content_hover = Gdk::Pixbuf.new(w_cont_hover,
+				h_cont_hover)
+		  end
+		elsif w_cont_hover
+		  if w_cont_hover.kind_of?(Symbol)
+			@content = Gdk::Pixbuf.new(cont_spec)
+			@content_hover = Gdk::Pixbuf.new(w_cont_hover)
+		  else
+			@content = Gdk::Pixbuf.new(cont_spec, w_cont_hover)
+			@content_hover = nil
+		  end
+		elsif cont_spec
+			@content = Gdk::Pixbuf.new(cont_spec)
+			@content_hover = nil
+		end
+		@left_click_proc = left_click_proc if block_given?
+		super()
+		@image = Gtk::Image.new(@content)
+		self << @image
+		self.events |=	Gdk::Event::BUTTON_RELEASE_MASK |
+				Gdk::Event::BUTTON_PRESS_MASK |
+				Gdk::Event::ENTER_NOTIFY_MASK |
+				Gdk::Event::LEAVE_NOTIFY_MASK
+		self.signal_connect('button_press_event') { |wgt, ev|
+			@pressed = ev.button
+			if [@left_click_proc, @middle_click_proc,
+			 @right_click_proc].at(@pressed-1) &&
+			@content_pressed
+				if @content_pressed
+					@image.pixbuf = @content_pressed
+				end
+			end
+			false
+		}
+		self.signal_connect('button_release_event') { |wgt, ev|
+			@pressed = nil
+			if @content_pressed
+			 	tmp=(@content_hover ? @content_hover : @content)
+				@image.pixbuf = tmp
+			end
+			if @hovered &&(tmp=[@left_click_proc,@middle_click_proc,
+			@right_click_proc].at(ev.button-1))
+				tmp.call(wgt, ev)
+			else
+				false
+			end
+		}
+		self.signal_connect('enter_notify_event') { |wgt, ev|
+			@hovered = true
+			if @pressed && [@left_click_proc, @middle_click_proc,
+			 @right_click_proc].at(@pressed-1) &&
+			@content_pressed
+				@image.pixbuf = @content_pressed
+			elsif @content_hover
+				@image.pixbuf = @content_hover
+			end
+			false
+		}
+		self.signal_connect('leave_notify_event') { |wgt, ev|
+			@hovered = false
+			@image.pixbuf = @content
+			false
+		}
+	end
+	
+	def set_icons(*pixbufs)
+		@content, @content_hover, @content_pressed = *pixbufs
+		if @pressed
+			if @content_pressed
+				@image.pixbuf = @content_pressed
+			else
+				@image.pixbuf = @content
+			end
+		elsif @hovered
+			if @content_hover
+				@image.pixbuf = @content_hover
+			else
+				@image.pixbuf = @content
+			end
+		else
+			@image.pixbuf = @content
+		end
+	end
+end
+
+end

data/ruby_libs/pav/gtk/dialog.rb

@@ -0,0 +1,29 @@
+module PGtk
+	def self.overwrite_dialog(path)
+		dialog = Gtk::Dialog.new('Overwrite output file?', nil, 0,
+			['Overwrite', Gtk::Dialog::RESPONSE_ACCEPT],
+			[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
+		hbox = Gtk::HBox.new(false, 0)
+		hbox.set_border_width(8)
+		dialog.vbox.pack_start(hbox, false, false, 0)
+		hbox.pack_start(Gtk::Image.new(
+			Gtk::Stock::DIALOG_QUESTION, Gtk::IconSize::DIALOG),
+			false, false, 0)
+		label = Gtk::Label.new
+		label.markup = "File <b>#{path}</b> already exists."
+		hbox.pack_start(label, false, false, 0)
+		hbox.show_all
+		resp = dialog.run
+		dialog.destroy
+		resp == Gtk::Dialog::RESPONSE_ACCEPT
+	end
+	
+	def self.show_exc_dialog(exc=$!)
+		dialog = Gtk::MessageDialog.new(nil,0,Gtk::MessageDialog::ERROR,
+			Gtk::MessageDialog::BUTTONS_CLOSE)
+		dialog.title = exc.class.name
+		dialog.markup = "<b>#{exc.class.name}:</b> <b><i>#{exc.to_s}</i></b>\n\tfrom #{exc.backtrace.join("\n\tfrom ")}"
+		dialog.run
+		dialog.destroy
+	end
+end

data/ruby_libs/pav/gtk/guiobj.rb

@@ -0,0 +1,772 @@
+require 'gtk2'
+require 'pav/guiobj'
+require 'pav/gtk/dialog'
+require 'pav/gtk/rulers'
+require 'pav/string/ext'
+require 'pav/numeric/ext'
+
+module PGtk
+
+module GuiObj
+
+class LinearHBox < Gtk::HBox
+	def initialize(expand=false, padding=3)
+		super(expand, padding)
+	end
+	
+	def append(wgt)
+		self.pack_start(wgt, false, false, 0)
+	end
+	
+	def append_space
+		self.pack_start(sep=PGtk::VSep.new, false, false, 3)
+		sep.show_all
+	end
+end
+
+class LinearVBox < Gtk::VBox
+	def initialize(expand=false, padding=3)
+		super(expand, padding)
+	end
+	
+	def append(wgt)
+		self.pack_start(wgt, false, false, 0)
+	end
+	
+	def append_space
+		self.pack_start(sep=PGtk::HSep.new, false, false, 3)
+		sep.show_all
+	end
+end
+
+class LinearBox
+	def self.new(dir=Gtk::Orientation::HORIZONTAL)
+		if dir == Gtk::Orientation::HORIZONTAL
+			LinearHBox.new
+		else
+			LinearVBox.new
+		end
+	end
+end
+
+module InfoStrTTip
+	def pguiobj_info_str=(str)
+		(cfg = self.pguiobj_proto.pguiobj_config).info_str = str
+		ttips = cfg.gtk_tooltips || @pguiobj_ttips ||
+			(@pguiobj_ttips = Gtk::Tooltips.new)
+		for wgt in self.pguiobj_ttip_wgts
+			ttips.set_tip(wgt, str, nil)
+		end
+	end
+end
+
+class Argument < LinearHBox
+	attr_reader :arg
+	
+	@type_handlers = []
+	
+	def self.add_type_handler(type, handler_class)
+		@type_handlers << [type, handler_class]
+	end
+	
+	def self.create(arg)
+		type = arg.pguiobj_type_class
+		if type.kind_of?(PGuiObj::PMethod)
+			return GeneratedArgument.new(arg)
+		elsif type.kind_of?(Class)
+			@type_handlers.each { |h|
+				if type <= h[0]
+					return h[1].new(arg)
+				end
+			}
+		end
+		raise ArgumentError, "Unrecognized argument class: #{
+				type} of argument #{arg}!"
+	end
+	
+	def initialize(arg)
+		@arg = arg
+		super()
+		self.append(Gtk::Label.new(arg.pguiobj_name.cap_first.
+			concat(': ')))
+	end
+	
+	def method_missing(id, *args, &block)
+		@arg.send(id, *args, &block)
+	end
+end
+
+class GeneratedArgument < Argument
+	attr_reader :meth
+	
+	def initialize(arg)
+		super(arg)
+		self.append(@meth=PNoResMethod.create(arg.pguiobj_type_class,
+			nil, false))
+	end
+	
+	def value
+		@meth.call
+	end
+end
+
+class BoolArgument < Argument
+	attr_reader :check_btn
+	
+	def initialize(arg)
+		super(arg)
+		self.append(@check_btn = Gtk::CheckButton.new)
+		@check_btn.active = arg.pguiobj_default
+		@check_btn.signal_connect('toggled') { |btn,ev|
+			self.pguiobj_value_changed_flag.changed
+			self.pguiobj_value_changed_flag.notify_observers(self)
+		}
+	end
+	
+	def value
+		@check_btn.active?
+	end
+end
+
+Argument.add_type_handler(PGuiObj::Bool, BoolArgument)
+
+class AdjArgument < Argument
+	attr_reader :adj, :spin_btn
+	
+	def initialize(arg, deflt_dgts_cnt=2)
+		super(arg)
+		if (cnstr = arg.pguiobj_type_constraints)
+			if cnstr.min
+				min = cnstr.min
+			else
+				min = -1.0; min*= 2.0 while (min*2.0).finite?
+			end
+			if cnstr.max
+				max = cnstr.max
+			else
+				max = 1.0; max *= 2.0 while (max*2.0).finite?
+			end
+		else
+			min = -1.0; min*= 2.0 while (min*2.0).finite?
+			max = 1.0; max *= 2.0 while (max*2.0).finite?
+		end
+		cfg = arg.pguiobj_config
+		step = cfg.step || 1.0
+		page_step = cfg.page_step || 10.0
+		page_size = cfg.page_size || 10.0
+		climb_rate = cfg.climb_rate || 0.0
+		n_digits = cfg.frac_digits_cnt || deflt_dgts_cnt
+		@adj = Gtk::Adjustment.new(arg.pguiobj_default || 0.0, min, max,
+			step, page_step, page_size)
+		@spin_btn = Gtk::SpinButton.new(@adj, climb_rate, n_digits)
+		@spin_btn.numeric = true
+		if arg.pguiobj_descr
+			ttips=Gtk::Tooltips.new unless (ttips=cfg.gtk_tooltips)
+			ttips.set_tip(@spin_btn, arg.pguiobj_descr, nil)
+		end
+		self.append(@spin_btn)
+		self.append(Gtk::Label.new(cfg.units)) if cfg.units
+		@spin_btn.signal_connect('value-changed') { |btn,ev|
+			self.pguiobj_value_changed_flag.changed
+			self.pguiobj_value_changed_flag.notify_observers(self)
+		}
+	end
+	
+	def value
+		@spin_btn.value
+	end
+end
+
+class IntArgument < AdjArgument
+	def initialize(arg)
+		super(arg, 0)
+		#self.spin_btn.snap_to_ticks = true
+	end
+	
+	def value
+		self.spin_btn.value_as_int
+	end
+end
+
+Argument.add_type_handler(Integer, IntArgument)
+Argument.add_type_handler(Numeric, AdjArgument)
+
+class EnumArgument < Argument
+	attr_reader :combo, :impl_args
+	
+	def initialize(arg)
+		super(arg)
+		self.append(@combo = Gtk::ComboBox.new)
+		arg.pguiobj_type_constraints.each_name { |name|
+			@combo.append_text(name) }
+		@impl_args = []
+		@combo.active = arg.pguiobj_default || 0
+		if arg.pguiobj_descr
+			ttips = Gtk::Tooltips.new unless
+				ttips=arg.pguiobj_config.tooltips
+			ttips.set_tip(@combo, arg.pguiobj_descr, nil)
+		end
+		chld_pos = self.children.length
+		@combo.signal_connect('changed') { |combo,ev|
+			chld_pos.upto(self.children.length-1) { |i|
+				self.children.at(i).hide
+			}
+			if (val=self.arg.pguiobj_type_constraints.value(
+			idx=@combo.active)).class <= PGuiObj::MArgument
+			  unless @impl_args.at(idx)
+			    self.append(@impl_args[idx]=Argument.create(val))
+			  end
+			  @impl_args.at(idx).show_all
+			elsif val.class <= PGuiObj::PMMethod
+			  unless @impl_args.at(idx)
+			    self.append(@impl_args[idx]=PNoResMethod.
+				create(val, nil, false))
+			  end
+			  @impl_args.at(idx).show_all
+			end
+			self.pguiobj_value_changed_flag.changed
+			self.pguiobj_value_changed_flag.notify_observers(self)
+		}
+		@combo.signal_emit('changed')
+	end
+	
+	def value
+		if (res=@impl_args.at(idx=@combo.active))
+		  if res.kind_of?(Argument)
+			return res.value
+		  else
+			return res.call
+		  end
+		end
+		self.arg.pguiobj_type_constraints.value(idx)
+	end
+	
+	def set(idx)
+		@combo.active = idx
+	end
+end
+
+Argument.add_type_handler(PGuiObj::Enum, EnumArgument)
+
+class PNoResMethod < LinearVBox
+	attr_reader :pguiobj_proto, :impl_obj, :pguiobj_impl_args, :btn,
+		:impl_args_box, :subobjs_box, :enabled
+	
+	def self.create(meth, obj, *args)
+		self.new(meth, obj, *args)
+	end
+	
+	def initialize(meth, obj, show_title=true)
+		@pguiobj_proto = meth
+		@impl_obj = obj
+		@enabled = true
+		super()
+		#self.orientation = Gtk::Orientation::VERTICAL
+		self.append(@impl_args_box = LinearHBox.new)
+		if !meth.pguiobj_config.no_show_title && show_title
+		  @impl_args_box.append(@btn=Gtk::Button.new)
+		  @btn.add(box=Gtk::HBox.new)
+		  box.pack_start(((icon=@pguiobj_proto.pguiobj_config.icon) &&
+			(img=PGtk.image_new(icon,Gtk::IconSize::BUTTON,0,0))) ||
+			Gtk::Image.new(Gtk::Stock::EXECUTE,
+				Gtk::IconSize::BUTTON))
+		  box.pack_start(Gtk::Label.new(@pguiobj_proto.pguiobj_name.
+		  	cap_first))
+		  @btn.signal_connect('clicked') { |btn,ev| self.call; true }
+		end
+		@pguiobj_impl_args = []
+		@pguiobj_proto.pguiobj_args.each { |arg|
+			@pguiobj_impl_args << Argument.create(arg)
+			@impl_args_box.append(@pguiobj_impl_args.last)
+		}
+		@pguiobj_implementation = @pguiobj_proto.pguiobj_implementation
+		@pguiobj_proto.pguiobj_children = []
+	end
+	
+	def call
+		return unless @enabled
+		@pguiobj_proto.pguiobj_pre_call_flag.changed
+		begin
+		  @pguiobj_proto.pguiobj_pre_call_flag.notify_observers(
+		  	@impl_obj, self)
+		rescue PGuiObj::CancelCall
+		  @pguiobj_proto.pguiobj_cancel_call_flag.changed
+		  @pguiobj_proto.pguiobj_cancel_call_flag.notify_observers(
+		  	@impl_obj, self)
+		  return
+		end
+		res = @pguiobj_implementation.call(*@pguiobj_impl_args.
+			collect{|a| a.value})
+		@pguiobj_proto.pguiobj_post_call_flag.changed
+		@pguiobj_proto.pguiobj_post_call_flag.notify_observers(
+			@impl_obj, self, res, nil)
+		if res.respond_to?(:to_pguiobj)
+			@pguiobj_proto.pguiobj_children << res
+		elsif @pguiobj_proto.pguiobj_config.keep_not_guiobj_subobjs
+			@pguiobj_proto.pguiobj_children << res
+		end
+		res
+	end
+	
+	def disable
+		@btn.sensitive = false
+		@enabled = false
+	end
+	
+	def enable
+		@btn.sensitive = true
+		@enabled = true
+	end
+	
+	def pguiobj_clear_children
+		@pguiobj_proto.pguiobj_clear_children
+	end
+	
+	def pguiobj_each_child
+	end
+	
+	def method_missing(id, *args, &block)
+		@pguiobj_proto.send(id, *args, &block)
+	end
+end
+
+class PResMethodChildDeathObserver
+	attr_reader :hbox
+	attr_accessor :link, :prev_link, :prev_hbox, :next_obs
+	
+	def initialize(subobjs_box, hbox)
+		@subobjs_box = subobjs_box
+		@hbox = hbox
+		@link = nil
+		@prev_hbox = nil
+	end
+	
+	def update(gui_obj, obj)
+		if hbox.children[0].end_node?
+			if @prev_hbox
+				@subobjs_box.remove(@prev_link)
+				@prev_hbox.children[0].end_node = true
+			end
+		else
+			@next_obs.prev_hbox = @prev_hbox
+			@next_obs.prev_link = @prev_link
+			@subobjs_box.remove(@link) if @link
+		end
+		@subobjs_box.remove(hbox)
+	end
+end
+
+class PResMethod < LinearVBox
+	attr_reader :pguiobj_proto, :pguiobj_impl_args, :btn, :impl_args_box,
+		:subobjs_box, :impl_obj, :enabled
+	
+	def self.create(meth, obj)
+		self.new(meth, obj)
+	end
+	
+	def initialize(meth, obj)
+		@pguiobj_proto = meth
+		@impl_obj = obj
+		@enabled = true
+		super()
+		obj_vbox = self
+		#obj_vbox.orientation = Gtk::Orientation::VERTICAL
+		obj_vbox.append(@impl_args_box = LinearHBox.new)
+		@impl_args_box.append(@btn=Gtk::Button.new)
+		@btn.add(box=Gtk::HBox.new)
+		box.pack_start(((icon=@pguiobj_proto.pguiobj_config.icon) &&
+			(img=PGtk.image_new(icon,Gtk::IconSize::BUTTON,0,0))) ||
+			Gtk::Image.new(Gtk::Stock::EXECUTE,
+				Gtk::IconSize::BUTTON))
+		box.pack_start(Gtk::Label.new(@pguiobj_proto.pguiobj_name.
+			cap_first))
+		@btn.signal_connect('clicked') { |btn,ev| self.call; true }
+		@pguiobj_impl_args = []
+		@pguiobj_proto.pguiobj_args.each { |arg|
+			@pguiobj_impl_args << Argument.create(arg)
+			@impl_args_box.append(@pguiobj_impl_args.last)
+		}
+		obj_vbox.append(@subobjs_box = LinearVBox.new(false, 0))
+		#@subobjs_box.orientation = Gtk::Orientation::VERTICAL
+		@pguiobj_proto.pguiobj_children = []
+		@pguiobj_implementation = @pguiobj_proto.pguiobj_implementation
+	end
+	
+	def disable
+		@btn.sensitive = false
+		@enabled = false
+	end
+	
+	def enable
+		@btn.sensitive = true
+		@enabled = true
+	end
+	
+	def call
+		return unless @enabled
+		@pguiobj_proto.pguiobj_pre_call_flag.changed
+		begin
+		  @pguiobj_proto.pguiobj_pre_call_flag.notify_observers(
+		  	@impl_obj, self)
+		rescue PGuiObj::CancelCall
+		  @pguiobj_proto.pguiobj_cancel_call_flag.changed
+		  @pguiobj_proto.pguiobj_cancel_call_flag.notify_observers(
+		  	@impl_obj, self)
+		  return
+		end
+		res = @pguiobj_implementation.call(*@pguiobj_impl_args.
+			collect{|a| a.value})
+		@pguiobj_proto.pguiobj_post_call_pre_gui_flag.changed
+		@pguiobj_proto.pguiobj_post_call_pre_gui_flag.notify_observers(
+			@impl_obj, self, res)
+		if res.respond_to?(:to_pguiobj)
+			prev_hbox = nil
+			if @subobjs_box.children.length > 0
+				(prev_hbox=@subobjs_box.children.last).children[
+				  0].end_node = false
+				@subobjs_box.append(pgtk_lk=PGtk::TreeLink.new)
+				(prev_obs=prev_hbox.children[1].
+				  pgtkguiobj_death_observer).link = pgtk_lk
+			end
+			@subobjs_box.append(hbox=Gtk::HBox.new)
+			hbox.pack_start(pgtk_node=PGtk::TreeNodePadding.new(
+				true), false, false, 0)
+			res.pguiobj_post_destroy_flag.add_observer(obs =
+			  PResMethodChildDeathObserver.new(@subobjs_box,hbox))
+			if prev_hbox
+				obs.prev_hbox = prev_hbox
+				obs.prev_link = pgtk_lk
+				prev_obs.next_obs = obs
+			end
+			hbox.pack_start(gobj=MObj.create(res.to_pguiobj,
+				false, pgtk_node), false, false, 0)
+			hbox.show_all
+			gobj.pgtkguiobj_death_observer = obs
+			@pguiobj_proto.pguiobj_children << res
+			res.pguiobj_parent_meth = @pguiobj_proto
+		elsif @pguiobj_proto.pguiobj_config.keep_not_guiobj_subobjs
+			@pguiobj_proto.pguiobj_children << res
+			gobj = nil
+		end
+		@pguiobj_proto.pguiobj_post_call_flag.changed
+		@pguiobj_proto.pguiobj_post_call_flag.notify_observers(
+			@impl_obj, self, res, gobj)
+		res
+	end
+	
+	def pguiobj_clear_children
+		while !@subobjs_box.children.empty?
+			child = @subobjs_box.children.first
+			@subobjs_box.remove(child)
+			child.destroy unless child.destroyed?
+		end
+		@pguiobj_proto.pguiobj_clear_children
+	end
+	
+	def pguiobj_each_child
+		@subobjs_box.children.each { |sbc|
+		  if sbc.kind_of?(Gtk::HBox)
+			yield(sbc.children[1])
+		  end
+		}
+	end
+	
+	def method_missing(id, *args, &block)
+		@pguiobj_proto.send(id, *args, &block)
+	end
+end
+
+class PMethod
+	def self.create(meth, obj, *args)
+		if meth.pguiobj_config.no_res
+			PNoResMethod.create(meth, obj, *args)
+		else
+			PResMethod.create(meth, obj, *args)
+		end
+	end
+end
+
+module MObj
+	include InfoStrTTip
+	
+	attr_reader :pguiobj_guiobj, :destroy_btn, :marshal_dump_btn,
+		:dump_to_s_btn, :dump_inspect_btn, :pguiobj_ttip_wgts
+	attr_accessor :pgtkguiobj_death_observer
+	
+	alias_method :pguiobj_proto, :pguiobj_guiobj
+	
+	def self.create(obj, destroy=true, tree_node=nil)
+		if obj.kind_of?(PGuiObj::MObjCollection) ||
+		obj.kind_of?(PGuiObj::ObjCollection)
+			impl_obj=ObjCollection.new(obj, destroy, tree_node)
+		else
+			impl_obj=Obj.new(obj, destroy, tree_node)
+		end
+		obj.pguiobj_impl_obj = impl_obj
+	end
+	
+	def self.save_dialog(title)
+		dialog = Gtk::FileChooserDialog.new(title, nil,
+			Gtk::FileChooser::ACTION_SAVE, "gnome-vfs",
+			[Gtk::Stock::SAVE,Gtk::Dialog::RESPONSE_ACCEPT],
+			[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
+		resp = dialog.run
+		path = dialog.filename
+		dialog.destroy
+		return if resp != Gtk::Dialog::RESPONSE_ACCEPT
+		if FileTest.exist?(path)
+		  return unless PGtk.overwrite_dialog(path)
+		end
+		begin
+			open(path, 'w') { |file| yield(file) }
+		rescue IOError
+			PGtk.show_exc_dialog
+		end
+	end
+	
+	def obj_pack_id(obj, title_box, cfg)
+		has_id = false
+		id_box = Gtk::HBox.new(false, 3)
+		if (icon = cfg.icon) && (img = PGtk.image_new(icon,
+		Gtk::IconSize::LARGE_TOOLBAR, 3, 3))
+		  	id_box.pack_start(img, false, false, 0)
+			has_id = true
+		end
+		if cfg.name
+			id_box.pack_start(Gtk::Label.new(
+				cfg.name.cap_first), false, false, 0)
+			has_id = true
+		end
+		id_box.pack_start(Gtk::Label.new('<' + obj.class.name+ ':' +
+		  obj.object_id.mem_hex+'>'), false, false, 0) unless has_id
+		ev_box = Gtk::EventBox.new
+		ev_box.add(id_box)
+		id_box = ev_box
+		@pguiobj_ttip_wgts = [id_box]
+		if cfg.info_str
+			self.pguiobj_info_str = cfg.info_str
+		end
+		title_box.pack_start(id_box, false, false, 0)
+	end
+	
+	def obj_pack_title_box(obj, title_box, cfg)
+		self.obj_pack_id(obj, title_box, cfg)
+		title_box.pack_end(Gtk::HBox.new,true,true,0)
+		unless cfg && cfg.destroy_btn == false
+			title_box.pack_end(@destroy_btn=Gtk::Button.new,
+				false, false, 0)
+			@destroy_btn.add(hbox=Gtk::HBox.new(false, 0))
+			hbox.pack_start(Gtk::Image.new(Gtk::Stock::DELETE,
+				Gtk::IconSize::BUTTON), false, false, 0)
+			hbox.pack_start(Gtk::Label.new('Destroy'),false,false,0)
+			@destroy_btn.signal_connect('clicked') { |btn,ev|
+			  begin
+				@pguiobj_guiobj.pguiobj_pre_destroy_flag.changed
+				@pguiobj_guiobj.pguiobj_pre_destroy_flag.
+					notify_observers(self)
+			  rescue PGuiObj::CancelCall
+				return true
+			  end
+			  @pguiobj_guiobj.pguiobj_parent_meth.
+			    pguiobj_remove_child(@pguiobj_guiobj) if
+			  	@pguiobj_guiobj.pguiobj_parent_meth
+			  @pguiobj_guiobj.pguiobj_post_destroy_flag.changed
+			  @pguiobj_guiobj.pguiobj_post_destroy_flag.
+			  	notify_observers(self, @pguiobj_guiobj)
+			  if @destroy
+			  	self.destroy
+			  end
+			  true
+			}
+		end
+		unless cfg && cfg.marshal_dump_btn == false
+			title_box.pack_end(@marshal_dump_btn=Gtk::Button.new,
+				false, false, 0)
+			@marshal_dump_btn.add(hbox=Gtk::HBox.new(false, 0))
+			hbox.pack_start(Gtk::Image.new(Gtk::Stock::SAVE,
+				Gtk::IconSize::BUTTON), false, false, 0)
+			hbox.pack_start(Gtk::Label.new('Dump (Marshal)'),
+				false,false,0)
+			@marshal_dump_btn.signal_connect('clicked') { |btn,ev|
+			  MObj.save_dialog("Marshal.dump object to file"){|file|
+				Marshal.dump(@pguiobj_guiobj, file, 1500) }
+			}
+		end
+		unless cfg && cfg.dump_to_s_btn == false
+			title_box.pack_end(@dump_to_s_btn=Gtk::Button.new,
+				false, false, 0)
+			@dump_to_s_btn.add(hbox=Gtk::HBox.new(false, 0))
+			hbox.pack_start(Gtk::Image.new(Gtk::Stock::SAVE,
+				Gtk::IconSize::BUTTON), false, false, 0)
+			hbox.pack_start(Gtk::Label.new('Dump (to_s)'),
+				false,false,0)
+			@dump_to_s_btn.signal_connect('clicked') { |btn,ev|
+			  MObj.save_dialog("Save object.to_s to file") { |file|
+				file.write(@pguiobj_guiobj.to_s) }
+			}
+		end
+		unless cfg && cfg.dump_inspect_btn == false
+			title_box.pack_end(@dump_inspect_btn=Gtk::Button.new,
+				false, false, 0)
+			@dump_inspect_btn.add(hbox=Gtk::HBox.new(false, 0))
+			hbox.pack_start(Gtk::Image.new(Gtk::Stock::SAVE,
+				Gtk::IconSize::BUTTON), false, false, 0)
+			hbox.pack_start(Gtk::Label.new('Dump (inspect)'),
+				false,false,0)
+			@dump_inspect_btn.signal_connect('clicked') { |btn,ev|
+			  MObj.save_dialog("Save object.inspect to file"){|file|
+				file.write(@pguiobj_guiobj.inspect) }
+			}
+		end
+		title_box
+	end
+	
+	def pguiobj_sig_changed(change)
+		@pguiobj_guiobj.pguiobj_changed_flag.changed
+		@pguiobj_guiobj.pguiobj_changed_flag.notify_observers(
+			self, change)
+	end
+	
+	def method_missing(id, *args, &block)
+		@pguiobj_guiobj.send(id, *args, &block)
+	end
+end
+
+class Obj < LinearVBox
+	attr_reader :contents_box, :method_box
+	attr_accessor :destroy, :pguiobj_key
+	include MObj
+	
+	sz = Gtk::IconSize.lookup(Gtk::IconSize::BUTTON)
+	@@img_collapse = PGtk.stock_pixbuf_of_size(:"pgtk-collapse",sz[0],sz[1])
+	@@img_collapse_hover = PGtk.stock_pixbuf_of_size(
+		:"pgtk-collapse-hover", sz[0], sz[0])
+	@@img_expand = PGtk.stock_pixbuf_of_size(:"pgtk-expand", sz[0], sz[1])
+	@@img_expand_hover=PGtk.stock_pixbuf_of_size(:"pgtk-expand-hover",
+		sz[0],sz[1])
+	
+	def initialize(obj, destroy=true, tree_node=nil)
+		@pguiobj_guiobj = obj
+		@destroy = destroy
+		super()
+		#self.orientation = Gtk::Orientation::VERTICAL
+		cfg = @pguiobj_guiobj.pguiobj_config
+		@title_box = Gtk::HBox.new(false, 5)
+		if tree_node
+			@expanded = true
+			@expand_btn=PGtk::Button.new(:"pgtk-collapse",
+			  @@img_expand.width, @@img_expand.height,
+			  :"pgtk-collapse-hover") { |wgt,ev|
+				if @expanded
+					@expanded = false
+					@expand_btn.set_icons(@@img_expand,
+						@@img_expand_hover)
+					@contents_box.hide
+				else
+					@expanded = true
+					@expand_btn.set_icons(@@img_collapse,
+						@@img_collapse_hover)
+					@contents_box.show
+				end
+			  }
+			tree_node.add_title_widget(@expand_btn)
+		end
+		self.append(@title_box)
+		self.obj_pack_title_box(obj, @title_box, cfg)
+		self.append(@contents_box=LinearVBox.new)
+		@contents_box.append(@method_box=LinearVBox.new)
+		@pguiobj_guiobj.pguiobj_methods.each { |meth|
+			@method_box.append(PMethod.create(meth, self)) }
+	end
+	
+	def pguiobj_add_method(meth)
+		if (res = PMethod.create(meth, self)).pguiobj_config.no_res
+			@title_box.pack_start(res, false, false, 0)
+		else
+			@method_box.append(res)
+		end
+		res.show_all
+		res
+	end
+	
+	def pguiobj_each_method
+		@title_box.children.each { |child|
+		  yield(child) if child.kind_of?(PResMethod) ||
+			child.kind_of?(PNoResMethod) }
+		@method_box.children.each { |meth| yield(meth) }
+	end
+end
+
+class ObjCollectionChildDestroyer
+	attr_reader :collection, :idx_wgt
+	
+	def initialize(collection, idx_wgt)
+		@collection = collection
+		@idx_wgt = idx_wgt
+	end
+	
+	def update(child, under_child)
+		@collection.contents_table.remove(child)
+		@collection.contents_table.remove(@idx_wgt)
+	end
+end
+
+class ObjCollection < Obj
+	attr_reader :contents_table
+	attr_accessor :destroy, :pguiobj_key
+	include MObj
+	
+	def initialize(obj, destroy=true, tree_node=nil)
+		if (info = obj.pguiobj_config.info_str)
+			info << ' '
+		else
+			info = obj.pguiobj_config.info_str = ''
+		end
+		info << "#{obj.pguiobj_length} element#{obj.pguiobj_length==1 ?
+			'' : 's'}."
+		super(obj, destroy, tree_node)
+		self.contents_box.append(@contents_table=Gtk::Table.new(
+			@pguiobj_guiobj.pguiobj_length, 2, false))
+		row = 0
+		@pguiobj_children = []
+		first = true
+		@pguiobj_guiobj.pguiobj_each_key_value { |k, val|
+			unless first
+			  @contents_table.attach(PGtk::HSep.new,0,2, row,row+=1,
+			  	Gtk::EXPAND|Gtk::FILL, 0, 0, 0)
+			end
+			@contents_table.attach(idx_wgt=
+				Gtk::Label.new('• '+k.to_s+' '),
+				0, 1, row, row+1, 0, 0, 0, 0)
+			@contents_table.attach(o=MObj.create(val), 1,2,
+				row,row+1, 0, 0, 0, 0)
+			o.pguiobj_post_destroy_flag.add_observer(
+				ObjCollectionChildDestroyer.new(self,idx_wgt))
+			o.pguiobj_key = k
+			@pguiobj_children << o
+			row += 1
+			first = false
+		}
+	end
+	
+	def self.widget_each_child(wgt, &block)
+		yield(wgt)
+		if wgt.kind_of?(Gtk::Container)
+			wgt.children.each { |child|
+				self.widget_each_child(child, &block) }
+		end
+	end
+	
+	def pguiobj_each_key_value
+		@pguiobj_children.each { |child|
+			yield(child.pguiobj_key, child) }
+	end
+	
+	def pguiobj_each_value
+		@pguiobj_children.each { |child| yield(child) }
+	end
+end
+
+end
+
+end