extract-curves 0.1.1-mswin32

data/Changelog

@@ -0,0 +1,21 @@
+extract-curves (0.1.1) unstable; urgency=medium
+  * Switched to shaving negligible-extent groups as though they were nodes.
+  * Added the 'View/Unmark all' function.
+  * Switched to dynamic addition of tooltips and blinking/highlighted segments
+    (e.g. after incorporation of subblobs).
+  * Improved method call synchronization by using pre-call, cancel-call and
+    post-call hooks and method disabling.
+
+ -- Pavel Penev <pavpen@berkeley.edu>  Sun, 27 Nov 2005 18:58:21 -0500
+
+extract-curves (0.1.0) unstable; urgency=medium
+  * New pre-release with a new and more bug-free GUI, based on PGuiObj
+    (autogenerated from the Ruby object structure), with the ability to save
+    image objects in image formats.
+
+ -- Pavel Penev <pavpen@berkeley.edu>  Sat, 19 Nov 2005 23:57:31 -0500
+
+extract-curves (0.0.1) unstable; urgency=medium
+  * Initial pre-release.
+
+ -- Pavel Penev <pavpen@berkeley.edu>  Tue, 15 Nov 2005 13:36:21 -0500

data/bin/ec_rect2polar

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+
+require 'complex'
+require 'pav/floatsio'
+
+x0, y0, kr, ktheta, format_str = *ARGV
+unless x0 && y0
+	puts "Usage: #{File.basename($0)} x_0 y_0 [k_r [k_theta [format_str]]]"
+	puts "  (x_0, y_0) = Projection of the zero pole."
+	puts "  k_r, k_theta = Coefficients for the linear (r, theta) pixel " +
+		"coordinates."
+	exit 1
+end
+x0 = x0.to_f; y0 = y0.to_f
+kr ? kr = kr.to_f : kr = 1.0
+ktheta ? ktheta = ktheta.to_f : ktheta = 1.0
+format_str = "%.29g\t%.29g" unless format_str
+
+FloatsInp.new($stdin).each_rec { |rec| x, y = *rec
+	r, theta = *Complex(x-x0, y-y0).polar
+	puts format_str % [theta * ktheta, r * kr]
+}

data/bin/ec_rect2polar.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+
+require 'complex'
+require 'pav/floatsio'
+
+x0, y0, kr, ktheta, format_str = *ARGV
+unless x0 && y0
+	puts "Usage: #{File.basename($0)} x_0 y_0 [k_r [k_theta [format_str]]]"
+	puts "  (x_0, y_0) = Projection of the zero pole."
+	puts "  k_r, k_theta = Coefficients for the linear (r, theta) pixel " +
+		"coordinates."
+	exit 1
+end
+x0 = x0.to_f; y0 = y0.to_f
+kr ? kr = kr.to_f : kr = 1.0
+ktheta ? ktheta = ktheta.to_f : ktheta = 1.0
+format_str = "%.29g\t%.29g" unless format_str
+
+FloatsInp.new($stdin).each_rec { |rec| x, y = *rec
+	r, theta = *Complex(x-x0, y-y0).polar
+	puts format_str % [theta * ktheta, r * kr]
+}

data/bin/ec_rev_lines

@@ -0,0 +1,5 @@
+#!/usr/bin/ruby -w
+
+lns = $stdin.readlines
+lns.reverse!
+print lns

data/bin/ec_rev_lines.rb

@@ -0,0 +1,5 @@
+#!/usr/bin/ruby -w
+
+lns = $stdin.readlines
+lns.reverse!
+print lns

data/bin/ec_sph_area

@@ -0,0 +1,30 @@
+#!/usr/bin/ruby
+
+require 'pav/floatsio'
+
+format_str = *ARGV
+if ARGV.include?("--usage") || ARGV.include?("--help")
+	puts "Usage: #{File.basename($0)} [format_str]"
+	puts "  Calculates the area of a spherical polygon given by "
+	puts "  (azimuth; angular distance from the pole) points in steradians."
+	exit 1
+end
+format_str = "%.30g" unless format_str
+
+area = 0.0
+EPS = 1e-300
+inp = FloatsInp.new($stdin)
+az0, d0 = inp.get_rec
+inp.each_rec { |rec| az, d = *rec
+	#puts "d0=#{d0.inspect}, az0=#{az0.inspect}, d=#{d.inspect}, az=#{
+	#	az.inspect}"
+	if (d - d0).abs < EPS
+		term = Math.cos( (d+d0)/2.0 )
+	else
+		term = (Math.sin(d) - Math.sin(d0)) / (d - d0)
+	end
+	area += (az - az0) * (1.0 - term)
+	d0 = d; az0 = az
+}
+
+puts format_str % area

data/bin/ec_sph_area.rb

@@ -0,0 +1,30 @@
+#!/usr/bin/ruby
+
+require 'pav/floatsio'
+
+format_str = *ARGV
+if ARGV.include?("--usage") || ARGV.include?("--help")
+	puts "Usage: #{File.basename($0)} [format_str]"
+	puts "  Calculates the area of a spherical polygon given by "
+	puts "  (azimuth; angular distance from the pole) points in steradians."
+	exit 1
+end
+format_str = "%.30g" unless format_str
+
+area = 0.0
+EPS = 1e-300
+inp = FloatsInp.new($stdin)
+az0, d0 = inp.get_rec
+inp.each_rec { |rec| az, d = *rec
+	#puts "d0=#{d0.inspect}, az0=#{az0.inspect}, d=#{d.inspect}, az=#{
+	#	az.inspect}"
+	if (d - d0).abs < EPS
+		term = Math.cos( (d+d0)/2.0 )
+	else
+		term = (Math.sin(d) - Math.sin(d0)) / (d - d0)
+	end
+	area += (az - az0) * (1.0 - term)
+	d0 = d; az0 = az
+}
+
+puts format_str % area

data/bin/extract_curves

@@ -0,0 +1,1670 @@
+#!/usr/bin/ruby
+
+require 'gtk2'
+
+if str = Gtk.check_version(2, 6, 0)
+	puts "This program requires GTK+ 2.6.0 or later"
+	puts str
+	exit
+end
+
+Gtk.init
+
+require 'thread'
+require 'pav/pix'
+require 'pav/set'
+require 'pav/dbg_log'
+require 'pav/floatsio'
+require 'pav/pix/blob'
+require 'pav/pix/curve'
+require 'pav/gtk/icons'
+require 'pav/attr_cache'
+require 'pav/gtk/dialog'
+require 'pav/gtk/guiobj'
+require 'pav/guiobj/obj'
+require 'pav/string/ext'
+require 'pav/gtk/toolbar'
+require 'pav/pix/contour'
+require 'pav/pix/img_obj'
+require 'pav/string/words'
+require 'pav/guiobj/info_asm'
+require 'pav/pix/shaved_core'
+
+class ExtractCurvesApp < Gtk::Window
+	VERSION = [0, 1, 1]
+	VERSION_SUFFIX = "-beta"
+	MARK_WAYS = ["highlight", "blink", "trace"]
+end
+
+if ARGV[0]
+  case ARGV[0]
+    when '--version'
+	puts ExtractCurvesApp::VERSION.join('.')
+	exit 0
+    when '--file-path'
+	puts File.expand_path(__FILE__)
+	exit 0
+  end
+end
+
+class ECLogProgrBar < PLogProgrBar
+	attr_reader :progr_bar, :progr_box, :progr_label
+	
+	def initialize(dbg_log, progr_bar, progr_label, progr_box)
+		super(dbg_log)
+		@progr_bar = progr_bar
+		@progr_label = progr_label
+		@progr_box = progr_box
+		@progr_label.text = ""
+		@progr_bar.orientation = @progr_bar_orientation = 0
+		@progr_bar.fraction = 0.0
+		@progr_bar.show_text = false
+		@progr_box.pack_start(@progr_bar)
+		@progr_box.pack_start(@progr_label, false, false)
+		@tot_progr_units = 100.0
+		i = -1
+		Gtk.main_iteration_do(false) while (i += 1) < 10 &&
+			Gtk.events_pending?
+	end
+	
+	def total_progr_units=(val)
+		super(val)
+		if val
+			@progr_bar.show_text = true
+		else
+			@progr_bar.show_text = false
+		end
+		i = -1
+		Gtk.main_iteration_do(false) while (i += 1) < 10 &&
+			Gtk.events_pending?
+	end
+	
+	def disp_progr(progr_units_change)
+		if self.total_progr_units
+			if self.show_as[0,1] == "%"
+				pct =  self.fmt_str % (100.0*self.progr_units /
+					self.total_progr_units)
+			else
+				pct = "#{self.progr_units}/#{
+					self.total_progr_units}"
+			end
+			pct += self.show_as[1, self.show_as.length-1]
+			@progr_bar.fraction = Float(self.progr_units) /
+				self.total_progr_units
+		else
+			while self.progr_units > @tot_progr_units
+				@tot_progr_units *= 2
+				@progr_bar_orientation += 1
+			end
+			if self.show_as[0,1] == "%"
+				pct = ""
+			else
+				pct = "#{self.progr_units}" +
+					self.show_as[1,self.show_as.length-1]
+			end
+			@progr_bar.fraction = Float(self.progr_units) /
+				@tot_progr_units
+			@progr_bar.orientation = @progr_bar_orientation %= 2
+		end
+		@progr_label.text = pct
+		i = -1
+		Gtk.main_iteration_do(false) while (i += 1) < 10 &&
+			Gtk.events_pending?
+	end
+	
+	def finish
+		super
+		@progr_box.remove(@progr_label)
+		@progr_box.remove(@progr_bar)
+		i = -1
+		Gtk.main_iteration_do(false) while (i += 1) < 10 &&
+			Gtk.events_pending?
+	end
+end
+
+class StatusbarIO < IO
+	attr_reader :dbg_log, :statusbar, :tee_to, :last_ln
+	
+	def initialize(dbg_log, statusbar, tee_to=nil)
+		@dbg_log = dbg_log
+		@statusbar = statusbar
+		@tee_to = tee_to
+		@last_ln = ""
+	end
+	
+	def print_to_statusbar(str)
+		(@last_ln + str).each_line { |ln| @last_ln = ln }
+		@last_ln.eval_backspace!(@dbg_log.backspc)
+		@statusbar.pop(0)
+		@statusbar.push(0, @last_ln.chomp)
+		i = -1
+		Gtk.main_iteration_do(false) while (i += 1) < 10 &&
+			Gtk.events_pending?
+	end
+	
+	def print(str)
+		@tee_to.print(str) if @tee_to
+		self.print_to_statusbar(str)
+	end
+	
+	def puts(str)
+		@tee_to.puts(str) if @tee_to
+		self.print_to_statusbar(str)
+	end
+	
+	def tty?
+		if @tee_to
+			@tee_to.tty?
+		else
+			true
+		end
+	end
+end
+
+module PGuiObj
+
+module MObj
+	attr_accessor :extract_curves_path, :extract_curves_mark,
+		:extract_curves_processed
+end
+
+module PMMethod
+	attr_accessor :extract_curves_observed
+end
+
+end
+
+class EcImgObjArgObserver
+	def initialize(ec_app, arg_idx, path)
+		@ec_app = ec_app
+		@arg_idx = arg_idx
+		@path = path
+	end
+	
+	def update(arg)
+		unless (cfg = @ec_app.ec_path_cfg[@path])
+			cfg = @ec_app.ec_path_cfg[@path] =
+			  ExtractCurvesApp::ImgObjMethInfo.new.new(nil, [])
+		end
+		cfg.arg_deflts[@arg_idx] = arg.value
+	end
+end
+
+class EcImgObjMarkArgObserver
+	def initialize(ec_app, meth, path)
+		@ec_app = ec_app
+		@meth = meth
+		@path = path
+	end
+	
+	def update(arg)
+		return if @ec_app.arg_set_auto
+		unless (cfg = @ec_app.ec_path_cfg[@path])
+			cfg = @ec_app.ec_path_cfg[@path] =
+			  ExtractCurvesApp::ImgObjMethInfo.new(nil, [])
+		end
+		cfg.mark = arg.value
+		@meth.call
+	end
+end
+
+class EcObjDeathObserver
+	attr_reader :ec_app
+	
+	def initialize(ec_app)
+		@ec_app = ec_app
+	end
+	
+	def update(impl_obj, obj)
+		@ec_app.img_obj_delete(impl_obj)
+	end
+end
+
+class EcImgObjChangeObserver
+	attr_reader :ec_app
+	
+	def self.observe(impl_obj, ec_app)
+		impl_obj.pguiobj_changed_flag.add_observer(
+			res=self.new(ec_app))
+		res
+	end
+	
+	def initialize(ec_app)
+		@ec_app = ec_app
+	end
+	
+	def self.img_obj_length(obj)
+		if obj.kind_of?(PGuiObj::ObjCollection)
+			len = 0
+			obj.pguiobj_each_value{|s|len += self.img_obj_length(s)}
+			len
+		else
+			obj.length
+		end
+	end
+	
+	def update(impl_obj, change)
+		obj=impl_obj.pguiobj_guiobj
+		obj.pguiobj_info_str_asm.set_attr(10, 'extract-curves-pix-size',
+		  EcImgObjChangeObserver.img_obj_length(obj).to_s + ' pix')
+		if obj.kind_of?(PGuiObj::ObjCollection)
+		  obj.pguiobj_info_str_asm.set_attr(9,
+			'extract-curves-collection-length',
+			(len=obj.pguiobj_length).to_s + ' element' + (len == 1 ?
+				'' : 's'))
+		end
+		@ec_app.ec_mark_add_pixels[obj.extract_curves_mark].call(change)
+	end
+end
+
+class EcImgObjMethEndCallObserver
+	attr_reader :ec_app
+	
+	def self.observe(meth, ec_app)
+		meth.pguiobj_cancel_call_flag.add_observer(obs=self.new(ec_app))
+		meth.pguiobj_post_call_flag.add_observer(obs)
+	end
+	
+	def initialize(ec_app)
+		@ec_app = ec_app
+	end
+	
+	def update(impl_obj, impl_meth, *args)
+		@ec_app.drw_area_in_procs = false
+		@ec_app.in_progr.unlock
+		impl_meth.enable
+	end
+end
+
+class EcImgObjMethStartCallObserver
+	attr_reader :ec_app
+	
+	def self.observe(meth, ec_app)
+		meth.pguiobj_pre_call_flag.add_observer(self.new(ec_app))
+	end
+	
+	def initialize(ec_app)
+		@ec_app = ec_app
+	end
+	
+	def update(impl_obj, impl_meth)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "#{impl_obj.inspect}.#{
+		#	impl_meth.pguiobj_name.inspect}: pixbuf: #{@ec_app.
+		#	pixbuf || 'nil'}; in_progr: #{@ec_app.in_progr}:#{
+		#	@ec_app.in_progr.locked? ? '' : 'not '}locked"
+		unless @ec_app.pixbuf && @ec_app.in_progr.try_lock
+			#$PDbgLog.sig_return
+			raise PGuiObj::CancelCall
+		end
+		impl_meth.disable
+		@ec_app.drw_area_in_procs = true
+		EcImgObjMethEndCallObserver.observe(impl_meth, @ec_app)
+		#$PDbgLog.sig_return
+	end
+end
+
+class EcImgObjMethCallObserver
+	attr_reader :ec_app
+	
+	args = []
+	ExtractCurvesApp::MARK_WAYS.each_with_index{ |way,i|
+		args << way.cap_first; args << i }
+	args << 'None'; args << ExtractCurvesApp::MARK_WAYS.length
+	@@markings_enum = PGuiObj::Enum.new(*args)
+	
+	def self.observe(meth, ec_app)
+		#$PDbgLog.sig_call(self)
+		unless meth.extract_curves_observed
+		  #$PDbgLog.puts_msg "Observing #{meth.pguiobj_name.inspect} (#{
+		  #  meth.object_id.mem_hex})."
+		  meth.pguiobj_post_call_flag.add_observer(self.new(ec_app))
+		  EcImgObjMethStartCallObserver.observe(meth, ec_app)
+		  meth.extract_curves_observed = true
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def initialize(ec_app)
+		@ec_app = ec_app
+	end
+	
+	def procs_obj(obj, impl_obj, path)
+		#$PDbgLog.sig_call(self)
+		ecp = obj.extract_curves_processed = 0 unless
+			(ecp = obj.extract_curves_processed)
+		if (ecp & 0b10) != 0
+			#$PDbgLog.sig_return
+			return
+		end
+		obj.extract_curves_processed |= 0b10
+		#$PDbgLog.puts_msg "obj: #{obj}, impl_obj: #{impl_obj}, path=#{
+		#	path.inspect}"
+		unless (cfg=@ec_app.ec_path_cfg[path])
+			cfg = @ec_app.ec_path_cfg[path] =
+				ExtractCurvesApp::ImgObjMethInfo.new(nil, [])
+		end
+		obj.extract_curves_path = path
+		obj.pguiobj_methods.each { |child|
+			EcImgObjMethCallObserver.observe(child, @ec_app)
+			c_cfg = @ec_app.ec_path_cfg[c_path = path + '/' +
+				child.pguiobj_name]
+			if c_cfg
+			  child.pguiobj_args.each_with_index { |arg, arg_i|
+				arg.pguiobj_default = c_cfg.arg_deflts.at(arg_i)
+				arg.pguiobj_config.gtk_tooltips =
+					@ec_app.objs_ttips
+				arg.pguiobj_value_changed_flag.add_observer(
+				  EcImgObjArgObserver.new(@ec_app,arg_i,c_path))
+			  }
+			end
+		}
+		impl_obj.pguiobj_config.gtk_tooltips = @ec_app.objs_ttips
+		obj.pguiobj_info_str_asm = PGuiObj::ObjInfoStrAssembler.new(
+			impl_obj) unless obj.pguiobj_info_str_asm
+		# Mark method:
+		meth = impl_obj.pguiobj_add_method(PGuiObj::PMethod.new(
+		  proc { |way| @ec_app.img_obj_mark(impl_obj, way) },
+		  [arg=PGuiObj::Argument.new(PGuiObj::Enum, @@markings_enum,nil,
+			way=(cfg.mark || ExtractCurvesApp::MARK_WAYS.length),
+			'marking')],'mark', nil,OpenStruct.new('no_res'=>true,
+			  'no_show_title'=>true)))
+		arg.pguiobj_value_changed_flag.add_observer(
+			EcImgObjMarkArgObserver.new(@ec_app, meth, path))
+		obj.extract_curves_mark = ExtractCurvesApp::MARK_WAYS.length
+		obj.pguiobj_post_destroy_flag.add_observer(
+			EcObjDeathObserver.new(@ec_app))
+		EcImgObjChangeObserver.observe(impl_obj, @ec_app).
+			update(impl_obj, [])
+		meth.call
+		# Save method:
+		meth = impl_obj.pguiobj_add_method(PGuiObj::PMethod.new(
+		  proc { PPix::ImageObject.save_objs(@ec_app.pixbuf.
+		  	picture_width, @ec_app.pixbuf.picture_height, [obj]) },
+		  [], 'save', nil, OpenStruct.new('no_res'=>true,
+		  'icon'=>Gtk::Stock::SAVE)))
+		if obj.kind_of?(PGuiObj::ObjCollection) ||
+		obj.class <= PGuiObj::MObjCollection
+		  impl_obj.pguiobj_each_key_value { |k, vlu|
+			self.procs_obj(vlu.pguiobj_guiobj, vlu,
+				path+'/'+k.to_s)
+		  }
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def update(obj, meth, res, impl_res)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "#{meth.pguiobj_name}: meth obj. path: #{
+		#	obj.extract_curves_path}"
+		#$PDbgLog.puts_msg "meth: #{meth}; obj: #{impl_res}(#{res})"
+		if res
+		  path = res.extract_curves_path = obj.extract_curves_path +
+			'/' + meth.pguiobj_name
+		  #$PDbgLog.puts_msg "path=#{path.inspect}"
+		  self.procs_obj(res, impl_res, path)
+		end
+		#$PDbgLog.sig_return
+	end
+end
+
+class ExtractCurvesApp
+	attr_reader :ec_path_cfg, :ec_mark_add_pixels, :pixbuf,
+		:extract_curves_path, :objs_ttips, :arg_set_auto, :in_progr,
+		:pguiobj_name
+	
+	ImgObjMethInfo = Struct.new('ExtractCurvesApp_ImgObjMethInfo',
+		:mark, :arg_deflts)
+	
+	def initialize
+		@job = nil
+		@in_progr = Mutex.new
+		@pixbuf = nil
+		@pixbuf_backing = @pixbuf_highlighted = @pixbuf_blinking = nil
+		@pixbuf_highlighted_objs = ObjIdSet.new
+		@pixbuf_blinking_objs = ObjIdSet.new
+		@pixbuf_traced_objs = ObjIdSetWithArr.new
+		@pixbuf_traced_obj_i = @pixbuf_traced_pix_i = 0
+		@blink_area = @blink_area_rect = nil
+		@drw_area_in_procs = false
+		@arg_set_auto = false
+		@ec_path_cfg = {'/detect blob' => ImgObjMethInfo.new(1, []),
+				'/load blob ...'=>ImgObjMethInfo.new(1, [])}
+		@mark_meths=MARK_WAYS.collect{|w| self.method('impl_obj_'+w)} <<
+			proc {|*args|}
+		@unmark_meths=MARK_WAYS.collect{|w|self.method('impl_obj_un'+w)
+			} << proc {|*args|}
+		@ec_mark_add_pixels = MARK_WAYS.collect { |w| self.method(
+			'pixels_'+w) } << proc {|*args|}
+		@extract_curves_path = ''
+		@pguiobj_name = 'EcApp'
+		super(Gtk::Window::TOPLEVEL)
+		self.set_title("Extract Curves")
+		begin
+		  icon = Gdk::Pixbuf.new(PGtk.find_icon_file(
+		   'pav/icons/extract_curves/extract_curves-icon-rgb.ppm').to_s)
+		  self.set_icon(icon)
+		rescue IOError, Gdk::PixbufError
+		  warn self.class.name + ".initialize: Error: Failed to load " +
+		  	"icon:\n" + $!.class.name + ": #{$!}\n\tfrom " +
+			$!.backtrace.join("\n\tfrom ")
+		end
+		@trace_mark = Gdk::Pixbuf.new(PGtk.find_icon_file(
+			'pav/icons/extract_curves/trace_mark.xpm'))
+		quit_cb = proc { self.destroy; true }
+		signal_connect('delete_event', &quit_cb)
+		set_default_size(600, 600)
+		
+		# Root container:
+		table = Gtk::Table.new(1, 4, false)
+		add(table)
+		
+		# Menubar:
+		accel_group = Gtk::AccelGroup.new
+		add_accel_group(accel_group)
+		open_cb = self.method("open_cb").to_proc
+		load_blob_cb = self.method('load_blob_cb').to_proc
+		sc_mapf = proc { |impl_obj| impl_obj.pguiobj_guiobj }
+		save_cb = proc { |*args|
+			objs = @pixbuf_highlighted_objs.collect(&sc_mapf) +
+				@pixbuf_blinking_objs.collect(&sc_mapf) +
+				@pixbuf_traced_objs.collect(&sc_mapf)
+			return if objs.empty?
+			PPix::ImageObject.save_objs(@pixbuf.picture_width,
+			  @pixbuf.picture_height, objs)
+		}
+		cancel_cb = proc { |*args| Thread.kill(@job) if @job }
+		#ctxt_cb = proc { |*args| self.img_pop_context_menu  }
+		zoom_100_cb = proc { |widget, event|
+			win, x, y, state = @drw_area.window.pointer
+			width = @drw_area.allocation.width
+			height = @drw_area.allocation.height
+			if x >= 0 && x < width && y >= 0 && y < height
+				@scrl_win.window.cursor = Gdk::Cursor.new(
+					Gdk::Cursor::TARGET)
+			end
+			self.drw_area_in_procs = true
+			@spinbtn_x.value = 1
+			@spinbtn_y.value = 1
+			self.drw_area_in_procs = false
+			@scrl_win.window.cursor = nil }
+		zoom_fit_cb = proc { |widget, event|
+		  if @pixbuf
+			win, x, y, state = @drw_area.window.pointer
+			width = @drw_area.allocation.width
+			height = @drw_area.allocation.height
+			if x >= 0 && x < width && y >= 0 && y < height
+				@scrl_win.window.cursor = Gdk::Cursor.new(
+					Gdk::Cursor::TARGET)
+			end
+			self.drw_area_in_procs = true
+			k = [Float(@scrl_win.allocation.width-10)/@pixbuf.width,
+			  Float(@scrl_win.allocation.height-10)/@pixbuf.height].
+			  min
+			@spinbtn_x.value = k
+			@spinbtn_y.value = k
+			self.drw_area_in_procs = false
+			@scrl_win.window.cursor = nil
+		  end
+		}
+		zoom_in_cb = proc { |widget, event|
+			win, x, y, state = @drw_area.window.pointer
+			width = @drw_area.allocation.width
+			height = @drw_area.allocation.height
+			if x >= 0 && x < width && y >= 0 && y < height
+				@scrl_win.window.cursor = Gdk::Cursor.new(
+					Gdk::Cursor::TARGET)
+			end
+			self.drw_area_in_procs = true
+			@spinbtn_x.value = @kx*1.5
+			@spinbtn_y.value = @ky*1.5
+			self.drw_area_in_procs = false
+			@scrl_win.window.cursor = nil }
+		zoom_out_cb = proc { |wgt, ev|
+			win, x, y, state = @drw_area.window.pointer
+			width = @drw_area.allocation.width
+			height = @drw_area.allocation.height
+			if x >= 0 && x < width && y >= 0 && y < height
+				@scrl_win.window.cursor = Gdk::Cursor.new(
+					Gdk::Cursor::TARGET)
+			end
+			self.drw_area_in_procs = true
+			@spinbtn_x.value = @kx/1.5
+			@spinbtn_y.value = @ky/1.5
+			self.drw_area_in_procs = false
+			@scrl_win.window.cursor = nil }
+		unmark_all_cb = proc { |wgt, ev|
+			@arg_set_auto = true
+			self.img_mark_all(MARK_WAYS.length)
+			@arg_set_auto = false
+		}
+		toolbar_visibility_cb = proc { |data, wgt|
+			if wgt.active? then @toolbar.show else @toolbar.hide end
+			true
+		}
+		item_factory = Gtk::ItemFactory.new(
+			Gtk::ItemFactory::TYPE_MENU_BAR, '<main>', accel_group)
+		item_factory.create_items([
+			["/_File"],
+			["/File/_Open ...",  "<StockItem>", "<control>O",
+			 Gtk::Stock::OPEN, open_cb],
+			["/File/_Load blob ...", "<StockItem>", "<control>L",
+			 Gtk::Stock::OPEN, load_blob_cb],
+			["/File/_Save ...",  "<StockItem>", "<control>S",
+			 Gtk::Stock::SAVE, save_cb],
+			["/File/sep1",   "<Separator>", nil, nil],
+			["/File/_Quit",  "<StockItem>", "<control>Q",
+			 Gtk::Stock::QUIT, quit_cb],
+			#["/_Edit"],
+			#["/Edit/Cont_ext menu ...", "<Item>", "<control>E",
+			# nil, ctxt_cb],
+			["/_View"],
+			["/View/Center"],
+			["/View/Center/_Selection", "<StockItem>", "c",
+			 Gtk::Stock::FIND,
+			 self.method('center_selection_cb').to_proc],
+			["/View/Center/_Highlighted","<StockItem>","<control>H",
+			 Gtk::Stock::FIND,self.method('center_objs_cb').to_proc,
+			 @pixbuf_highlighted_objs],
+			["/View/Center/_Blinking", "<StockItem>", "<control>B",
+			 Gtk::Stock::FIND,self.method('center_objs_cb').to_proc,
+			 @pixbuf_blinking_objs],
+			["/View/Center/_Traced", "<StockItem>", "<control>T",
+			 Gtk::Stock::FIND,self.method('center_objs_cb').to_proc,
+			 @pixbuf_traced_objs],
+			["/View/Zoom"],
+			["/View/Zoom/_100", "<StockItem>", "equal",
+			 Gtk::Stock::ZOOM_100, zoom_100_cb],
+			["/View/Zoom/_Fit", "<StockItem>", "asterisk",
+			 Gtk::Stock::ZOOM_FIT, zoom_fit_cb],
+			["/View/Zoom/_In", "<StockItem>", "plus",
+			 Gtk::Stock::ZOOM_IN, zoom_in_cb],
+			["/View/Zoom/_Out", "<StockItem>", "minus",
+			 Gtk::Stock::ZOOM_OUT, zoom_out_cb],
+			["/View/Unmark all", "<StockItem>", "<control>0",
+			 Gtk::Stock::CLEAR, unmark_all_cb],
+			["/View/sep1", "<Separator>", nil, nil],
+			["/View/_Toolbar", "<CheckItem>", nil, nil,
+			 toolbar_visibility_cb],
+			["/_Help"],
+			["/Help/_About",  "<StockItem>", nil, Gtk::Stock::ABOUT,
+			                   self.method("about_cb").to_proc],
+		])
+		table.attach(item_factory.get_widget('<main>'),
+			# X direction            # Y direction
+			0, 1,                    0, 1,
+			Gtk::EXPAND | Gtk::FILL, 0,
+			0,                       0)
+		
+		# Toolbars:
+		@toolbar = PGtk::Toolbar.new
+		item_factory.get_widget('<main>/View/Toolbar').activate
+		@toolbar.append(Gtk::Stock::OPEN,
+			"Open image file for curve recognition (^O)", &open_cb)
+		@toolbar.append(Gtk::Stock::SAVE,
+		  "Save all marked (highlighted, blinking and traced) image " +
+			"objects to a file (^S)",
+		  &save_cb)
+		#toolbar.append(Gtk::Stock::CANCEL,
+		#  "Cancel the last started operation (^C)", &cancel_cb)
+		@toolbar.append_space
+		@toolbar.append(Gtk::Stock::QUIT, "Quit program (^Q)", &quit_cb)
+		table.attach(@toolbar,
+			# X direction            # Y direction
+			0, 1,                    1, 2,
+			Gtk::EXPAND | Gtk::FILL, 0,
+			0,                       0)
+		
+		# Objects vbox:
+		table.attach(hpaned=Gtk::HPaned.new,
+			# X direction            # Y direction
+			0, 1,                    2, 3,
+			Gtk::EXPAND | Gtk::FILL, Gtk::EXPAND | Gtk::FILL,
+			0,                       0)
+		hpaned.pack1(@scrl_win = Gtk::ScrolledWindow.new, false, true)
+		@scrl_win.set_policy(Gtk::POLICY_AUTOMATIC,
+			Gtk::POLICY_AUTOMATIC)
+		@scrl_win.add_with_viewport(@objs_vbox=Gtk::VBox.new(false, 0))
+		@scrl_win.set_size_request(200, -1)
+		@objs_ttips = Gtk::Tooltips.new
+		
+		# Trace delay:
+		@trace_delay_arg = PGtk::GuiObj::Argument.create(
+			PGuiObj::Argument.new(Integer, OpenStruct.new('min'=>10,
+			  'max'=>84000), nil, 100, 'trace delay',
+			  "Time in miliseconds spent by the tracing pixel at a given pixel position before moving to the next one when tracing an image object.",
+			OpenStruct.new('gtk_tooltips'=>@objs_ttips)))
+		@trace_delay_arg.pguiobj_value_changed_flag.add_observer(
+			PGuiObj::ObserverCallMeth.new(proc{
+			  self.pix_trace_tm_out = @trace_delay_arg.value}))
+		@objs_vbox.pack_start(@trace_delay_arg, false, false, 0)
+		
+		# Detect blob:	
+		@detect_meth = PGuiObj::PMethod.new(self.method(:detect_blob), [
+		  PGuiObj::Argument.new(PGuiObj::Enum,
+			PGuiObj::Enum.new('8', 8, '4', 4), nil, nil,
+			'contour geometry'),
+		  PGuiObj::Argument.new(PGuiObj::Bool, nil, nil, true,
+			'external contours'),
+		  PGuiObj::Argument.new(Integer, OpenStruct.new('min'=>0), nil,
+		    0, 'min. outer loop length',
+		    "Drop loops from a blob's outer contour carpet of length less than this one.",
+		    OpenStruct.new('page_step'=>100,
+			'gtk_tooltips'=>@objs_ttips)),
+		  PGuiObj::Argument.new(PPix::Blob::MkGetNeighbsProcMeth, nil,
+			nil, nil, 'strategy')], 'detect blob', nil,
+		  OpenStruct.new('icon'=>Gtk::Stock::FIND))
+		@objs_vbox.pack_start(@detect_meth=PGtk::GuiObj::PMethod.create(
+			@detect_meth, self), false, false, 0)
+		EcImgObjMethCallObserver.observe(@detect_meth, self)
+		# Load blob:
+		@load_meth = PGuiObj::PMethod.new(proc{ @pixbuf.gui_open_blob },
+		  [], 'load blob ...', nil, OpenStruct.new(
+		  'icon'=>Gtk::Stock::OPEN))
+		@objs_vbox.pack_start(@load_meth=PGtk::GuiObj::PMethod.create(
+			@load_meth, self), false, false, 0)
+		EcImgObjMethCallObserver.observe(@load_meth, self)
+		
+		# Image display frame:
+		hpaned.pack2(@scrl_win = Gtk::ScrolledWindow.new, true, true)
+		@scrl_win.set_policy(Gtk::POLICY_AUTOMATIC,
+			Gtk::POLICY_AUTOMATIC)
+		@scrl_win.shadow_type = Gtk::SHADOW_IN
+		self.set_default_size(200, 200)
+		@drw_area = Gtk::DrawingArea.new
+		@scrl_win.add_with_viewport(@drw_area)
+		@scrl_win.set_size_request(450, 450)
+		img_expose_cb = self.method("img_expose_cb").to_proc
+		img_motion_notify_cb=self.method("img_motion_notify_cb").to_proc
+		img_button_press_cb = self.method("img_button_press_cb").to_proc
+		@drw_area.signal_connect('expose_event', &img_expose_cb)
+		@drw_area.signal_connect('motion_notify_event',
+			&img_motion_notify_cb)
+		@drw_area.signal_connect('button_press_event',
+			&img_button_press_cb)
+		@drw_area.events |=	Gdk::Event::LEAVE_NOTIFY_MASK |
+					Gdk::Event::BUTTON_PRESS_MASK |
+					Gdk::Event::POINTER_MOTION_MASK |
+					Gdk::Event::POINTER_MOTION_HINT_MASK
+		@scrl_win.hadjustment.signal_connect('value_changed',
+			&img_motion_notify_cb)
+		@scrl_win.vadjustment.signal_connect('value_changed',
+			&img_motion_notify_cb)
+		
+		# x, y, kx, ky, statusbar:
+		bottom_box = Gtk::VBox.new(false, 3)
+		@progr_bar = Gtk::ProgressBar.new
+		@progr_label = Gtk::Label.new
+		@progr_bar_box = Gtk::HBox.new(false, 0)
+		@progr_bar_box.pack_start(@progr_bar)
+		@progr_bar_box.pack_start(@progr_label, false, false)
+		bottom_box.pack_start(@progr_bar_box)
+		hbox = Gtk::HBox.new(false, 3)
+		bottom_box.pack_start(hbox)
+		table.attach(bottom_box,
+			# X direction            # Y direction
+			0, 1,                    3, 4,
+			Gtk::EXPAND | Gtk::FILL, 0,
+			0,                       0)
+		
+		label = Gtk::Label.new("x="); label.set_alignment(1, 0.5)
+		hbox.pack_start(label, false, false)
+		@label_x = Gtk::Label.new; @label_x.set_alignment(0,0.5)
+		hbox.pack_start(@label_x,false,false)
+		label = Gtk::Label.new("y="); label.set_alignment(1, 0.5)
+		hbox.pack_start(label, false, false)
+		@label_y = Gtk::Label.new; @label_y.set_alignment(0,0.5)
+		hbox.pack_start(@label_y, false, false)
+		
+		# kx:
+		label = Gtk::Label.new("kx=")
+		label.set_alignment(1, 0.5)
+		hbox.pack_start(label, false, false)
+		adj = Gtk::Adjustment.new(1.0, 1.0e-10, 1000.0, 1.0, 5.0, 1.0)
+		@spinbtn_x = Gtk::SpinButton.new(adj, 0, 3)
+		adj.signal_connect("value_changed") { |wgt, ev|
+			self.kx=@spinbtn_x.value }
+		hbox.pack_start(@spinbtn_x, false, false)
+		#@scrl_win.hadjustment.step_increment =
+		@kx = 1
+		
+		# ky:
+		label = Gtk::Label.new("ky=")
+		label.set_alignment(1, 0.5)
+		hbox.pack_start(label, false, false)
+		adj = Gtk::Adjustment.new(1.0, 1.0e-10, 1000.0, 1.0, 5.0, 1.0)
+		@spinbtn_y = Gtk::SpinButton.new(adj, 0, 3)
+		adj.signal_connect("value_changed") { |wgt, ev|
+			self.ky=@spinbtn_y.value }
+		hbox.pack_start(@spinbtn_y, false, false)
+		#@scrl_win.vadjustment.step_increment =
+		@ky = 1
+		
+		# RGB/HSV:
+		show_clr_scheme_cb = proc { |data, wgt|
+			if Gtk::ItemFactory.path_from_widget(wgt).ends_with(
+			"RGB:")
+				@clr_show_scheme = "rgb"
+			else
+				@clr_show_scheme = "hsv"
+			end
+		}
+		optmenu = Gtk::OptionMenu.new
+		item_factory = Gtk::ItemFactory.new(Gtk::ItemFactory::TYPE_MENU,
+			'<clr_scheme>', accel_group)
+		item_factory.create_items([
+			["/RGB:","<Item>","<control>R",nil,show_clr_scheme_cb],
+			["/HSV:","<Item>","<control>H",nil,show_clr_scheme_cb],
+		])
+		optmenu.menu = item_factory.get_widget('<clr_scheme>')
+		hbox.pack_start(optmenu, false, false)
+		@label_clr = Gtk::Label.new
+		@label_clr.width_chars = 11
+		@label_clr.set_alignment(0, 0.5)
+		hbox.pack_start(@label_clr,false,false)
+		
+		# Statusbar:
+		@statusbar = Gtk::Statusbar.new
+		hbox.pack_start(@statusbar, true, true)
+		
+		# Timeout:
+		@prev_traced_x = @prev_traced_y = 0
+		@pix_trace_proc = proc {
+			tx = @prev_traced_x*@kx; ty = @prev_traced_y*@ky
+			if @kx >= @trace_mark.width
+				tw = @kx.ceil
+			else
+				tw = @trace_mark.width
+				tx = tx + @kx/2.0 - tw/2.0 
+			end
+			if @ky >= @trace_mark.height
+				th = @ky.ceil
+			else
+				th = @trace_mark.height
+				ty = ty + @ky/2.0 - th/2.0 
+			end
+			@drw_area.window.invalidate(Gdk::Rectangle.new(tx, ty,
+				tw+1, th+1), false)
+		  	if (obj = @pixbuf_traced_objs[@pixbuf_traced_obj_i])
+				if (@pixbuf_traced_pix_i+=1) >= obj.length
+					if (@pixbuf_traced_obj_i += 1) >=
+					@pixbuf_traced_objs.length
+						@pixbuf_traced_obj_i = 0
+					end
+					@pixbuf_traced_pix_i = 0
+				end
+			else
+				@pixbuf_traced_obj_i = 0
+				@pixbuf_traced_pix_i = 0
+			end
+			if (obj = @pixbuf_traced_objs[@pixbuf_traced_obj_i]) &&
+			(obj=obj.pguiobj_guiobj) &&
+			(pix=obj[@pixbuf_traced_pix_i])
+				@prev_traced_x = pix.x + @pixbuf.border_width
+				@prev_traced_y = pix.y + @pixbuf.border_width
+				tx = @prev_traced_x*@kx; ty = @prev_traced_y*@ky
+				if @kx >= @trace_mark.width
+					tw = @kx.ceil
+				else
+					tw = @trace_mark.width
+					tx = tx + @kx/2.0 - tw/2.0 
+				end
+				if @ky >= @trace_mark.height
+					th = @ky.ceil
+				else
+					th = @trace_mark.height
+					ty = ty + @ky/2.0 - th/2.0 
+				end
+				@drw_area.window.invalidate(Gdk::Rectangle.new(
+					tx, ty, tw+1, th+1), false)
+			end
+			true
+		}
+		self.add_timeouts
+		
+		signal_connect('destroy'){ self.remove_timeouts; Gtk.main_quit }
+		
+		self.show_all
+		Gtk.main_iteration
+		@progr_bar_box.remove(@progr_label)
+		@progr_bar_box.remove(@progr_bar)
+		Gtk.main_iteration
+		if $VERBOSE || $DEBUG
+			tee_to = $stdout
+		else
+			tee_to = nil
+		end
+		#$PDbgLog.outp = StatusbarIO.new($PDbgLog, @statusbar, tee_to)
+		$PDbgLog.progr_class = ECLogProgrBar
+		$PDbgLog.progr_init_args = [@progr_bar, @progr_label,
+			@progr_bar_box]
+	end
+	
+	def add_timeouts
+	  #$PDbgLog.sig_call(self)
+	  #$PDbgLog.puts_msg caller(1).join("\t\n")
+	  unless @blink_timeout_id
+		t = Gdk::Screen.default.get_setting("gtk-cursor-blink-time")
+		@blink_timeout_id = Gtk.timeout_add(t ? t.to_i : 1000) {
+			#return true if @job && @job.alive?
+			if @pixbuf_blinking
+				if @pixbuf_backing.equal?(@pixbuf_blinking)
+					@pixbuf_backing = @pixbuf_highlighted
+				else
+					@pixbuf_backing = @pixbuf_blinking
+				end
+				@drw_area.window.invalidate(@blink_area_rect,
+					false) if @blink_area_rect
+			end
+			true
+		}
+	  end
+	  unless @pix_trace_timeout_id
+		@pix_trace_timeout_id = Gtk.timeout_add(@trace_delay_arg.value,
+			&@pix_trace_proc)
+	  end
+	  #$PDbgLog.sig_return("Done.")
+	end
+	
+	def remove_timeouts
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg caller(1).join("\t\n")
+		if @blink_timeout_id
+			Gtk.timeout_remove(@blink_timeout_id)
+			@blink_timeout_id = nil
+		end
+		if @pix_trace_timeout_id
+			Gtk.timeout_remove(@pix_trace_timeout_id)
+			@pix_trace_timeout_id = nil
+		end
+		#$PDbgLog.sig_return("Done.")
+	end
+	
+	def drw_area_in_procs=(val)
+		if val
+			return if @drw_area_in_procs
+			@drw_area_in_procs = true
+			@scrl_win.freeze_child_notify
+		else
+			return unless @drw_area_in_procs
+			@drw_area_in_procs = false
+			@scrl_win.thaw_child_notify
+			@drw_area.queue_draw
+		end
+	end
+	
+	def pixbuf=(val)
+		@pixbuf_backing = @pixbuf_highlighted = @pixbuf_blinking = nil
+		@pixbuf = val
+		if @pixbuf.bits_per_sample != 8
+			raise NotImplementError,
+			  "pixbuf with #{@pixbuf.bits_per_sample} bits/sample"
+		end
+		if @pixbuf.n_channels == 3
+			@pixbuf_drw_meth = Gdk::RGB.method("draw_rgb_image")
+		elsif @pixbuf.n_channels == 4
+			@pixbuf_drw_meth = Gdk::RGB.method("draw_rgb_32_image")
+		else
+			raise NotImplementError,
+				"pixbuf with #{@pixbuf.n_channels} channels"
+		end
+		@pixbuf = @pixbuf.add_border(1)
+		@pixbuf_blinking = nil
+		@pixbuf_backing = @pixbuf_highlighted = @pixbuf.dup
+		@blob = nil
+		@blink_area_rect = nil
+		@pixbuf_highlighted_objs.clear
+		@pixbuf_blinking_objs.clear
+		@pixbuf_traced_objs.clear
+		@drw_area.set_size_request(@pixbuf.width*@kx,@pixbuf.height*@ky)
+		@scrl_win.queue_draw
+		@label_x.width_chars = @pixbuf.width.to_s.length
+		@label_y.width_chars = @pixbuf.height.to_s.length
+		@detect_meth.pguiobj_clear_children
+		@load_meth.pguiobj_clear_children
+	end
+	
+	def kx=(val)
+		return if val == @kx
+		#@scrl_win.hadjustment.step_increment =
+		dx = val - @kx
+		@kx = val
+		return unless @pixbuf
+		if @blink_area
+			@blink_area_rect = Gdk::Rectangle.new(
+				(@blink_area.x + @pixbuf.border_width)*@kx,
+				(@blink_area.y + @pixbuf.border_width)*@ky,
+				(@blink_area.width*@kx).ceil + 1,
+				(@blink_area.height*@ky).ceil + 1)
+		end
+		win, x, y, state = *@drw_area.window.pointer
+		@drw_area.set_size_request(@pixbuf.width*@kx,@pixbuf.height*@ky)
+		viewport = @scrl_win.children[0]
+		win, vx, vy, state = viewport.window.pointer
+		width = viewport.allocation.width
+		height = viewport.allocation.height
+		if @drw_area.allocation.width > width
+		  if vx >= 0 && vx < width && vy >= 0 && vy < height
+		  	viewport.hadjustment.value += x*dx / (@kx-dx)
+		  else
+		  	k_x = viewport.hadjustment.value + width/2
+		  	viewport.hadjustment.value += k_x*dx / (@kx-dx)
+		  end
+		end
+		@scrl_win.queue_draw
+	end
+	
+	def ky=(val)
+		return if val == @ky
+		#@scrl_win.vadjustment.step_increment =
+		dy = val - @ky
+		@ky = val
+		return unless @pixbuf
+		if @blink_area
+			@blink_area_rect = Gdk::Rectangle.new(
+				(@blink_area.x + @pixbuf.border_width)*@kx,
+				(@blink_area.y + @pixbuf.border_width)*@ky,
+				(@blink_area.width*@kx).ceil + 1,
+				(@blink_area.height*@ky).ceil + 1)
+		end
+		win, x, y, state = *@drw_area.window.pointer
+		@drw_area.set_size_request(@pixbuf.width*@kx,@pixbuf.height*@ky)
+		viewport = @scrl_win.children[0]
+		win, vx, vy, state = viewport.window.pointer
+		width = viewport.allocation.width
+		height = viewport.allocation.height
+		if @drw_area.allocation.height > height
+		  if vx >= 0 && vx < width && vy >= 0 && vy < height
+		  	viewport.vadjustment.value += y*dy / (@ky-dy)
+		  else
+		  	k_y = viewport.vadjustment.value + height/2
+		  	viewport.vadjustment.value += k_y*dy / (@ky-dy)
+		  end
+		end
+		@scrl_win.queue_draw
+	end
+	
+	def pix_trace_tm_out=(val)
+		return if val == @pix_trace_tm_out
+		@pix_trace_tm_out = val
+		if @pix_trace_timeout_id
+			Gtk.timeout_remove(@pix_trace_timeout_id)
+			@pix_trace_timeout_id = Gtk.timeout_add(
+				@pix_trace_tm_out, &@pix_trace_proc)
+		end
+	end
+	
+	def center_selection_cb(*args)
+		min_x = min_y = 1.0/0.0
+		max_x = max_y = 0
+		pr = proc { |obj|
+			min_x = obj.img_obj_min_ax.floor if
+				obj.img_obj_min_ax.floor < min_x
+			max_x = obj.img_obj_max_ax.ceil if
+				obj.img_obj_max_ax.ceil > max_x
+			min_y = obj.img_obj_min_ay.floor if
+				obj.img_obj_min_ay.floor < min_y
+			max_y = obj.img_obj_max_ay.ceil if
+				obj.img_obj_max_ay.ceil > max_y
+		}
+		@pixbuf_highlighted_objs.each(&pr)
+		@pixbuf_blinking_objs.each(&pr)
+		@pixbuf_traced_objs.each(&pr)
+		c_x = (min_x + max_x) * @kx / 2
+		c_y = (min_y + max_y) * @ky / 2
+		alloc = @scrl_win.children[0].allocation
+		tmp = c_x - alloc.width/2
+		@scrl_win.hadjustment.value = tmp > 0 ? tmp : 0
+		tmp = c_y - alloc.height/2
+		@scrl_win.vadjustment.value = tmp > 0 ? tmp : 0
+	end
+	
+	def center_objs_cb(objs, widget)
+		min_x = min_y = 1.0/0.0
+		max_x = max_y = 0
+		objs.each { |obj|
+			min_x = obj.img_obj_min_ax.floor if
+				obj.img_obj_min_ax.floor < min_x
+			max_x = obj.img_obj_max_ax.ceil if
+				obj.img_obj_max_ax.ceil > max_x
+			min_y = obj.img_obj_min_ay.floor if
+				obj.img_obj_min_ay.floor < min_y
+			max_y = obj.img_obj_max_ay.ceil if
+				obj.img_obj_max_ay.ceil > max_y
+		}
+		c_x = (min_x + max_x) * @kx / 2
+		c_y = (min_y + max_y) * @ky / 2
+		alloc = @scrl_win.children[0].allocation
+		tmp = c_x - alloc.width/2
+		@scrl_win.hadjustment.value = tmp > 0 ? tmp : 0
+		tmp = c_y - alloc.height/2
+		@scrl_win.vadjustment.value = tmp > 0 ? tmp : 0
+	end
+	
+	def open_imagef(fpath)
+		begin
+			self.pixbuf = PPix::Pixbuf.new(fpath)
+			dir, name = *File.split(fpath)
+			self.title = "#{name} #{@pixbuf.picture_width}x#{
+			  @pixbuf.picture_height} (#{dir}) -- Extract Curves"
+		rescue IOError, Gdk::PixbufError
+			PGtk.show_exc_dialog
+		end
+	end
+	
+	def load_blob_cb(*args)
+		@load_meth.call
+	end
+	
+	def open_cb(*args)
+		return false unless @in_progr.try_lock
+		dialog = Gtk::FileChooserDialog.new(
+			"Open raster image file for curve extraction", nil,
+			Gtk::FileChooser::ACTION_OPEN, "gnome-vfs",
+			[Gtk::Stock::OPEN, Gtk::Dialog::RESPONSE_ACCEPT],
+			[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_CANCEL])
+		
+		# Preview:
+		preview_w = preview_h = 150
+		dialog.set_preview_widget(preview_img=Gtk::Image.new)
+		dialog.signal_connect('update-preview') { |wgt, data|
+		  begin
+			if fpath = wgt.preview_filename
+			  preview_img.pixbuf=Gdk::Pixbuf.new(fpath, preview_w,
+				preview_h)
+			  dialog.preview_widget_active = true
+			else
+			  dialog.preview_widget_active = false
+			end
+		  rescue Gdk::PixbufError, GLib::FileError
+			dialog.preview_widget_active = false
+		  end
+		}
+		
+		# Filters:
+		filter_any = Gtk::FileFilter.new
+		filter_any.name = "Recognized Images"
+		filter_any.add_pixbuf_formats
+		dialog.add_filter(filter_any)
+		filter = Gtk::FileFilter.new; filter.name = "All files"
+		filter.add_pattern("*")
+		dialog.add_filter(filter)
+		PPix::Pixbuf.formats.each { |fmt| filter = Gtk::FileFilter.new
+			filter.name = "#{fmt.description} (.#{fmt.name})"
+			filter.add_pattern("*.#{fmt.name}")
+			if fmt.name == 'jpeg'
+				filter.add_pattern('*.jpg')
+			end
+			dialog.add_filter(filter)
+		}
+		
+		dialog.add_shortcut_folder("/tmp") if File.directory?("/tmp")
+		fpath = nil
+		resp = dialog.run
+		fpath = dialog.filename
+		dialog.destroy
+		i = -1
+		Gtk.main_iteration_do(false) while (i += 1) < 10 &&
+			Gtk.events_pending?
+		if resp != Gtk::Dialog::RESPONSE_ACCEPT || !fpath
+			@in_progr.unlock
+			return
+		end
+		begin
+			self.open_imagef(fpath)
+		ensure
+			@in_progr.unlock
+		end
+	end
+	
+	def arr_del_obj(arr, which)
+		#$PDbgLog.sig_call(self)
+		obj_i = nil
+		arr.each_with_index { |obj, idx|
+			#$PDbgLog.print_msg " obj#{idx}:%x" % obj.object_id
+			if obj.equal?(which)
+				obj_i = idx
+				break
+			end
+		}
+		if obj_i
+			#$PDbgLog.print_msg "; obj_i=#{obj_i}"
+			arr[obj_i,1] = nil
+		else
+			warn "#{self.class.name}.arr_del_obj: Image object "+
+				"to remove not found!"
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def xy_toggle_buf(buf, x, y, pix_done, rowstride, pix_length)
+		unless pix_done[k=[y, x]]
+			  s = @pixbuf.ofs0 + y*rowstride + x*pix_length
+			  s.upto(s + pix_length - 1) { |i|
+				buf[i] ^= 0xff
+			  }
+			  pix_done[k] = true
+		end
+	end
+	
+	def xy_toggle_2bufs(buf1, buf2, x, y, pix_done, rowstride, pix_length)
+		unless pix_done[k=[y, x]]
+			  s = @pixbuf.ofs0 + y*rowstride + x*pix_length
+			  s.upto(s + pix_length - 1) { |i|
+				buf1[i] ^= 0xff
+				buf2[i] ^= 0xff
+			  }
+			  pix_done[k] = true
+		end
+	end
+	
+	def pixels_highlight_toggle(which)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg("#{which.length} pixel#{
+		#	which.length==1? "" : "s"}")
+		pix_done = {}
+		rowstride = @pixbuf.rowstride; pix_length = @pixbuf.pix_length
+		highl_pix = @pixbuf_highlighted.pixels
+		if @pixbuf_blinking
+			blinking_pix = @pixbuf_blinking.pixels
+			which.each { |pt| ax, ay = pt.ax, pt.ay
+				x1 = ax.floor; y1 = ay.floor
+				x2 = ax.ceil; y2 = ay.ceil
+				self.xy_toggle_2bufs(highl_pix, blinking_pix,
+					x1, y1, pix_done, rowstride, pix_length)
+				if x1 != x2
+				  if y1 != y2
+					self.xy_toggle_2bufs(highl_pix,
+					  blinking_pix, x2, y1, pix_done,
+					  rowstride, pix_length)
+					self.xy_toggle_2bufs(highl_pix,
+					  blinking_pix, x1, y2, pix_done,
+					  rowstride, pix_length)
+					self.xy_toggle_2bufs(highl_pix,
+					  blinking_pix, x2, y2, pix_done,
+					  rowstride, pix_length)
+				  else
+					self.xy_toggle_2bufs(highl_pix,
+					  blinking_pix, x2, y1, pix_done,
+					  rowstride, pix_length)
+				  end
+				elsif y1 != y2
+					self.xy_toggle_2bufs(highl_pix,
+					  blinking_pix, x1, y2, pix_done,
+					  rowstride, pix_length)
+				end
+			}
+		else
+			which.each { |pt| ax, ay = pt.ax, pt.ay
+				x1 = ax.floor; y1 = ay.floor
+				x2 = ax.ceil; y2 = ay.ceil
+				self.xy_toggle_buf(highl_pix, x1, y1, pix_done,
+					rowstride, pix_length)
+				if x1 != x2
+				  if y1 != y2
+					self.xy_toggle_buf(highl_pix, x2, y1,
+					  pix_done, rowstride, pix_length)
+					self.xy_toggle_buf(highl_pix, x1, y2,
+					  pix_done, rowstride, pix_length)
+					self.xy_toggle_buf(highl_pix, x2, y2,
+					  pix_done, rowstride, pix_length)
+				  else
+					self.xy_toggle_buf(highl_pix, x2, y1,
+					  pix_done, rowstride, pix_length)
+				  end
+				elsif y1 != y2
+					self.xy_toggle_buf(highl_pix, x1, y2,
+					  pix_done, rowstride, pix_length)
+				end
+			}
+		end
+		@drw_area.window.invalidate(Gdk::Rectangle.new(
+		 ((which.img_obj_min_ax.floor+@pixbuf.border_width)*@kx).floor,
+		 ((which.img_obj_min_ay.floor+@pixbuf.border_width)*@ky).floor,
+		 ((which.img_obj_max_ax.ceil+1-which.img_obj_min_x)*@kx).ceil+1,
+		 ((which.img_obj_max_ay.ceil+1-which.img_obj_min_y)*@ky).ceil+1
+		 ), false)
+		#$PDbgLog.sig_return
+	end
+	
+	def pixels_blink_toggle(which)
+		unless @pixbuf_blinking
+			@pixbuf_blinking = @pixbuf_highlighted.dup
+		end
+		pix_done = {}
+		rowstride = @pixbuf.rowstride; pix_length = @pixbuf.pix_length
+		blinking_pix = @pixbuf_blinking.pixels
+		which.each { |pt| ax, ay = pt.ax, pt.ay
+			x1 = ax.floor; y1 = ay.floor
+			x2 = ax.ceil; y2 = ay.ceil
+			self.xy_toggle_buf(blinking_pix, x1, y1, pix_done,
+				rowstride, pix_length)
+			if x1 != x2
+			  if y1 != y2
+				self.xy_toggle_buf(blinking_pix, x2, y1,
+				  pix_done, rowstride, pix_length)
+				self.xy_toggle_buf(blinking_pix, x1, y2,
+				  pix_done, rowstride, pix_length)
+				self.xy_toggle_buf(blinking_pix, x2, y2,
+				  pix_done, rowstride, pix_length)
+			  else
+				self.xy_toggle_buf(blinking_pix, x2, y1,
+				  pix_done, rowstride, pix_length)
+			  end
+			elsif y1 != y2
+				self.xy_toggle_buf(blinking_pix, x1, y2,
+				  pix_done, rowstride, pix_length)
+			end
+		}
+		@drw_area.window.invalidate(Gdk::Rectangle.new(
+			(which.img_obj_min_ax.floor+@pixbuf.border_width)*@kx,
+			(which.img_obj_min_ay.floor+@pixbuf.border_width)*@ky,
+		1+((which.img_obj_max_ax.ceil+1-which.img_obj_min_x)*@kx).ceil,
+		1+((which.img_obj_max_ay.ceil+1-which.img_obj_min_y)*@ky).ceil),
+			false)
+	end
+	
+	alias_method :pixels_highlight, :pixels_highlight_toggle
+	
+	def impl_obj_highlight(impl_obj)
+		self.pixels_highlight(impl_obj.pguiobj_guiobj)
+		@pixbuf_highlighted_objs.push(impl_obj)
+	end
+	
+	def impl_obj_unhighlight(impl_obj)
+		self.pixels_highlight_toggle(impl_obj.pguiobj_guiobj)
+		@pixbuf_highlighted_objs.pop_obj(impl_obj)
+	end
+	
+	def pixels_blink(which)
+		self.pixels_blink_toggle(which)
+		return if which.empty?
+		@blink_area = Gdk::Rectangle.new(
+			which.first.x, which.first.y, 0, 0) unless @blink_area
+		end_x = [@blink_area.x + @blink_area.width-1,
+			which.img_obj_max_ax.ceil].max
+		end_y = [@blink_area.y + @blink_area.height-1,
+			which.img_obj_max_ay.ceil].max
+		@blink_area.x = [@blink_area.x, which.img_obj_min_ax.floor].min
+		@blink_area.y = [@blink_area.y, which.img_obj_min_ay.floor].min
+		@blink_area.width = end_x - @blink_area.x + 1
+		@blink_area.height = end_y - @blink_area.y + 1
+		if @blink_area_rect
+			@blink_area_rect.x =
+				(@blink_area.x + @pixbuf.border_width)*@kx
+			@blink_area_rect.width = (@blink_area.width*@kx).ceil+1
+			@blink_area_rect.y =
+				(@blink_area.y + @pixbuf.border_width)*@ky
+			@blink_area_rect.height =(@blink_area.height*@ky).ceil+1
+		else
+			@blink_area_rect = Gdk::Rectangle.new(
+				(@blink_area.x + @pixbuf.border_width)*@kx,
+				(@blink_area.y + @pixbuf.border_width)*@ky,
+				(@blink_area.width*@kx).ceil + 1,
+				(@blink_area.height*@ky).ceil + 1)
+		end
+	end
+	
+	def impl_obj_blink(impl_obj)
+		self.pixels_blink(impl_obj.pguiobj_guiobj)
+		@pixbuf_blinking_objs.push(impl_obj)
+	end
+	
+	def impl_obj_unblink(impl_obj)
+		which = impl_obj.pguiobj_guiobj
+		self.pixels_blink_toggle(which) if @pixbuf_blinking
+		@pixbuf_blinking_objs.pop_obj(impl_obj)
+		return if which.empty?
+		end_x = @blink_area.x + @blink_area.width - 1
+		end_y = @blink_area.y + @blink_area.height - 1
+		if which.img_obj_max_ax.ceil >= end_x ||
+		which.img_obj_min_ax.floor <= @blink_area.x ||
+		which.img_obj_max_ay.ceil >= end_y ||
+		which.img_obj_min_ay.floor <= @blink_area.y
+		  if @pixbuf_blinking_objs.empty?
+			@blink_area = nil
+			@blink_area_rect = nil
+		  else
+			end_x=@blink_area.x=@pixbuf_blinking_objs.first.first.x
+			end_y=@blink_area.y=@pixbuf_blinking_objs.first.first.y
+			@pixbuf_blinking_objs.each { |obj|
+				@blink_area.x = [@blink_area.x,
+					obj.img_obj_min_ax.floor].min
+				end_x = [end_x, obj.img_obj_max_ax.ceil].max
+				@blink_area.y = [@blink_area.y,
+					obj.img_obj_min_ay.floor].min
+				end_y = [end_y, obj.img_obj_max_ay.ceil].max
+			}
+			@blink_area.width = end_x - @blink_area.x + 1
+			@blink_area.height = end_y - @blink_area.y + 1
+			@blink_area_rect.x =
+				(@blink_area.x + @pixbuf.border_width)*@kx
+			@blink_area_rect.width = (@blink_area.width*@kx).ceil+1
+			@blink_area_rect.y =
+				(@blink_area.y + @pixbuf.border_width)*@ky
+			@blink_area_rect.height =(@blink_area.height*@ky).ceil+1
+		  end
+		end
+	end
+	
+	def pixels_trace(which)
+	end
+	
+	def impl_obj_trace(impl_obj)
+		@pixbuf_traced_objs.push(impl_obj)
+	end
+	
+	def impl_obj_untrace(impl_obj)
+		@pixbuf_traced_objs.pop_obj(impl_obj)
+	end
+	
+	def img_obj_mark(impl_obj, way)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "impl_obj: #{impl_obj}, way=#{way.inspect}"
+		obj = impl_obj.pguiobj_guiobj
+		if obj.extract_curves_mark != way
+		  if obj.kind_of?(PGuiObj::ObjCollection) ||
+		  obj.class <= PGuiObj::MObjCollection
+		    impl_obj.pguiobj_each_value { |val|
+			@unmark_meths[obj.extract_curves_mark].call(val)
+			@mark_meths[way].call(val)
+		    }
+		  else
+			@unmark_meths[obj.extract_curves_mark].call(impl_obj)
+			@mark_meths[way].call(impl_obj)
+		  end
+		  obj.extract_curves_mark = way
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def img_obj_delete(impl_obj)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "obj: #{obj.to_s}"
+		self.img_obj_mark(impl_obj, MARK_WAYS.length)
+		impl_obj.pguiobj_each_method { |meth| meth.pguiobj_each_child {
+		  |child| self.img_obj_delete(child) }}
+		obj = impl_obj.pguiobj_guiobj
+		if obj.kind_of?(PGuiObj::ObjCollection) ||
+		obj.kind_of?(PGuiObj::MObjCollection)
+			impl_obj.pguiobj_each_value{|m| self.img_obj_delete(m) }
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def img_mark_all(way)
+		#$PDbgLog.sig_call(self)
+		while !@pixbuf_highlighted_objs.empty?
+		#  $PDbgLog.puts_msg "unhighlight "+@pixbuf_highlighted_objs.
+		#	first.inspect
+			self.img_obj_mark(
+				impl_obj=@pixbuf_highlighted_objs.first, way)
+			impl_obj.pguiobj_each_method { |meth|
+			  if meth.pguiobj_name == 'mark'
+			    meth.pguiobj_impl_args[0].set way
+			    break
+			  end
+			}
+		end
+		while !@pixbuf_blinking_objs.empty?
+			#$PDbgLog.puts_msg "unblink " +
+			#	@pixbuf_blinking_objs.first.inspect
+			self.img_obj_mark(
+				impl_obj = @pixbuf_blinking_objs.first, way)
+			impl_obj.pguiobj_each_method { |meth|
+			  if meth.pguiobj_name == 'mark'
+			    meth.pguiobj_impl_args[0].set way
+			    break
+			  end
+			}
+		end
+		while !@pixbuf_traced_objs.empty?
+	#	  $PDbgLog.puts_msg "untrace "+@pixbuf_traced_objs.first.inspect
+			self.img_obj_mark(
+				impl_obj=@pixbuf_traced_objs.first, way)
+			impl_obj.pguiobj_each_method { |meth|
+			  if meth.pguiobj_name == 'mark'
+			    meth.pguiobj_impl_args[0].set way
+			    break
+			  end
+			}
+		end
+		#$PDbgLog.sig_call(self)
+	end
+	
+	def img_motion_notify_cb(*args)
+		win, x, y, state = *@drw_area.window.pointer
+		x = (x/@kx).to_i; y = (y/@ky).to_i
+		if !@pixbuf || x < 0 || x >= @pixbuf.width || y < 0 ||
+		y >= @pixbuf.height
+			@label_x.text = "   "
+			@label_y.text = "   "
+			return
+		end
+		@label_x.text = "%-3d" % (rx=x - @pixbuf.border_width)
+		@label_y.text = "%-3d" % (ry=y - @pixbuf.border_width)
+		if rx >= 0 && rx < @pixbuf.picture_width &&
+		ry >= 0 && ry <  @pixbuf.picture_height
+		  rgb = *@pixbuf.get_pix(rx, ry).color_rgb
+		  if @clr_show_scheme == "rgb"
+			clr_text = "%3d,%3d,%3d" % rgb
+		  else
+		  	h, s, v = *@pixbuf.get_pix(rx,ry).color_hsv
+			clr_text = "%3.0f,%3.0f,%3.0f" %
+				[360.0*h, 100.0*s, 100.0*v]
+		  end
+		  bg = "\#%02x%02x%02x" % rgb
+		  fg = "\#%02x%02x%02x" % [rgb[0] > 127 ? 0 : 255,
+			rgb[1] > 127 ? 0 : 255, rgb[2] > 127 ? 0 : 255]
+		  @label_clr.set_markup("<span foreground=\"#{fg
+		  	}\" background=\"#{bg}\">#{clr_text}</span>")
+		end
+		true
+	end
+	
+	def img_expose_cb(drw_area, event)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "area: #{event.area.x}, #{event.area.y}, #{
+		#	event.area.width}, #{event.area.height}: "
+		if !@pixbuf || !@pixbuf_backing || !@pixbuf_drw_meth ||
+		(x0=event.area.x/@kx) >= @pixbuf.width ||
+		(y0=event.area.y/@ky) >= @pixbuf.height || @drw_area_in_procs
+			#$PDbgLog.sig_return(@drw_area_in_procs)
+			return @drw_area_in_procs
+		end
+		#$PDbgLog.puts_msg "pb_pix_cnt=#{@pixbuf.width*@pixbuf.height}"
+		pb = @pixbuf_backing
+		pb_pix = pb.pixels
+		end_x = (event.area.x + event.area.width-1)/@kx
+		end_y = (event.area.y + event.area.height-1)/@ky
+		end_x = @pixbuf.width-1 if end_x >= @pixbuf.width
+		end_y = @pixbuf.height-1 if end_y >= @pixbuf.height
+		rowstride = @pixbuf.rowstride; pix_length = @pixbuf.pix_length
+		ofs = ofs0 = y0 * rowstride + x0 * pix_length
+		end_ofs = end_y * rowstride + end_x * pix_length
+		width = end_x-x0 + 1; width_stride = width * pix_length
+		height = end_y-y0 + 1
+		t_width_stride = width_stride - pix_length
+		#sub_x0 = @kx - event.area.x % @kx
+		#sub_y0 = @ky - event.area.y % @ky
+		view_width = (width*@kx).ceil + 1
+		view_height = (height*@ky).ceil + 1
+		start_x = event.area.x; start_y = event.area.y
+		#$PDbgLog.print_msg "x0=#{x0}, y0=#{y0}, sub_x0=#{sub_x0
+		#	}, sub_y0=#{sub_y0}, end_x=#{end_x}, end_y=#{end_y
+		#	}, rowstride=#{rowstride}, pix_length=#{pix_length} "
+		if (trc_obj = @pixbuf_traced_objs[@pixbuf_traced_obj_i]) &&
+		(trc_obj = trc_obj.pguiobj_guiobj) &&
+		(trc_pix = trc_obj[@pixbuf_traced_pix_i]) && (trc_pix_ofs =
+		@pixbuf.ofs0+rowstride*trc_pix.y+pix_length*trc_pix.x)>=ofs0 &&
+		trc_pix_ofs <= end_ofs
+			trc_pix_ofs.upto(trc_pix_ofs+pix_length-1) { |tmp_ofs|
+				pb_pix[tmp_ofs] ^= 0xff
+			}
+			tw = @trace_mark.width
+			tx = tx0 = (@kx*(trc_pix.x+@pixbuf.border_width+0.5) -
+				tw/2 - start_x).to_i
+			if tx < 0
+				tw += tx
+				tx = 0
+			end
+			e_x = view_width
+			tw = e_x - tx if tx + tw >= e_x
+			th = @trace_mark.height
+			ty = ty0 = (@ky*(trc_pix.y+@pixbuf.border_width+0.5) -
+				th/2 - start_y).to_i
+			if ty < 0
+				th += ty
+				ty = 0
+			end
+			e_y = view_height
+			th = e_y - ty if ty + th > e_y
+		else
+			trc_pix = nil
+		end
+		sc_pb = pb.gdk_scaled(@kx, @ky, start_x, start_y,
+		  view_width, view_height, @kx < 1 || @ky < 1 ?
+		  Gdk::Pixbuf::INTERP_BILINEAR : Gdk::Pixbuf::INTERP_NEAREST);
+		if trc_pix
+			sc_pb.composite!(@trace_mark,tx,ty, tw,th, tx0,ty0, 1,1,
+			  Gdk::Pixbuf::INTERP_NEAREST, 255)
+			trc_pix_ofs.upto(trc_pix_ofs+pix_length-1) { |tmp_ofs|
+				pb_pix[tmp_ofs] ^= 0xff
+			}
+		end
+		#@pixbuf_drw_meth.call(drw_area.window,drw_area.style.black_gc,
+		#	event.area.x, event.area.y,
+		#	(width-1)*@kx + sub_x0,(height-1)*@ky + sub_y0,
+		#	Gdk::RGB::Dither::NORMAL, pixels, rowstride,
+		#	(width-1)*@kx + sub_x0, (height-1)*@ky + sub_y0)
+		#@pixbuf_drw_meth.call(drw_area.window,drw_area.style.black_gc,
+		#	event.area.x, event.area.y,
+		#	event.area.width, event.area.height,
+		#	Gdk::RGB::Dither::NORMAL, pixels, rowstride,
+		#	event.area.width, event.area.height)
+		@pixbuf_drw_meth.call(drw_area.window,drw_area.style.black_gc,
+			start_x, start_y, view_width, view_height,
+			Gdk::RGB::Dither::NORMAL, sc_pb.pixels, sc_pb.rowstride,
+			view_width, view_height)
+		#$PDbgLog.sig_return
+		true
+	end
+	
+	def detect_blob(ctr_geom, external_ctrs, min_out_lp_len, get_ngbs_proc)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "@pixbuf: #{@pixbuf}"
+		unless @pixbuf.blob_id_at?(@x, @y, 0)
+			#$PDbgLog.sig_return
+			return nil
+		end
+		#$PDbgLog.puts_msg "(#{@x}, #{@y})"
+		res = @pixbuf.get_pix(@x, @y).blob(ctr_geom, external_ctrs,
+			min_out_lp_len, &get_ngbs_proc)
+		#$PDbgLog.sig_return
+		res
+	end
+	
+	def img_get_objs_at(drw_arr, event)
+		return false unless @pixbuf
+		## Pop the motion event and allow the registering of the next:
+		#win, x, y, state = event.window.pointer
+		x, y = event.x.to_i, event.y.to_i
+		x = (x/@kx).to_i - @pixbuf.border_width
+		y = (y/@ky).to_i - @pixbuf.border_width
+		return true if x < 0 || x >= @pixbuf.picture_width ||
+			y < 0 || y >= @pixbuf.picture_height ||
+			(@blob && @pixbuf.blob_id_at?(x, y, @blob.blob_id))
+		@x = x
+		@y = y
+		@detect_meth.call
+		true
+	end
+	
+	def img_pop_context_menu
+	  menu = nil
+	  #@job = Thread.new(Thread.current) {
+	#	Thread.stop
+	#	$PDbgLog.sig_call(self)
+		#menu = self.img_get_context_menu
+	#	$PDbgLog.sig_return("OK")
+	  #}
+	  #@job.run
+	  #Thread.pass while @job.alive?
+		return unless menu
+		$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "#{(menu.methods.sort - Object.methods).
+		#	join("\n")}"
+		menu.visible = true
+		menu.activate
+		menu.parent.modal = true
+		menu.parent.window_position = Gtk::Window::POS_MOUSE
+		menu.parent.show_all
+		menu.grab_focus
+		
+		while menu.visible?
+			Gtk.main_iteration
+		end
+		#menu.destroy
+		@scrl_win.queue_draw
+		$PDbgLog.sig_return("Done.")
+	end
+	
+	def img_button_press_cb(drw_area, event)
+		#$PDbgLog.sig_call(self)
+		case event.button
+		  when 1 then self.img_get_objs_at(drw_area, event)
+		  when 3 then self.img_pop_context_menu
+		end
+		#$PDbgLog.sig_return(true)
+		return true
+	end
+	
+	def about_cb(*args)
+		authors = ["Pavel Penev (author) <pavpen@berkeley.edu>"]
+		documentors = []
+		license = %Q[
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License as
+published by the Free Software Foundation; either version 2 of the
+License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public
+License along with the Gnome Library; see the file COPYING.LIB.  If not,
+write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.
+]
+		transparent = Gdk::Pixbuf.new(PGtk.find_icon_file(
+			"pav/icons/extract_curves/extract_curves-logo-rgb.gif"))
+			#.add_alpha(true, 0xff, 0xff, 0xff)
+		
+		Gtk::AboutDialog.set_email_hook {|about, link|
+			puts "send mail to #{link}"
+		}
+		Gtk::AboutDialog.set_url_hook {|about, link|
+			puts "show url #{link}"
+		}
+		Gtk::AboutDialog.show(self,
+			:name => "Extract Curves",
+			:version => VERSION.join(".") + VERSION_SUFFIX,
+			:copyright => "(C) 2005 Pavel Minev Penev",
+			:license => license,
+			:website => "http://extract-curves.rubyforge.org",
+			:comments => "Program to identify the specific " +
+				"characteristics of a motion which produced a "+
+				"geometric curve.",
+			:authors => authors,
+			#:documenters => documentors,
+			:logo => transparent)
+	end
+end
+
+#PApp.new(ExtractCurvesApp).run
+app_win = ExtractCurvesApp.new
+app_win.show_all
+app_win.open_imagef(ARGV[0]) if ARGV[0]
+Gtk.main