manqod 1.1505.0

data/lib/RelationBuilder/RTable.rb

@@ -0,0 +1,293 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class RTable < Gtk::EventBox
+	include ManqodCommon
+	def initialize(parentM,table=nil,table_id = nil,x=0,y=0)
+		@parentM=parentM
+		@table_id=if table_id then table_id.to_i else nil end
+		@x=x
+		@y=y
+		@shown=false
+		super()
+		visible_window=false
+		@dragging=false
+		@widget=Gtk::Frame.new
+		@widget.set_label_widget(Gtk::HBox.new(false,1))
+		@widget.label_widget.pack_start(@label=Gtk::Label.new)
+		@widget.label_widget.pack_start(@frame_button=Gtk::Button.new.set_relief(Gtk::ReliefStyle::NONE))
+		add(@widget)
+		@widget.add(Gtk::VButtonBox.new)
+		@widget.set_label_xalign(0.5)
+		@fields=Hash.new
+		@indexes=Array.new
+		set_table(table)
+		
+		signal_connect('button-press-event'){|me,ev|
+			parentM.set_focused_item(self)
+			@parentM.clear
+			case ev.button
+				when 2
+					@xshift=ev.x
+					@yshift=ev.y
+					@dragging=true
+				when 3
+					menu=Gtk::Menu.new
+					menu.append(rent=Gtk::ImageMenuItem.new("rename table").set_image(Gtk::Image.new(Gtk::Stock::EDIT,Gtk::IconSize::MENU)))
+					rent.signal_connect("activate",self){|me,table|
+						dialog=Gtk::MessageDialog.new(get_ancestor(Gtk::Window),Gtk::Dialog::Flags::MODAL,Gtk::MessageDialog::QUESTION,Gtk::MessageDialog::ButtonsType::YES_NO,"rename table?")
+						dialog.vbox.pack_start(new_table=Gtk::Entry.new.set_text(@table))
+						dialog.show_all
+						if dialog.run == Gtk::Dialog::ResponseType::YES
+							rename_me(new_table.text)
+						end
+						dialog.destroy
+					}
+
+					menu.append(rt=Gtk::ImageMenuItem.new("remove table").set_image(Gtk::Image.new(Gtk::Stock::REMOVE,Gtk::IconSize::MENU)))
+					rt.signal_connect("activate",self){|me,table|
+						dialog=Gtk::MessageDialog.new(get_ancestor(Gtk::Window),Gtk::Dialog::Flags::MODAL,Gtk::MessageDialog::QUESTION,Gtk::MessageDialog::ButtonsType::YES_NO,"remove table?")
+						dialog.vbox.pack_start(remove_from_db=Gtk::ToggleButton.new("remove from database",false).set_draw_indicator(false))
+						dialog.show_all
+						if dialog.run == Gtk::Dialog::ResponseType::YES
+							parentM.remove_table(@table,remove_from_db.active?)
+						end
+						dialog.destroy
+					}
+
+					menu.append(tt=Gtk::ImageMenuItem.new("truncate table").set_image(Gtk::Image.new(Gtk::Stock::DELETE,Gtk::IconSize::MENU)))
+					tt.signal_connect("activate",self){|me,table|
+							truncate_table
+					}
+
+				menu.show_all
+				menu.popup(nil,nil,ev.button,ev.time)
+				menu.signal_connect("deactivate",self){|menu,table|
+					table.parentM.set_focused_item(nil)
+				}
+			end
+			true
+		}
+		signal_connect('motion-notify-event',parentM){|me,event,parentM|
+			if @dragging
+				@x=parentM.widget.pointer[0]-@xshift 
+				@y=parentM.widget.pointer[1]-@yshift 
+				move_me
+			end
+			true
+		}
+		signal_connect('button-release-event'){|me,event|
+			move_me
+			save_me
+			parentM.set_focused_item(nil)
+			true
+		}
+	end
+	attr_reader :table_id, :table ,:parentM, :fields, :widget, :x, :y, :widget, :indexes
+	attr_accessor :dragging
+	
+	def set_table(table)
+		@table=table
+		@label.set_label(table)
+		if !table.nil?
+			@is_view=false
+			client_fields("show create table `#{table}`"){|f| @is_view=true if f["name"].include?("View")}
+			if is_view?
+				@frame_button.set_image(Gtk::Image.new(Gtk::Stock::ABOUT,Gtk::IconSize::MENU))
+				@widget.set_shadow_type(Gtk::ShadowType::IN).modify_bg(Gtk::StateType::NORMAL,Gdk::Color.parse('#E0D130'))
+				else
+				@frame_button.set_image(Gtk::Image.new(Gtk::Stock::FILE,Gtk::IconSize::MENU))
+				@widget.set_shadow_type(Gtk::ShadowType::OUT)
+			end
+			reload
+		end
+	end
+
+	def reload
+		@indexes.clear
+		client_rows("show indexes from #{table}"){|index|
+			@indexes.push({"name"=>index["Key_name"],"unique"=>index["Non_unique"]=="0", "field"=>index["Column_name"]})
+		}
+		i=0
+		client_rows("show fields from #{table}"){|field|
+			if @fields.has_key?(field["Field"])
+				@fields[field["Field"]].set_field(field)
+				else
+				@widget.child.pack_start_defaults(@fields[field["Field"]]=RField.new(self,field)) 
+			end
+			@widget.child.reorder_child(@fields[field["Field"]],i)
+			i+=1
+		}
+		show_all
+	end
+
+	def move_me(newx=@x,newy=@y)
+		@x=newx
+		@y=newy
+		parent.move(self,@x,@y) if parent
+	end
+	
+	def rename_me(new_table)
+		client_query("rename table `#{@table}` to `#{new_table}`")
+		@table=new_table
+		@fields.each{|field,field_wg|
+			parentM.relations.each{|rel|
+				if rel.rfield1 == field_wg or rel.rfield2 == field_wg
+					rel.save
+				end
+			}
+		}
+
+		save_me
+		set_table(new_table)
+	end
+
+	def save_me
+		query("update tables set rbx='#{x}', rby='#{y}', name='#{@table}' where id='#{table_id}'")
+	end
+	
+	def show_me
+		@parentM.widget.put(self,x,y) unless @shown
+		@shown=true
+		self
+	end
+
+	def hide_me
+		@parentM.widget.remove(self) if @shown
+		@shown=false
+		self
+	end
+	
+	def set_visibility(vis)
+		if vis
+			show_me
+			else
+			hide_me
+		end
+	end
+	
+	def shown?
+		@shown
+	end
+
+	def show_neighbours
+		show_me
+		@parentM.relations.each{|rel|
+			if rel.rfield1.table == self || rel.rfield2.table == self
+				rel.rfield1.table.show_me
+				rel.rfield2.table.show_me
+				rel.show_me
+			end
+		}
+	end
+
+	def remove_field(field)
+		dialog=Gtk::MessageDialog.new(nil,Gtk::Dialog::Flags::MODAL,Gtk::MessageDialog::QUESTION,Gtk::MessageDialog::ButtonsType::YES_NO,"remove field `#{field}`?")
+		dialog.show_all
+		if dialog.run == Gtk::Dialog::ResponseType::YES
+			parentM.relations.each{|rel|
+				if rel.rfield1 == @fields[field] or rel.rfield2 == @fields[field]
+					edebug("removing #{rel}","relation-builder","debug")
+					rel.remove
+				end
+			}
+
+			client.query("alter table `#{table}` drop `#{field}`")
+			@fields[field].destroy
+			@fields.delete(field)
+			parentM.clear
+#			reload
+		end
+		dialog.destroy
+	end
+	
+	def truncate_table
+		dialog=Gtk::MessageDialog.new(nil,Gtk::Dialog::Flags::MODAL,Gtk::MessageDialog::QUESTION,Gtk::MessageDialog::ButtonsType::YES_NO,"truncate table?")
+		dialog.show_all
+		if dialog.run == Gtk::Dialog::ResponseType::YES
+			client.query("truncate table `#{table}`")
+		end
+		dialog.destroy
+	end
+	
+	def alter_field(alter_field=nil,after_field=nil)
+		dialog=Gtk::MessageDialog.new(get_ancestor(Gtk::Window),Gtk::Dialog::Flags::MODAL,Gtk::MessageDialog::QUESTION,Gtk::MessageDialog::ButtonsType::OK_CANCEL,if after_field then "add after `#{after_field}`" else "alter `#{alter_field["Field"]}`" end).set_title("Field preferences")
+		i=0
+		dialog.vbox.pack_start(Gtk::Table.new(2,2).
+			attach_defaults(Gtk::Label.new("name"),0,1,i,i+1).attach_defaults(field_name=Gtk::Entry.new,1,2,i,i+=1).
+			attach_defaults(Gtk::Label.new("type"),0,1,i,i+1).attach_defaults(field_type=Gtk::Combo.new(["TEXT","TINYINT","INT","BIGINT","REAL","DOUBLE","FLOAT","NUMERIC","DATE","TIME","TIMESTAMP","DATETIME","YEAR","CHAR","VARCHAR","BINARY","VARBiNARY","BLOB","TINYBLOB","MEDIUMBLOB","LONGBLOB","TINYTEXT"]).set_allow_empty(false),1,2,i,i+=1).
+			attach_defaults(Gtk::Label.new("size"),0,1,i,i+1).attach_defaults(field_size=Gtk::Entry.new,1,2,i,i+=1).
+			attach_defaults(Gtk::Label.new("default"),0,1,i,i+1).attach_defaults(field_default=Gtk::Entry.new,1,2,i,i+=1).
+			attach_defaults(bb=Gtk::HButtonBox.new,0,2,i,i+=1)
+		)
+		bb.
+			pack_start(field_null=Gtk::ToggleButton.new("NOT NULL",false).set_image(Gtk::Image.new(Gtk::Stock::CLEAR,Gtk::IconSize::MENU))).
+			pack_start(field_index=Gtk::ToggleButton.new("NOT INDEX",false).set_image(Gtk::Image.new(Gtk::Stock::INDEX,Gtk::IconSize::MENU)))
+		field_null.signal_connect("toggled"){|me| me.set_label(me.active? ? "NULL" : "NOT NULL")}
+		field_index.signal_connect("toggled"){|me| me.set_label(me.active? ? "INDEX" : "NOT INDEX")}
+		if alter_field
+			field_name.set_text(alter_field["Field"]) 
+			field_type.entry.set_text(alter_field["Type"])
+			field_size.set_text(alter_field['Size'] || "")
+			field_default.set_text(alter_field['Default'] || "")
+			field_null.set_active(alter_field["Null"] == "YES")
+			field_index.set_active(alter_field["Key"] == "MUL")
+		end
+		dialog.show_all
+		if dialog.run == Gtk::Dialog::ResponseType::OK
+			if after_field
+				sql="ALTER TABLE `#{@table}` ADD `#{field_name.text}` 
+				#{field_type.entry.text}#{field_size.text!="" ? "(#{field_size.text})" : ""}
+				#{field_null.active? ? "NULL" : "NOT NULL"} 
+				#{field_default.text!="" ? "DEFAULT '#{field_default.text}' " : ""} 
+				AFTER `#{after_field}`";
+				sql2=field_index.active? ? "alter table `#{@table}` add index(`#{field_name.text}`)" : nil
+				else
+				if alter_field["Field"] != field_name.text
+					sql="ALTER TABLE `#{@table}` CHANGE `#{alter_field["Field"]}` `#{field_name.text}` 
+					#{field_type.entry.text}#{field_size.text!="" ? "(#{field_size.text})":""}
+					#{field_null.active? ? "NULL" : "NOT NULL"} 
+					#{field_default.text!="" ? "DEFAULT '#{field_default.text}' ":""}"
+				sql2=field_index.active? != (alter_field["Key"] == "MUL") ? field_index.active? ? "alter table `#{@table}` add index(`#{field_name.text}`)" : "alter table `#{@table}` drop index `#{field_name.text}`" : nil
+					@fields[alter_field["Field"]].destroy
+					@fields.delete(alter_field["Field"])
+				else
+					sql="ALTER TABLE `#{@table}` MODIFY `#{field_name.text}` 
+					#{field_type.entry.text}#{field_size.text!="" ? "(#{field_size.text})":""}
+					#{field_null.active? ? "NULL" : "NOT NULL"} 
+					#{field_default.text!="" ? "DEFAULT '#{field_default.text}' ":""}"
+				sql2=field_index.active? != (alter_field["Key"] == "MUL") ? field_index.active? ? "alter table `#{@table}` add index(`#{field_name.text}`)" : "alter table `#{@table}` drop index `#{field_name.text}`" : nil
+				end
+			end
+			
+			begin
+				client.query(sql)
+				client.query(sql2) if sql2
+			rescue =>err
+				retry if tell_exception("error altering the table",backtrace_to_debug(err),"server","error",false,true,err)
+			end
+			reload
+		end
+		dialog.destroy
+	end
+	
+	def inspect
+		"RTable:#{table}"
+	end
+	def to_s
+		inspect
+	end
+	def center_on_me
+		show_neighbours
+		widget.realize unless widget.realized?
+		sx,sy = widget.translate_coordinates(@parentM.widget,-@parentM.allocation.width/3,-@parentM.allocation.height/3)
+		sx1,sy1 = widget.translate_coordinates(@parentM.widget,widget.allocation.width+@parentM.allocation.height/3,widget.allocation.height+@parentM.allocation.height/3)
+		@parentM.hadjustment.clamp_page(sx,sx1)
+		@parentM.vadjustment.clamp_page(sy,sy1)
+	end
+	def is_view?
+		@is_view
+	end
+end
+

data/lib/RelationBuilder/Relation/RelationHandle.rb

@@ -0,0 +1,70 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+	class RelationHandle < Gtk::EventBox
+		def initialize(relation,x,y)
+			super()
+			visible_window=false
+			add(@widget=Gtk::ToggleButton.new)
+			set_above_child(true)
+			@widget.set_size_request(10,10)
+			@dragging=false
+			@relation=relation
+			@x=x
+			@y=y
+			@widget.signal_connect("toggled"){|me,ev|
+				@relation.parentM.review_all
+				@relation.parentM.changed(@relation)
+			}
+			signal_connect('button-press-event'){|me,ev|
+				@relation.parentM.set_focused_item(self)
+				case ev.button 
+					when 1
+						@widget.set_active(!@widget.active?)
+					when 2
+						@xshift=ev.x
+						@yshift=ev.y
+						@dragging=true
+					when 3
+						menu=Gtk::Menu.new
+						menu.signal_connect("deactivate"){|menu| @relation.parentM.set_focused_item(nil)}
+						menu.append(er=Gtk::ImageMenuItem.new("properties").set_image(Gtk::Image.new(Gtk::Stock::PROPERTIES,Gtk::IconSize::MENU)))
+							er.signal_connect("activate"){|me| @relation.edit}
+						menu.append(rr=Gtk::ImageMenuItem.new("remove").set_image(Gtk::Image.new(Gtk::Stock::DISCONNECT,Gtk::IconSize::MENU)))
+							rr.signal_connect("activate"){|me| @relation.remove}
+						menu.show_all
+						menu.popup(nil,nil,ev.button,ev.time)
+				end
+				true
+			}
+			signal_connect('motion-notify-event'){|me,event|
+			if @dragging
+				@x=@relation.parentM.widget.pointer[0]-@xshift 
+				@y=@relation.parentM.widget.pointer[1]-@yshift 
+				move_me
+			end
+			true
+			}
+			signal_connect('button-release-event'){|me,event|
+				if @dragging
+					@relation.save
+					@dragging=false
+				end
+				@relation.parentM.set_focused_item(nil)
+				true
+			}
+		end
+		attr_reader :widget, :x, :y
+		attr_accessor :dragging
+
+		def move_me(newx=x,newy=y)
+			@x=newx
+			@y=newy
+			parent.move(self,x,y) if parent
+		end
+		def to_s
+			"Handle of #{@relation}"
+		end
+	end
+

data/lib/RelationBuilder/Relation.rb

@@ -0,0 +1,161 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class Relation 
+	include ManqodCommon
+
+	def initialize(parentM,rfield1,rfield2,rel_name="",rel_type="o",relation_id=nil,xi=0,yi=0,rel_custom="")
+		super()
+		@rfield1=rfield1
+		@rfield2=rfield2
+		@parentM=parentM
+		@rel_type=rel_type
+		@rel_name=rel_name
+		@rel_custom=rel_custom
+		@relation_id=if relation_id then relation_id.to_i else nil;end
+		@handle=RelationHandle.new(self,xi,yi)
+#		if coo=rfield1.translate_coordinates(parentM.widget,0,0) and coo2=rfield2.translate_coordinates(parentM.widget,0,0)
+#		@handle.move_me(x || 0,y || 0)
+#		end
+#		parentM.widget.show_all
+		@shown=false
+	end
+	attr_reader :rfield1, :rfield2, :parentM, :rel_type, :handle, :relation_id, :rel_name, :rel_custom
+
+	def x
+		@handle.x
+	end
+	def y
+		@handle.y
+	end
+
+	def show_me
+		parentM.widget.put(@handle,@handle.x,@handle.y) unless @shown
+		@handle.show_all
+		@shown=true
+		self
+	end
+	def hide_me
+		parentM.widget.remove(@handle) if @shown
+		@shown=false
+		self
+	end
+	def set_visibility(vis)
+		if vis
+			show_me
+			else
+			hide_me
+		end
+	end
+
+	def shown?
+		@shown
+	end
+
+	def active?
+		@handle.widget.active?
+	end
+	def set_active(new_a)
+		@handle.widget.set_active(new_a)
+	end
+
+	def set_rel_type(rel_type)
+		@rel_type=rel_type
+	end
+	
+	def save
+		if @relation_id.nil?
+			query("insert into relations set rel_type='#{@rel_type}'")
+			@relation_id=qrow("select id from `relations` order by id desc limit 1")["id"]
+			parentM.clear
+			edebug("#{self} inserted","relation-builder","info")
+		end
+		if rfield1.nil? or rfield2.nil?
+			edebug("id:#{@relation_id} has a lost table","relation-builder","warning")
+			else
+			query("update relations set src_table = '#{@rfield1.table.table}', dst_table = '#{@rfield2.table.table}', src_field='#{@rfield1.field["Field"]}', dst_field='#{@rfield2.field["Field"]}', rel_type='#{@rel_type}', rbx='#{@handle.x}', rby='#{@handle.y}', rel_name='#{@rel_name}', rel_custom='#{@rel_custom}' where id='#{@relation_id}'")
+			edebug("updated","relation-builder","info")
+		end
+	end
+	
+	def set_rfield2(new_rfield2=rfield2)
+		@rfield2=new_rfield2
+	end
+
+	def remove
+		query("delete from relations where id='#{@relation_id}'") if !@relation_id.nil?
+		parentM.relations.delete(self)
+		parentM.clear
+		@handle.destroy
+	end
+
+	def edit
+		dialog=Gtk::Dialog.new("relation properties",
+			@handle.get_ancestor(Gtk::Window),
+			Gtk::Dialog::MODAL | Gtk::Dialog::DESTROY_WITH_PARENT,
+			[Gtk::Stock::OK, Gtk::Dialog::RESPONSE_ACCEPT] #,
+#			[Gtk::Stock::CANCEL, Gtk::Dialog::RESPONSE_REJECT]
+			)
+		dialog.vbox.
+			pack_start_defaults(many2one=Gtk::ToggleButton.new("Many to One")).
+			pack_start_defaults(rel_dir=Gtk::Button.new("change direction")).
+			pack_start_defaults(description=Gtk::Label.new).
+			pack_start_defaults(Gtk::HBox.new.pack_start_defaults(Gtk::Label.new("alias")).pack_start_defaults(rel_name_widget=Gtk::Entry.new.set_text(@rel_name))).
+			pack_start_defaults(Gtk::HBox.new.pack_start_defaults(Gtk::Label.new("and join condition")).pack_start_defaults(rel_custom_widget=Gtk::Entry.new.set_text(@rel_custom))).
+			pack_start_defaults(remove_rel=Gtk::ToggleButton.new("Remove"))
+			
+		rel_dir.signal_connect('pressed'){|me|
+			a=@rfield1
+			@rfield1=@rfield2
+			@rfield2=a
+			description.set_label("#{if many2one.active? then "Many" else "One" end} #{@rfield1.table_name} to One #{@rfield2.table_name}") unless @rfield1.nil? or @rfield2.nil?
+		}
+		many2one.signal_connect("toggled"){|me|
+			description.set_label("#{if many2one.active? then "Many" else "One" end} #{@rfield1.table_name} to One #{@rfield2.table_name}") unless @rfield1.nil? or @rfield2.nil?
+		}
+		many2one.set_active(rel_type=="m")
+
+		description.set_label("#{if many2one.active? then "Many" else "One" end} #{@rfield1.table_name} to One #{@rfield2.table_name}") unless @rfield1.nil? or @rfield2.nil?
+		dialog.signal_connect('response'){|dialog,response|
+#			rfield1.set_active(false)
+#			rfield2.set_active(false)
+			if response == Gtk::Dialog::RESPONSE_ACCEPT
+				if remove_rel.active?
+					remove
+					else
+					@rel_name=rel_name_widget.text
+					@rel_custom=rel_custom_widget.text
+					set_rel_type(if many2one.active? then "m"; else "o";end)
+					save
+					show_me
+				end
+			end
+			dialog.destroy
+		}
+		dialog.show_all
+	end
+
+	def other_field(rfield)
+		if rfield == rfield1
+			rfield2
+			else
+			if rfield == rfield2
+				rfield1
+				else
+				nil
+			end
+		end
+	end
+	
+	def visible?
+		@handle.visible?
+	end
+
+	def inspect
+		"relation #{@rel_name}(#{relation_id}) #{rfield1.table.table}.#{rfield1.field_name} <-> #{rfield2.table.table}.#{rfield2.field_name}"
+	end
+	def to_s
+		"relation #{rel_type} of #{rfield1} and #{rfield2}"
+	end
+end

data/lib/RelationBuilder/RunQuery.rb

@@ -0,0 +1,55 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+class RunQuery < Gtk::Window
+	include ManqodCommon
+	def initialize(rb)
+		@rb=rb
+		super()
+		whsv=false
+		begin
+			whsv=Gtk::SourceView::BUILD_VERSION
+			rescue => err
+			einfo("no Gtk::SourceView, falling back")
+		end
+		set_size_request(600,300)
+		set_destroy_with_parent(true)
+		set_modal(true)
+		set_window_position(Gtk::Window::POS_CENTER_ON_PARENT)
+		set_decorated(true)
+		#hide on escape
+		signal_connect("key-release-event"){|me,ev| hide if ev.keyval == Gdk::Keyval::GDK_KEY_Escape}
+		@ag=Gtk::AccelGroup.new
+		@ag.connect(Gdk::Keyval::GDK_KEY_q, Gdk::Window::CONTROL_MASK, Gtk::ACCEL_VISIBLE){show_all}
+		
+		add(Gtk::VBox.new.
+			pack_start(@widget=whsv ? Gtk::SourceView.new : Gtk::TextView.new,true,true).
+			pack_start(Gtk::HBox.new.pack_start(Gtk::Label.new).
+				pack_start(runb=Gtk::Button.new("Run"),false,false),false,false)
+		)
+		if whsv
+			@widget.buffer.set_language(Gtk::SourceLanguageManager.new.get_language("sql"))
+			@widget.set_auto_indent(true).
+			set_highlight_current_line(true).
+			set_indent_on_tab(true).
+			set_show_line_numbers(true).
+			set_indent_on_tab(true).
+			set_indent_width(4)
+		end
+		@widget.set_editable(true)
+		runb.signal_connect('clicked'){|me|
+			client_query(@widget.buffer.text)
+		}
+	end
+
+	def hide
+		super
+		@rb.set_focused_item(nil)
+	end
+	def update(win)
+		win.add_accel_group(@ag)
+		set_transient_for(win)
+	end
+end
+

data/lib/RelationBuilder/SearchWindow.rb

@@ -0,0 +1,72 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+	class SearchWindow < Gtk::Window
+		def initialize(rb)
+			@rb=rb
+			super(Gtk::Window::POPUP)
+			add(
+				Gtk::Table.new(3,2).
+					attach(@search_entry=Gtk::Entry.new.set_can_default(true),0,3,0,1).
+					attach(@left_arrow=Gtk::Button.new.set_image(Gtk::Image.new(Gtk::Stock::GO_BACK,Gtk::IconSize::SMALL_TOOLBAR)).set_can_focus(false).set_can_default(false),0,1,1,2,Gtk::EXPAND,Gtk::EXPAND).
+					attach(@combo=Gtk::ComboBox.new(Gtk::TreeModelFilter.new(Gtk::ListStore.new(String,TrueClass))).set_width_request(300).set_can_focus(false).set_can_default(false),1,2,1,2).
+					attach(@right_arrow=Gtk::Button.new.set_image(Gtk::Image.new(Gtk::Stock::GO_FORWARD,Gtk::IconSize::SMALL_TOOLBAR)).set_can_focus(false).set_can_default(false),2,3,1,2)
+			)
+			set_destroy_with_parent(true)
+			set_modal(true)
+			set_window_position(Gtk::Window::POS_CENTER_ON_PARENT)
+			set_decorated(false)
+			@combo.pack_start(renderer=Gtk::CellRendererText.new,true).add_attribute(renderer,:text,0)
+			@combo.model.set_visible_column(1)
+			@combo.signal_connect("changed"){
+				if @combo.active_iter and @rb.tables.has_key?(@combo.active_iter[0])
+					@rb.tables[@combo.active_iter[0]].center_on_me
+					@rb.set_focused_item(@rb.tables[@combo.active_iter[0]])
+				end
+			}
+			#hide on escape
+			@search_entry.signal_connect("key-release-event"){|me,ev| hide if ev.keyval == Gdk::Keyval::GDK_KEY_Escape}
+			@combo.signal_connect("key-release-event"){|me,ev| hide if ev.keyval == Gdk::Keyval::GDK_KEY_Escape}
+			#step left
+			@left_arrow.signal_connect("pressed"){|me| 
+				unless i=@combo.active_iter then i=@combo.model.iter_first end
+				ii=@combo.model.iter_first
+				iip=ii.clone
+				until ii == i do iip=ii.clone;ii.next!;end
+				@combo.set_active_iter(iip)
+			}
+			#step right
+			@right_arrow.signal_connect("pressed"){|me| 
+				if i=@combo.active_iter then i.next! else i=@combo.model.iter_first end
+				@combo.set_active_iter(i)
+			}
+			@search_entry.signal_connect("key-release-event"){|me,ev|
+				@combo.model.child_model.each{|model,path,iter|
+					iter[1]=!iter[0].upcase.index(me.text.upcase).nil?
+				}
+			}
+
+			@ag=Gtk::AccelGroup.new
+			@ag.connect(Gdk::Keyval::GDK_KEY_f, Gdk::Window::CONTROL_MASK, Gtk::ACCEL_VISIBLE){
+				show_all
+			}
+		end
+		
+		def hide
+			super
+			@rb.set_focused_item(nil)
+		end
+
+		def update(win)
+			win.add_accel_group(@ag)
+			set_transient_for(win)
+			@combo.model.child_model.clear
+			@rb.tables.each_key{|tname|
+				iter=@combo.model.child_model.append()# if tname.upcase.index(me.text.upcase)
+				iter[0]=tname
+			}
+			
+		end
+	end
+