extract_curves 0.0.1-i586-linux

data/ruby_libs/pav/gtk/button.rb

@@ -0,0 +1,130 @@
+require 'gtk2'
+require 'pav/gtk/icons'
+
+module PGtk
+
+class Button < Gtk::Viewport
+	attr_reader :content, :content_hover, :content_pressed, :hovered,
+		:pressed, :show_box, :hide_box
+	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_image_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = PGtk.stock_image_of_size(cont_hover,
+				w_cont_hover, h_cont_hover)
+			@content_pressed = PGtk.stock_image_of_size(
+				cont_pressed, w_cont_hover, h_cont_hover)
+		elsif cont_hover
+			@content = PGtk.stock_image_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = PGtk.stock_image_of_size(cont_hover,
+				w_cont_hover, h_cont_hover)
+		elsif h_cont_hover
+		  if w_cont_hover.kind_of?(Integer)
+			@content = PGtk.stock_image_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = nil
+		  else
+			@content = Gtk::Image.new(cont_spec, h_cont_hover)
+			@content_hover = Gtk::Image.new(w_cont_hover,
+				h_cont_hover)
+		  end
+		elsif w_cont_hover
+		  if w_cont_hover.kind_of?(Symbol)
+			@content = Gtk::Image.new(cont_spec,
+				Gtk::IconSize::BUTTON)
+			@content_hover = Gtk::Image.new(w_cont_hover,
+				Gtk::IconSize::BUTTON)
+		  else
+			@content = Gtk::Image.new(cont_spec, w_cont_hover)
+			@content_hover = nil
+		  end
+		elsif cont_spec
+			@content = Gtk::Image.new(cont_spec,
+				Gtk::IconSize::BUTTON)
+			@content_hover = nil
+		end
+		@left_click_proc = left_click_proc if block_given?
+		super(nil, nil)
+		@show_box = Gtk::HBox.new(false, 1)
+		@hide_box = Gtk::HBox.new(false, 1)
+		self << @show_box
+		@show_box.pack_start(@content, true, true) if @content
+		@hide_box.pack_start(@content_hover, true, true) if
+			@content_hover
+		@hide_box.pack_start(@content_pressed, true, true) if
+			@content_pressed
+		self.events |=	Gdk::Event::BUTTON_RELEASE_MASK |
+				Gdk::Event::BUTTON_PRESS_MASK |
+				Gdk::Event::ENTER_NOTIFY_MASK |
+				Gdk::Event::LEAVE_NOTIFY_MASK
+		self.shadow_type = Gtk::SHADOW_OUT
+		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
+			 	tmp=(@content_hover ? @content_hover : @content)
+				tmp.reparent(@hide_box)
+				tmp.hide
+				@content_pressed.reparent(@show_box)
+				@content_pressed.show
+			end
+			false
+		}
+		self.signal_connect('button_release_event') { |wgt, ev|
+			@pressed = nil
+			if @content_pressed
+				@content_pressed.reparent(@hide_box)
+				@content_pressed.hide
+			 	tmp=(@content_hover ? @content_hover : @content)
+				tmp.reparent(@show_box)
+				tmp.show
+			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
+				@content.reparent(@hide_box)
+				@content.hide
+				@content_pressed.reparent(@show_box)
+				@content_pressed.show
+			elsif @content_hover
+				@content.reparent(@hide_box)
+				@content.hide
+				@content_hover.reparent(@show_box)
+				@content_hover.show
+			end
+			false
+		}
+		self.signal_connect('leave_notify_event') { |wgt, ev|
+			@hovered = false
+			if @pressed
+				@content_pressed.reparent(@hide_box)
+				@content_pressed.hide
+				@content_hover.reparent(@hide_box)
+				@content_hover.hide
+			elsif @content_hover
+				@content_hover.reparent(@hide_box)
+				@content_hover.hide
+			end
+			@content.reparent(@show_box)
+			@content.show
+			false
+		}
+	end
+end
+
+end

data/ruby_libs/pav/gtk/icons.rb

@@ -0,0 +1,87 @@
+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_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.stock_image_of_size(stock_id, w, h)
+	if (tmp = @icon_cache[[stock_id, w, h]])
+		tmp.kind_of?(Gdk::Pixbuf) ?  Gtk::Image.new(tmp) :
+			Gtk::Image.new(stock_id, tmp)
+	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
+		@icon_cache[[stock_id, w, h]] = found_size
+		Gtk::Image.new(stock_id, found_size)
+	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
+		Gtk::Image.new(pb)
+	end
+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
+	
+end

data/ruby_libs/pav/gtk/toolbar.rb

@@ -0,0 +1,192 @@
+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 }
+		@handle_btn.shadow_type = Gtk::SHADOW_NONE
+		@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_fwd_btn.shadow_type = Gtk::SHADOW_NONE
+		@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 }
+		@l_bck_btn.shadow_type = Gtk::SHADOW_NONE
+		@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

data/ruby_libs/pav/heap.rb

@@ -0,0 +1,54 @@
+class PMinHeap < Array
+	attr_reader :comparator
+	
+	def initialize(&comparator)
+		if block_given?
+			@comparator = comparator
+		else
+			@comparator = proc { |a, b| a <=> b }
+		end
+		super()
+	end
+	
+	def push(lm)
+		i = self.length
+		super(lm)
+		while i>0 && @comparator.call(self[parent_i=((i-1)>>1)], lm) > 0
+			self[i] = self[parent_i]
+			i = parent_i
+		end
+		self[i] = lm
+		self
+	end
+	
+	alias_method :<<, :push
+	
+	def pop
+		res = self.first
+		lm = super
+		return res if self.empty?
+		i = 0
+		len = self.length
+		while (chld_i = (i<<1) + 1) < len
+			l_chld_i = chld_i + 1
+			chld_i = l_chld_i if l_chld_i < len &&
+				@comparator.call(self[l_chld_i],self[chld_i])<0
+			if @comparator.call(lm, self[chld_i]) > 0
+				self[i] = self[chld_i]
+				i = chld_i
+			else
+				self[i] = lm
+				return res
+			end
+		end
+		self[i] = lm
+		res
+	end
+	
+	alias_method :shift, :pop
+	
+	def concat(arr)
+		arr.each { |lm| self.push(lm) }
+		self
+	end
+end

data/ruby_libs/pav/icons/CVS/Entries

@@ -0,0 +1,17 @@
+/alt_handle.xcf/1.1.1.1/Tue Nov 15 17:32:49 2005//
+/alt_handle.xpm/1.1.1.1/Tue Nov 15 17:32:46 2005//
+/alt_handle_hover.xcf/1.1.1.1/Tue Nov 15 17:32:50 2005//
+/alt_handle_hover.xpm/1.1.1.1/Tue Nov 15 17:32:43 2005//
+/alt_handle_pressed.xcf/1.1.1.1/Tue Nov 15 17:32:48 2005//
+/alt_handle_pressed.xpm/1.1.1.1/Tue Nov 15 17:32:45 2005//
+/handle.xcf/1.1.1.1/Tue Nov 15 17:32:48 2005//
+/handle.xpm/1.1.1.1/Tue Nov 15 17:32:41 2005//
+/next.xpm/1.1.1.1/Tue Nov 15 17:32:41 2005//
+/next_hover.xpm/1.1.1.1/Tue Nov 15 17:32:43 2005//
+/next_pressed.xpm/1.1.1.1/Tue Nov 15 17:32:48 2005//
+/prev.xpm/1.1.1.1/Tue Nov 15 17:32:41 2005//
+/prev_hover.xpm/1.1.1.1/Tue Nov 15 17:32:43 2005//
+/prev_pressed.xpm/1.1.1.1/Tue Nov 15 17:32:48 2005//
+/vnext.xpm/1.1.1.1/Tue Nov 15 17:32:48 2005//
+/vprev.xpm/1.1.1.1/Tue Nov 15 17:32:48 2005//
+D/extract_curves////

data/ruby_libs/pav/icons/CVS/Repository

@@ -0,0 +1 @@
+extract-curves/ruby_libs/pav/icons

data/ruby_libs/pav/icons/CVS/Root

@@ -0,0 +1 @@
+:ext:pavpen@rubyforge.org:/var/cvs/extract-curves