extract-curves 0.1.1-mswin32

data/ruby_libs/pav/gtk/icons.rb

@@ -0,0 +1,124 @@
+require 'gtk2'
+require 'pav/pav_find'
+require 'pav/string/ext'
+
+module PGtk
+
+pgtk_symbs = [[:"pgtk-handle", 'Handle', 'alt_handle.xpm'],
+	[:"pgtk-handle-hover", 'Handle', 'alt_handle_hover.xpm'],
+	[:"pgtk-handle-pressed", 'Handle', 'alt_handle_pressed.xpm'],
+	[:"pgtk-previous", 'Previous', 'prev.xpm'],
+	[:"pgtk-previous-hover", 'Previous', 'prev_hover.xpm'],
+	[:"pgtk-previous-pressed", 'Previous', 'prev_pressed.xpm'],
+	[:"pgtk-next", 'Next', 'next.xpm'],
+	[:"pgtk-next-hover", 'Next', 'next_hover.xpm'],
+	[:"pgtk-next-pressed", 'Next', 'next_pressed.xpm'],
+	[:"pgtk-vertical-previous", 'Vertical previous', 'vprev.xpm'],
+	[:"pgtk-vertical-next", 'Vertical next', 'vnext.xpm'],
+	[:"pgtk-blob", 'Blob', 'blob.gif'],
+	[:"pgtk-contour", 'Contour', 'contour.gif'],
+	[:"pgtk-contour-carpet", 'Contour carpet', 'contour_carpet.gif'],
+	[:"pgtk-curve", 'Curve', 'curve.gif'],
+	[:"pgtk-curve-carpet", 'Curve carpet', 'curve_carpet.gif'],
+	[:"pgtk-loop", 'Loop', 'loop.gif'],
+	[:"pgtk-loop-carpet", 'Loop carpet', 'loop_carpet.gif'],
+	[:"pgtk-shaved-core", 'Shaved core', 'shaved_core.gif'],
+	[:"pgtk-collapse", 'Collapse', 'expand_open.xpm'],
+	[:"pgtk-collapse-hover", 'Collapse', 'expand_open_hover.xpm'],
+	[:"pgtk-expand", 'Expand', 'expand_closed.xpm'],
+	[:"pgtk-expand-hover", 'Expand', 'expand_closed_hover.xpm']]
+pgtk_symbs.each { |s| Gtk::Stock.add(s[0], s[1]) }
+ifactory = Gtk::IconFactory.new
+ifactory.add_default
+pb_handle = pb_vhandle = nil
+found_cnt = 0
+PavFind.pfind($:) { |path|
+  pgtk_symbs.each { |s|
+	if path.ends_with("pav/icons/" + s[2]) && !s[3]
+		s[3] = Gdk::Pixbuf.new(path)
+		break if (found_cnt += 1) >= pgtk_symbs.length
+	end
+  }
+  break if found_cnt >= pgtk_symbs.length
+}
+pgtk_symbs.each { |s| ifactory.add(s[0].to_s, Gtk::IconSet.new(s[3])) }
+
+@icon_cache = {}
+
+def self.find_icon_file(fpath)
+	PavFind.pfind($:) { |path|
+		return path if path.ends_with(fpath)
+	}
+end
+
+def self.image_from_file(fpath)
+	Gtk::Image.new(self.find_icon_file(fpath))
+end
+
+def self.stock_pixbuf_of_size(stock_id, w, h)
+	if (tmp = @icon_cache[[stock_id, w, h]])
+		return tmp if tmp.kind_of?(Gdk::Pixbuf)
+	end
+	icon_set = Gtk::IconFactory.lookup_default(stock_id.to_s) ||
+		Gtk::IcontFactory.lookup_default("gtk-missing-image")
+	max_size = nil
+	max_sz = [0,0]
+	found_size = nil
+	icon_set.sizes.each { |size|
+		if (sz=Gtk::IconSize.lookup(size)) == [w, h]
+			found_size = size
+		end
+		if sz[0]*sz[1] > max_sz[0]*max_sz[1]
+			max_size = size
+			max_sz = Gtk::IconSize.lookup(max_size)
+		end
+	}
+	if found_size
+		wd = Gtk::Window.new
+		pb=wd.render_icon(stock_id, found_size,
+			stock_id.to_s + ":#{w}x#{h}")
+		wd.destroy
+		@icon_cache[[stock_id, w, h]] = pb
+	else
+		wd = Gtk::Window.new
+		pb=wd.render_icon(stock_id,max_size,stock_id.to_s+":#{w}x#{h}").
+			scale(w, h, Gdk::Pixbuf::INTERP_BILINEAR)
+		wd.destroy
+		(@icon_cache[[stock_id, w, h]] = pb)
+	end
+end
+
+def self.stock_image_of_size(stock_id, w, h)
+	Gtk::Image.new(self.stock_pixbuf_of_size(stock_id, w, h))
+end
+
+def self.stock_icon_btn_of_size(window, stock_id, w, h)
+	res = Gtk::Button.new << self.stock_image_of_size(stock_id, w-10, h-10)
+	res.set_size_request(w, h)
+	res
+end
+
+def self.stock_icon_tool_btn_of_size(window, stock_id, w, h)
+	res = Gtk::ToolButton.new("")
+	res.icon_widget = self.stock_image_of_size(stock_id, w-10, h-10)
+	res.set_size_request(w, h)
+	res
+end
+
+def self.image_new(spec, deflt_size=Gtk::IconSize::BUTTON, deflt_padding_x=3,
+deflt_padding_y=3)
+	  if spec.kind_of?(Gtk::Image)
+	  	return spec
+	  elsif spec.kind_of?(Gdk::Pixbuf)
+		img = Gtk::Image.new(icon)
+		img.set_padding(deflt_padding_x, deflt_padding_y)
+		return img
+	  elsif spec.kind_of?(String) || spec.kind_of?(Symbol)
+		img = Gtk::Image.new(spec, deflt_size)
+		img.set_padding(deflt_padding_x, deflt_padding_y)
+		return img
+	  end
+	  nil
+end
+
+end

data/ruby_libs/pav/gtk/rulers.rb

@@ -0,0 +1,264 @@
+require 'pav/gtk/icons'
+
+module PGtk
+
+module MHSep
+	@@hpat_pixbuf = Gdk::Pixbuf.new(PGtk.find_icon_file(
+		'patterns/yg_hrope_thin.xpm'))
+	
+	def hsep_pixbuf=(pixbuf)
+		@hsep_pixbuf = pixbuf
+		@hsep_pb_width = @hsep_pixbuf.width
+		@hsep_pb_height = @hsep_pixbuf.height
+		self.set_size_request(-1, @hsep_pb_height)
+	end
+	
+	def hsep_init(pixbuf=@@hpat_pixbuf)
+		self.hsep_pixbuf = pixbuf
+		@hsep_expose_cb = proc { |wgt, event|
+			x = event.area.x
+			((x / @hsep_pb_width) * @hsep_pb_width).
+			step(x+event.area.width, @hsep_pb_width) { |x0|
+				wgt.window.draw_pixbuf(wgt.style.black_gc,
+				  @hsep_pixbuf, 0, 0, x0, 0,
+				  @hsep_pb_width, @hsep_pb_height,
+				  Gdk::RGB::Dither::NORMAL, 0, 0)
+			}
+		}
+	end
+end
+
+class HSep < Gtk::DrawingArea
+	include MHSep
+	
+	def initialize
+		super()
+		self.hsep_init
+		self.signal_connect('expose_event', &@hsep_expose_cb)
+	end
+	
+	def pixbuf=(pixbuf)
+		self.hsep_pixbuf = pixbuf
+		self.queue_draw
+	end
+end
+
+module MVSep
+	@@vpat_pixbuf = Gdk::Pixbuf.new(PGtk.find_icon_file(
+		'patterns/yg_vrope_thin.xpm'))
+	
+	def vsep_pixbuf=(pixbuf)
+		@vsep_pixbuf = pixbuf
+		@vsep_pb_width = @vsep_pixbuf.width
+		@vsep_pb_height = @vsep_pixbuf.height
+		self.set_size_request(@vsep_pb_width, -1)
+	end
+	
+	def vsep_init(pixbuf=@@vpat_pixbuf)
+		self.vsep_pixbuf = pixbuf
+		@vsep_expose_cb = proc { |wgt, event|
+			y = event.area.y
+			((y / @vsep_pb_height) * @vsep_pb_height).
+			step(y+event.area.height, @vsep_pb_height) { |y0|
+				wgt.window.draw_pixbuf(wgt.style.black_gc,
+				  @vsep_pixbuf, 0, 0, 0, y0,
+				  @vsep_pb_width, @vsep_pb_height,
+				  Gdk::RGB::Dither::NORMAL, 0, 0)
+			}
+		}
+	end
+end
+
+class VSep < Gtk::DrawingArea
+	include MVSep
+	
+	def initialize
+		super()
+		self.vsep_init
+		self.signal_connect('expose_event', &@vsep_expose_cb)
+	end
+	
+	def pixbuf=(pixbuf)
+		self.vsep_pixbuf = pixbuf
+		self.queue_draw
+	end
+end
+
+class Sep < Gtk::DrawingArea
+	attr_reader :orientation
+	include MHSep
+	include MVSep
+	
+	def initialize(orient=Gtk::Orientation::HORIZONTAL)
+		@orientation = orient
+		super()
+		self.hsep_init
+		self.vsep_init
+		if orient == Gtk::Orientation::HORIZONTAL
+			@expose_cb_id = self.signal_connect('expose_event',
+				&@hsep_expose_cb)
+		else
+			@expose_cb_id = self.signal_connect('expose_event',
+				&@vsep_expose_cb)
+		end
+	end
+	
+	def orientation=(orient)
+		if orient == Gtk::Orientation::HORIZONTAL
+			return if @orientation == Gtk::Orientation::HORIZONTAL
+			self.signal_handler_disconnect(@expose_cb_id)
+			@expose_cb_id = self.signal_connect('expose_event',
+				&@hsep_expose_cb)
+			@orientation = Gtk::Orientation::HORIZONTAL
+		else
+			return if @orientation == Gtk::Orientation::VERTICAL
+			self.signal_handler_disconnect(@expose_cb_id)
+			@expose_cb_id = self.signal_connect('expose_event',
+				&@vsep_expose_cb)
+			@orientation = Gtk::Orientation::VERTICAL
+		end
+		self.queue_draw
+	end
+	
+	def pixbuf=(pixbuf)
+		if @orientation == Gtk::Orientation::HORIZONTAL
+			self.hsep_pixbuf = pixbuf
+		else
+			self.vsep_pixbuf = pixbuf
+		end
+		self.queue_draw
+	end
+end
+
+module MTreeLink
+	@@tlink_pixbuf = Gdk::Pixbuf.new(PGtk.find_icon_file(
+		'patterns/yg_vrope.xpm'))
+	
+	def tlink_pixbuf=(pixbuf)
+		@tlink_pixbuf = pixbuf
+		@tlink_pb_width = @tlink_pixbuf.width
+		@tlink_pb_height = @tlink_pixbuf.height
+		self.set_size_request(@tlink_pb_width, -1)
+	end
+	
+	def tlink_init(pixbuf=@@tlink_pixbuf)
+		self.tlink_pixbuf = pixbuf
+		@tlink_expose_cb = proc { |wgt, event|
+			y = event.area.y
+			((y / @tlink_pb_height) * @tlink_pb_height).
+			step(y+event.area.height, @tlink_pb_height) { |y0|
+				wgt.window.draw_pixbuf(wgt.style.black_gc,
+				  @tlink_pixbuf, 0, 0, 0, y0,
+				  @tlink_pb_width, @tlink_pb_height,
+				  Gdk::RGB::Dither::NORMAL, 0, 0)
+			}
+		}
+	end
+end
+
+module MTreeEndNode
+	@@tend_node_pixbuf = Gdk::Pixbuf.new(
+		PGtk.find_icon_file('patterns/yg_tnode.xpm'))
+end
+
+module MTreeLinkNode
+	@@tlink_node_pixbuf = Gdk::Pixbuf.new(
+		PGtk.find_icon_file('patterns/yg_tnode_w_link.xpm'))
+end
+
+class TreeLink < Gtk::DrawingArea
+	include MTreeLink
+	
+	def initialize
+		super()
+		self.tlink_init
+		@expose_cb_id =
+			self.signal_connect('expose_event', &@tlink_expose_cb)
+		@enabled = true
+	end
+	
+	def disable
+		return unless @enabled
+		self.signal_handler_disconnect(@expose_cb_id)
+		@enabled = false
+		self.queue_draw
+	end
+	
+	def enable
+		return if @enabled
+		@expose_cb_id =
+			self.signal_connect('expose_event', &@tlink_expose_cb)
+		@enabled = true
+		self.queue_draw
+	end
+	
+	def pixbuf=(pixbuf)
+		self.tlink_pixbuf = pixbuf
+		self.signal_handler_disconnect(@expose_cb_id)
+		@expose_cb_id =
+			self.signal_connect('expose_event', &@tlink_expose_cb)
+		self.queue_draw
+	end
+end
+
+class TreeNodePadding < Gtk::VBox
+	include MTreeEndNode
+	include MTreeLinkNode
+	
+	attr_reader :end_node, :expand_btn, :title_box, :end_node_pixbuf,
+		:link_node_pixbuf
+	
+	def initialize(end_node=false)
+		super(false, 0)
+		self.pack_start(@title_box=Gtk::HBox.new(false,0),false,false,0)
+		@end_node_pixbuf = @@tend_node_pixbuf
+		@link_node_pixbuf = @@tlink_node_pixbuf
+		@title_box.pack_start(@node_img=Gtk::Image.new(
+			end_node ? @end_node_pixbuf : @link_node_pixbuf),
+			false, false, 0)
+		self.pack_start(@link_wgt=TreeLink.new, true, true, 0)
+		@link_wgt.hide
+		if end_node
+			@link_wgt.disable
+		end
+		self.end_node = end_node
+	end
+	
+	def end_node=(end_node)
+		if end_node
+			return if @end_node
+			@node_img.set_pixbuf(@end_node_pixbuf)
+			@link_wgt.disable
+			@end_node = true
+		else
+			return unless @end_node
+			@node_img.set_pixbuf(@link_node_pixbuf)
+			@link_wgt.enable
+			@end_node = false
+		end
+	end
+	
+	def end_node?
+		@end_node
+	end
+	
+	def add_title_widget(wgt)
+		@title_box.pack_start(wgt, false, 0)
+	end
+	
+	def end_node_pixbuf=(pixbuf)
+		@end_node_pixbuf = pixbuf
+		if @end_node
+			@node_img.set_pixbuf(@end_node_pixbuf)
+		end
+	end
+	
+	def link_node_pixbuf=(pixbuf)
+		@link_node_pixbuf = pixbuf
+		unless @end_node
+			@node_img.set_pixbuf(@link_node_pixbuf)
+		end
+	end
+end
+
+end

data/ruby_libs/pav/gtk/toolbar.rb

@@ -0,0 +1,189 @@
+require 'gtk2'
+require 'find'
+require 'pav/gtk/button'
+
+module PGtk
+
+class Toolbar < Gtk::Table
+	attr_reader :toolbar, :ctrl_bar, :spaces_at, :iconized
+	
+	def initialize
+		@toolbar = Gtk::Toolbar.new
+		@ctrl_bar = Gtk::Toolbar.new
+		btn_sz = Gtk::IconSize.lookup(Gtk::IconSize::MENU)
+		btn_sz[0] = (btn_sz[0])/2.3; btn_sz[1] = (btn_sz[1])/2.3
+		#@handle_btn = Toolbar.stock_icon_tool_btn_of_size(@toolbar,
+		#	:"pgtk-handle", btn_sz[0], btn_sz[1])
+		@handle_btn = Button.new(:"pgtk-handle", btn_sz[0], btn_sz[1],
+			:"pgtk-handle-hover", :"pgtk-handle-pressed") { |wgt,ev|
+			self.iconized ^= true }
+		@l_fwd_btn = Button.new(:"pgtk-next", btn_sz[0], btn_sz[1],
+			:"pgtk-next-hover", :"pgtk-next-pressed") { |wgt, ev|
+			self.scroll_fwd; false }
+		@l_bck_btn = Button.new(:"pgtk-previous", btn_sz[0], btn_sz[1],
+			:"pgtk-previous-hover", :"pgtk-previous-pressed") {
+			|wgt, ev| self.scroll_back; false }
+		@ctrl_bar.append(Gtk::HBox.new << @handle_btn)
+		@ctrl_bar.append(Gtk::HBox.new << @l_bck_btn)
+		@ctrl_bar.append(Gtk::HBox.new << @l_fwd_btn)
+		@ctrl_bar.orientation = 1
+		@hadj = Gtk::Adjustment.new(0,0,1.0,1,10,0)
+		@vadj = Gtk::Adjustment.new(0,0,1.0,1,10,0)
+		@viewport = Gtk::Viewport.new(@hadj, @vadj)
+		@viewport.add(@toolbar)
+		@viewport.shadow_type = Gtk::SHADOW_NONE
+		super(2, 2)
+		self.attach(@ctrl_bar, 0,1, 0,1, 0, 0, 0,0)
+		self.attach(@viewport, 1,2, 0,1, Gtk::FILL|Gtk::EXPAND, 0, 0,0)
+		@spaces_at = []
+	end
+	
+	def iconized?
+		@iconized
+	end
+	
+	def iconized=(val)
+		if val
+			return if @iconized
+			@iconized = true
+			self.remove(@viewport)
+			@l_fwd_btn.hide
+			@l_bck_btn.hide
+		else
+			return unless @iconized
+			@iconized = false
+			@l_fwd_btn.show
+			@l_bck_btn.show
+			if @toolbar.orientation == Gtk::ORIENTATION_HORIZONTAL
+				self.attach(@viewport, 1,2, 0,1,
+					Gtk::FILL|Gtk::EXPAND,0, 0,0)
+			else
+				self.attach(@viewport, 0,1, 1,2,0,
+					Gtk::FILL|Gtk::EXPAND,0, 0)
+			end
+		end
+	end
+	
+	def dir_size_request=(val)
+		if @toolbar.orientation==Gtk::ORIENTATION_HORIZONTAL
+			@viewport.width_request = val-@ctrl_bar.allocation.width
+		else
+			@viewport.height_request=val-@ctrl_bar.allocation.height
+		end
+	end
+	
+	def method_missing(id, *args, &block)
+		@toolbar.send(id, *args, &block)
+	end
+	
+	def append_space(*args, &block)
+		@spaces_at << @toolbar.children.length + @spaces_at.length
+		@toolbar.append_space(*args, &block)
+	end
+	
+	def insert_space(i)
+		@spaces_at << i
+		@spaces_at.sort!
+		@toolbar.insert_space(i)
+	end
+	
+	def set_orientation(o)
+		@toolbar.set_orientation(o)
+		if o == Gtk::ORIENTATION_HORIZONTAL
+			@ctrl_bar.set_orientation(Gtk::ORIENTATION_VERTICAL)
+			h = @ctrl_bar.allocation.height
+			self.get_tool_sizes.each { |s| h = s if s > h }
+			self.remove(@viewport)
+			self.attach(@viewport, 1,2, 0,1,
+				Gtk::FILL|Gtk::EXPAND,0, 0,0)
+			self.height_request = h
+		else
+			@ctrl_bar.set_orientation(Gtk::ORIENTATION_HORIZONTAL)
+			w = @ctrl_bar.allocation.width
+			self.get_tool_sizes.each { |s| w = s if s > w }
+			self.remove(@viewport)
+			self.attach(@viewport, 0,1, 1,2, 0,
+				Gtk::FILL|Gtk::EXPAND, 0,0)
+			self.width_request = w
+		end
+	end
+	
+	alias_method :orientation=, :set_orientation
+	
+	def get_tool_sizes
+		if @toolbar.orientation == Gtk::ORIENTATION_HORIZONTAL
+			@toolbar.children.collect { |c| c.allocation.width }
+		else
+			@toolbar.children.collect { |c| c.allocation.height }
+		end
+	end
+	
+	def get_scroll_adj
+		@toolbar.orientation == Gtk::ORIENTATION_HORIZONTAL ? @hadj :
+			@vadj
+	end
+	
+	def get_win_size
+		if @toolbar.orientation == Gtk::ORIENTATION_HORIZONTAL
+			@viewport.allocation.width
+		else
+			@viewport.allocation.height
+		end
+	end
+	
+	def get_toolbar_size
+		@toolbar.orientation == Gtk::ORIENTATION_HORIZONTAL ?
+			@toolbar.allocation.width : @toolbar.allocation.height
+		#size = 14*@spaces_at.length
+		#self.get_tool_sizes.each { |s| size += s }
+		#size
+	end
+	
+	def scroll_fwd(*args)
+		adj = self.get_scroll_adj
+		sizes = self.get_tool_sizes
+		size = self.get_toolbar_size
+		win_size = self.get_win_size
+		start_x = adj.value
+		end_x = start_x + win_size
+		dspc_i = spc_i = size_i = 0
+		new_end_x = 0
+		while new_end_x <= end_x && size_i < sizes.length
+			while spc_i < @spaces_at.length &&
+			@spaces_at[spc_i] - dspc_i <= size_i
+				new_end_x += 14
+				spc_i += 1; dspc_i += 1
+			end
+			new_end_x += sizes[size_i]
+			size_i += 1
+		end
+		new_end_x = size if new_end_x > size
+		start_x = new_end_x - win_size
+		adj.value = start_x >= 0 ? start_x : 0
+	end
+	
+	def scroll_back(*args)
+		adj = self.get_scroll_adj
+		sizes = self.get_tool_sizes
+		size = self.get_toolbar_size
+		win_size = self.get_win_size
+		start_x = adj.value
+		end_x = start_x + win_size
+		dspc_i = spc_i = size_i = 0
+		o_new_start_x = new_start_x = 0
+		while size_i < sizes.length
+			while spc_i < @spaces_at.length &&
+			@spaces_at[spc_i] - dspc_i <= size_i
+				new_start_x += 14
+				spc_i += 1; dspc_i += 1
+			end
+			break if new_start_x + sizes[size_i] >= start_x
+			o_new_start_x = new_start_x
+			new_start_x += sizes[size_i]
+			size_i += 1
+		end
+		adj.value = o_new_start_x
+	end
+end
+
+end