manqod 1.1505.0

data/lib/FormHolder/Form/InputHolder/QBuilder/QObject.rb

@@ -0,0 +1,269 @@
+#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 QObject < Gtk::HBox
+	include ManqodCommon
+=begin
+	q - the QueryBuilder
+	link_or_fields - link: an object from the RelationBuilder
+				 				 - fields: the fields from the table `qobjects`
+=end
+	def initialize(q,link_or_fields=nil)
+		whsv=false
+		begin
+			whsv=Gtk::SourceView::BUILD_VERSION
+			rescue => err
+			einfo("no Gtk::SourceView, falling back")
+		end
+		super() #("initializing")
+		pack_start(Gtk::ScrolledWindow.new.set_policy(Gtk::PolicyType::AUTOMATIC,Gtk::PolicyType::NEVER).set_shadow_type(Gtk::ShadowType::NONE).add(@widget=whsv ? Gtk::SourceView.new : Gtk::TextView.new))
+		@rel_reverted=false
+		@q=q
+		@custom="false"
+		case link_or_fields.class.name
+			when "Hash" then
+				#load
+				@my_id=link_or_fields["id"]
+				@obj_type=link_or_fields["obj_type"]
+				@obj_id=link_or_fields["obj_id"]
+				@field=link_or_fields["field"]
+				@custom=link_or_fields["custom"]
+				@rel_reverted=!@field.nil? && @field.include?("reverted")
+				set_link_from_data
+			when "RField" then
+				@link=link_or_fields
+				@my_id=nil
+				@obj_type="f"
+				@field=link.field_name
+				@obj_id=link.table.table_id
+				store
+			when "RTable" then
+				@link=link_or_fields
+				@my_id=nil
+				@obj_type="b"
+				@obj_id=link.table_id
+				store
+			when "Relation" then
+				@link=link_or_fields
+				@my_id=nil
+				@obj_type="r"
+				@obj_id=link.relation_id.to_i
+				store
+			else edebug("unknown link: #{@link}(#{link_or_fields.class.name})","relation-builder",WARNING)
+		end
+
+		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_indent_on_tab(true).
+			set_indent_width(4)
+		end
+		@widget.set_editable(is_custom?)
+		@widget.modify_base(Gtk::StateType::NORMAL,Gdk::Color.parse("yellow")) if is_custom?
+		@widget.signal_connect("focus-out-event"){|me,ev|
+			@field=text
+			store
+			@q.update(@q)
+			false
+			}
+		@q.qobjects.push(self)
+		case @obj_type
+			when "b" then @q.from.pack_start(self,false,false)
+			when "f" then
+				@q.select.pack_start(self,false,false)
+				pack_start(rmbutton=Gtk::Button.new.set_image(Gtk::Image.new(Gtk::Stock::CANCEL,Gtk::IconSize::MENU)).set_relief(Gtk::ReliefStyle::NONE),false)
+				rmbutton.signal_connect("clicked"){|me| self.delete}
+			when "r" then
+				@q.from.pack_start(self,false,false)
+				pack_start(rotbutton=Gtk::ToggleButton.new.set_image(Gtk::Image.new(Gtk::Stock::REFRESH,Gtk::IconSize::MENU)).set_relief(Gtk::ReliefStyle::NONE),false)
+				pack_start(rmbutton=Gtk::Button.new,false)
+				rmbutton.set_image(Gtk::Image.new(Gtk::Stock::CANCEL,Gtk::IconSize::MENU)).set_relief(Gtk::ReliefStyle::NONE).signal_connect("clicked"){|me| self.delete}
+				rotbutton.set_active(@rel_reverted)
+				rotbutton.signal_connect("toggled"){|me| 
+					@rel_reverted=me.active?
+					store
+					@q.update(@q)
+				}
+		end
+		show_all
+		case @link.class.name
+			when "RField","Relation" then @link.set_active(true)
+		end
+	end
+	attr_reader :link, :obj_type, :obj_id
+
+	def is_custom?
+		return false if @custom.nil?
+		@custom == "true"
+	end
+
+	def find_base_dir(rel,been_there=nil)
+		if been_there.nil?
+			been_there=Array.new
+		end
+		been_there.push(rel.relation_id)
+		ret=nil
+		ret=rel.rfield1 if rel.rfield1.table.table_id.to_i == @q.base_object.obj_id.to_i
+		ret=rel.rfield2 if rel.rfield2.table.table_id.to_i == @q.base_object.obj_id.to_i
+		unless ret
+			@q.rb.relations.each{|r|
+				unless been_there.include?(r.relation_id)
+					if r.rfield1.table.table_id == rel.rfield1.table.table_id or r.rfield2.table.table_id == rel.rfield1.table.table_id 
+						if other_dir=find_base_dir(r,been_there)
+							ret=rel.rfield1
+						end
+					end
+					if r.rfield1.table.table_id == rel.rfield2.table.table_id or r.rfield2.table.table_id == rel.rfield2.table.table_id 
+						if other_dir=find_base_dir(r,been_there)
+							ret=rel.rfield2
+						end
+					end
+					break if ret
+				end
+			}
+		end
+		ret
+	end
+
+	def gen_text
+		ret=""
+		if is_custom?
+			ret=@field || ""
+		else
+			begin
+				case @obj_type
+					when "f" then ret="`#{@link.table.table}`.`#{@link.field_name}`#{"," unless last_field?}"
+					when "r" then
+						dir=find_base_dir(@link)
+						dir=@link.other_field(dir) if @rel_reverted #reverted path
+						edebug("field to base: #{dir}","relation-builder",INFO)
+						if dir
+							other_field=@link.other_field(dir)
+							edebug("field to base other_field: #{other_field}","relation-builder",INFO)
+							if @link.rel_name == ""
+								ret="left join `#{other_field.table.table}` on `#{other_field.table.table}`.`#{other_field.field_name}` = `#{dir.table.table}`.`#{dir.field_name}`"
+							else
+								ret="left join `#{other_field.table.table}` as #{@link.rel_name} on `#{@link.rel_name}`.`#{other_field.field_name}` = `#{dir.table.table}`.`#{dir.field_name}`"
+							end
+							unless @link.rel_custom == ""
+								ret="#{ret} and #{@link.rel_custom}"
+							end
+						else
+							ret="can't reach base"
+						end
+					when "b" then
+						ret="`#{@link.table}`"
+					else ret="unknown object type"
+				end
+			rescue =>err
+				edebug("#{err}, #{backtrace_to_debug(err)}\n","relation-builder","warning")
+				ret="unavailable object"
+			end
+		end
+		ret
+	end
+
+	def set_link_from_data
+		#if any data changed this should be called. it'll try to link to another object
+		unless is_custom?
+			@link=case @obj_type
+				when "b" then @q.rb.table_by_id(@obj_id)
+				when "f" then if table=@q.rb.table_by_id(@obj_id) then table.fields[@field]; end
+				when "r" then @q.rb.relation_by_id(@obj_id)
+				else 
+					edebug("unknown type: #{@obj_type}","relation-builder",WARNING)
+					nil
+			end
+		end
+		update
+	end
+	
+	def update
+		@widget.buffer.set_text(gen_text)
+	end
+	def set_link(new_link)
+		@link=new_link
+		self
+	end
+	def set_obj_id(new_obj_id)
+		@obj_id=new_obj_id
+		set_link_from_data
+		store
+	end
+
+	def store
+		edebug("storing(#{@my_id})","relation-builder")
+		if is_custom?
+			isql="`obj_id`='#{@obj_id}', `obj_type`='#{@obj_type}', `field`='#{escape_string(@field)}', `custom`='#{@custom}', `query_id`='#{@q.query_id}'"
+		else
+			isql=nil
+			case @link.class.name
+				when "RField" then isql="`obj_id`='#{@obj_id}', `field`='#{@link.field_name}', `obj_type`='#{@obj_type}', `query_id`='#{@q.query_id}'"
+				when "RTable" then isql="`obj_id`='#{@obj_id}', `obj_type`='#{@obj_type}', `query_id`='#{@q.query_id}'"
+				when "Relation" then isql="`obj_id`='#{@obj_id}', `obj_type`='#{@obj_type}', `query_id`='#{@q.query_id}', `field`='#{"reverted" if @rel_reverted}'"
+				else edebug("don't store: #{link.class.name}","relation-builder",INFO)
+			end
+		end
+		if isql
+			if @my_id
+				sql="update `qobjects` set #{isql} where `id`='#{@my_id}'"
+				else
+				sql="insert into `qobjects` set #{isql}"
+			end
+			query(sql)
+			@my_id=qrow("select id from `qobjects` order by id desc limit 1")["id"] unless @my_id
+		end
+	end
+
+	def delete
+		query("delete from `qobjects` where id='#{@my_id}'") if @my_id
+		@q.qobjects.delete(self)
+		self.destroy
+		if is_custom?
+			#so all qobjects get updated
+			@q.update(@q)
+		else
+			#update the link, that will also update all qobjects
+			case @link.class.name
+				when "RField" then @link.set_active(false)
+				when "Relation" then @link.set_active(false)
+			end
+		end
+	end
+
+	def last_field?
+		last_field=nil
+		@q.qobjects.reverse_each{|qobject|
+			if qobject.obj_type == "f"
+				last_field = qobject
+				break
+			end
+		}
+		last_field == self
+	end
+
+	def set_text(new_text)
+		@widget.buffer.set_text(new_text)
+	end
+
+	def text
+		@widget.buffer.text
+	end
+
+	def inspect
+		"QObject of #{@link}(#{@obj_type} id:#{@my_id})"
+	end
+
+	def to_s
+		inspect
+	end
+	
+	def center_on_link
+		link.center_on_me unless link.nil?
+	end
+
+end
+

data/lib/FormHolder/Form/InputHolder/QBuilder.rb

@@ -0,0 +1,333 @@
+#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 QBuilder <  Gtk::HPaned
+  include ManqodCommon
+  include Conf
+
+	def initialize(pc)
+		@pc=pc
+		@qobjects=Array.new
+		super()
+		
+		whsv=false
+		begin
+			whsv=Gtk::SourceView::BUILD_VERSION
+			rescue => err
+			einfo("no Gtk::SourceView, falling back")
+		end
+
+		add1(Gtk::VBox.new(false,1).
+			pack_start(@info=Gtk::Table.new(2,3),false).
+			pack_start(Gtk::ScrolledWindow.new.set_policy(Gtk::PolicyType::AUTOMATIC,Gtk::PolicyType::AUTOMATIC).add_with_viewport(@holder=Gtk::VBox.new(false,0))).
+			pack_start(@controls=Gtk::VBox.new,false,true))
+		add2(@rb=RelationBuilder.new(true))
+
+		@info.attach_defaults(Gtk::Label.new("name"),0,1,0,1).attach_defaults(@name=Gtk::Entry.new,1,2,0,1).
+			attach_defaults(Gtk::Label.new("base"),0,1,1,2).attach_defaults(Gtk::HBox.new.pack_start(@base=Gtk::ComboBox.new(Gtk::ListStore.new(Integer,String))).pack_end(@goto_button=Gtk::Button.new.set_image(Gtk::Image.new(Gtk::Stock::JUMP_TO,Gtk::IconSize.from_name(get_conf(0,0,"button-size")))),false,false),1,2,1,2).
+			attach_defaults(Gtk::Label.new("comment"),0,1,2,3).attach_defaults(@comment=Gtk::Entry.new,1,2,2,3)
+		update_base_selector
+		@goto_button.signal_connect('clicked'){|me|
+			base_object.center_on_link
+		}
+		@base.pack_start(renderer=Gtk::CellRendererText.new,false).add_attribute(renderer,:text,1).signal_connect("changed"){|me|
+			save_query
+			if bo=base_object
+				bo.set_obj_id(me.active_iter[0]) unless me.active_iter.nil?
+				else
+				bo=QObject.new(self,rb.table_by_id(me.active_iter[0]))
+			end
+			update(self)
+#			base_object.center_on_link
+			@rb.set_base_object(bo.link)
+			false
+		}
+		@name.signal_connect("activate"){|me|save_query;false}
+		@comment.signal_connect("activate"){|me|save_query;false}
+		
+		@where=whsv ? Gtk::SourceView.new : Gtk::TextView.new
+		@group_by=whsv ? Gtk::SourceView.new : Gtk::TextView.new
+
+		@holder.pack_start(
+			Gtk::Frame.new.
+				set_label_widget(Gtk::HBox.new(false,10).pack_start(Gtk::Label.new("SELECT")).pack_end(select_button=Gtk::Button.new)).
+				set_shadow_type(Gtk::ShadowType::IN).
+				add(@select=Gtk::VBox.new),false,true).
+			pack_start(Gtk::Frame.new.
+				set_label_widget(Gtk::HBox.new(false,10).pack_start(Gtk::Label.new("FROM")).pack_end(from_button=Gtk::Button.new)).
+				set_shadow_type(Gtk::ShadowType::IN).
+				add(@from=Gtk::VBox.new),false,true).
+			pack_start(Gtk::Frame.new("WHERE").set_shadow_type(Gtk::ShadowType::IN).add(@where),false,true).
+			pack_start(Gtk::Frame.new("GROUP BY").set_shadow_type(Gtk::ShadowType::IN).add(@group_by),false,true).
+			pack_start(Gtk::Label.new,true,true)
+
+		@controls.pack_start(Gtk::HBox.new(false).
+				pack_start(@autotest=Gtk::ToggleButton.new("auto")).
+				pack_start(@test_now=Gtk::Button.new("test")).
+				pack_start(@view_sql=Gtk::Button.new("show")).
+				pack_start(@save_as_view=Gtk::Button.new("store")),false,true).
+			pack_start(Gtk::ScrolledWindow.new.set_policy(Gtk::PolicyType::AUTOMATIC,Gtk::PolicyType::AUTOMATIC).add_with_viewport(@result=Gtk::Button.new),false)
+		@where.buffer.set_language(Gtk::SourceLanguageManager.new.get_language("sql")) if whsv
+		@where.signal_connect("focus-out-event"){|me,ev|
+			if @autotest.active?
+				save_query
+				test_query
+			end
+			false
+		}
+		@group_by.buffer.set_language(Gtk::SourceLanguageManager.new.get_language("sql")) if whsv
+		@group_by.signal_connect("focus-out-event"){|me,ev|
+			if @autotest.active?
+				save_query
+				test_query
+			end
+			false
+		}
+		@test_now.signal_connect("pressed"){|me|
+				save_query
+				test_query
+		}
+		@view_sql.signal_connect("pressed"){|me|
+				save_query
+				w=Gtk::Dialog.new(@name.text,parentM.get_ancestor(Gtk::Window),Gtk::Dialog::DESTROY_WITH_PARENT ,[ Gtk::Stock::CLOSE, Gtk::Dialog::RESPONSE_NONE ])
+				w.vbox.add(Gtk::ScrolledWindow.new.add(sview=Gtk::SourceView.new.set_editable(false))).set_size_request(600,400)
+				sview.buffer.set_text(sql).set_language(Gtk::SourceLanguageManager.new.get_language("sql"))
+				sview.set_highlight_current_line(true).
+					set_show_line_numbers(true)
+				w.show_all
+				w.run{|response| w.destroy}
+		}
+		@result.signal_connect("pressed"){|me,ev|
+				begin
+					w=Gtk::Dialog.new(@name.text,parentM.get_ancestor(Gtk::Window),Gtk::Dialog::DESTROY_WITH_PARENT ,[ Gtk::Stock::CLOSE, Gtk::Dialog::RESPONSE_NONE ])
+					res=ManqodDB.instance.manqod_db.client.query(sql)
+					htypes=Array.new
+					headers=Hash.new
+					row=res.fetch_hash(true)
+					#build headertypes
+					i=0
+					row.each_key{|k|
+						htypes.push(String)
+						headers[i]=k
+						i+=1
+					}
+					model=Gtk::ListStore.new(*htypes)
+					sview=Gtk::TreeView.new(model)
+					#create and add columns
+					headers.sort.each{|k|
+						col=Gtk::TreeViewColumn.new(k[1],Gtk::CellRendererText.new, {:text => k[0]}).set_resizable(true).set_sort_column_id(k[0]).set_reorderable(true)
+						sview.append_column(col)
+					}
+					begin
+						i=model.append
+						row.each{|k,v| i[headers.index(k)]=v}
+					end while (row=res.fetch_hash(true))
+					sview.set_model(model)
+					w.vbox.add(Gtk::ScrolledWindow.new.add(sview).set_policy(Gtk::POLICY_AUTOMATIC,Gtk::POLICY_AUTOMATIC)).set_size_request(600,400)
+					w.show_all
+					w.run{|response| w.destroy}
+				rescue =>err
+					warn(err,backtrace_to_debug(err))
+				end
+		}
+		@save_as_view.signal_connect("pressed"){|me|
+			store_query
+		}
+
+
+		select_button.set_image(Gtk::Image.new(Gtk::Stock::ADD,Gtk::IconSize::MENU)).set_relief(Gtk::ReliefStyle::NONE)
+		select_button.signal_connect('clicked'){|me|
+			QObject.new(self,{"custom"=>"true", "obj_type"=>"f", "field"=>"*"}).store
+			update(self)
+		}
+
+		from_button.set_image(Gtk::Image.new(Gtk::Stock::ADD,Gtk::IconSize::MENU)).set_relief(Gtk::ReliefStyle::NONE)
+		from_button.signal_connect('clicked'){|me|
+			QObject.new(self,{"custom"=>"true", "field"=>"left join ", "obj_type"=>"r"})
+			update(self)
+		}
+#	holder.pack_end(button_holder,false,false,1)
+	
+#		add(rb_holder)
+
+#		set_query_id(query_id)
+		@rb.add_observer(self)
+		signal_connect("destroy"){|me| save_query}
+  end
+  attr_reader :qobjects, :rb, :pc, :from, :where, :groupby, :select, :query_id
+
+  def update(new_value=item['default'],notifier=nil)
+=begin
+	first argument:
+		- new_value - for FormItem compatibility
+		- notifier - we are RelationBuilder's observer
+	second argument
+		subnotifier - if notification comes from RelationBuilder, this will be
+			RField Button - pressed, so we create or remove qobject for it
+			RTable - added or removed
+=end
+  	case new_value.class.name
+  		when "String"
+				item['default']=new_value
+				run_events(item['id'],'form_item-BeforeUpdate')
+				@rb.update(self)
+				set_query_id(item['default'].to_i)
+				run_events(item['id'],'form_item-AfterUpdate')
+			when "RelationBuilder"
+				if notifier.class.name == "RTable" || notifier.nil? #if nil then removed table
+					#update base combo
+					update_base_selector
+				else
+					qobject=qobject_by_link(notifier)
+					if notifier.active?
+						QObject.new(self,notifier) unless qobject
+					else
+						qobject.delete if qobject
+					end
+				end
+			when "QBuilder"
+				#we update ourself
+			else
+				edebug("notifier: #{new_value.class.name}","relation-builder",WARNING)
+		end
+		@qobjects.each{|qobject| qobject.update}
+		test_query if @autotest.active?
+		show_all
+	end
+
+	def save_query
+		if @query_id == 0 or @query_id == -1
+			query("insert into `queries` set `base`='#{base}', name='#{name}', comment='#{comment}', `where_clause` = '#{escape_string(where_clause)}', `group_by` = '#{escape_string(group_by_clause)}', `sql`='#{escape_string(sql)}'")
+			@query_id=qrow("select id from queries order by id desc limit 1")["id"]
+			edebug("new query created: #{name}(#{@query_id})","relation-builder","debug")
+			parentM.parentselected=@query_id.to_i
+			parentM.runmode="modify"
+		else
+			query("update `queries` set `base`='#{base}', name='#{name}', comment='#{comment}', `where_clause` = '#{escape_string(where_clause)}', `group_by` = '#{escape_string(group_by_clause)}', `sql`='#{escape_string(sql)}' where id='#{@query_id}'")
+			edebug("query updated: #{name}(#{@query_id})","relation-builder","debug")
+		end
+	end
+	def test_query
+		begin
+			res=ManqodDB.instance.manqod_db.client.query(sql)
+			ret="fields: #{res.num_fields}\nrows: #{res.num_rows}"
+		rescue =>err
+			ret="#{err}"
+		end
+		@result.set_label(ret)
+	end
+	def store_query
+		save_query
+		vsql="create or replace view #{@name.text} as #{sql}"
+		begin
+			res=ManqodDB.instance.manqod_db.client.query(vsql)
+			ret="stored"
+		rescue =>err
+			ret="#{err}"
+		end
+		@result.set_label(ret)
+	end
+
+	def set_query_id(query_id)
+		@qobjects.each{|key,qobject| qobject.destroy}
+		@qobjects.clear
+		@query_id=query_id
+		if @query_id and row=qrow("select * from queries where id='#{@query_id}'")
+			@name.set_text(row["name"])
+			@comment.set_text(row["comment"])
+			@where.buffer.set_text(row["where_clause"])
+			@group_by.buffer.set_text(row["group_by"])
+			found=nil
+			rows("select * from qobjects where query_id='#{query_id}' order by id"){|qo|
+				#@qobjects[qo["obj_id"]]=
+				QObject.new(self,qo)
+#				@holder.pack_start_defaults(@qobjects[qo["obj_id"]])
+			}
+			@base.model.each{|model,path,iter| if iter[0] == row["base"].to_i then found=iter;break;end}
+			if found
+				@base.set_active_iter(found)
+			end
+		end
+		@qobjects.each{|qobject| qobject.update}
+	end
+	
+	def base_object
+		found=nil
+		@qobjects.each{|qobject|
+			found=qobject if qobject.obj_type == "b"
+		}
+		found
+	end
+
+	def parentM
+		pc.parentM
+	end
+	def item
+		pc.item
+	end
+
+	def text
+		if @query_id
+			"#{@query_id}"
+		else
+			""
+		end
+	end
+
+	def base
+		if @base.active_iter
+			@base.active_iter[0]
+			else
+			0
+		end
+	end
+	def name
+		@name.text
+	end
+	def comment
+		@comment.text
+	end
+	def qobject_by_link(link)
+		found=nil
+		@qobjects.each{|qobject|
+			found=qobject if qobject.link == link
+		}
+		found
+	end
+	def where_clause
+		@where.buffer.text
+	end
+	def group_by_clause
+		@group_by.buffer.text
+	end
+	def sql
+		s="select "
+		@select.each{|so| s="#{s}\n#{so.text}"}
+		s="#{s}\nfrom "
+		@from.each{|so| s="#{s}\n#{so.text}"}
+		s="#{s}\nwhere #{where_clause}" unless where_clause.length == 0
+		s="#{s}\ngroup by #{group_by_clause}" unless group_by_clause.length == 0
+		s
+	end
+
+	def update_base_selector
+		exval=@base.active_iter[0].to_i unless @base.active_iter.nil?
+		@base.model.clear
+		rows("select id,name from tables order by name"){|row|
+			iter=@base.model.append
+			iter[0]=row["id"].to_i
+			iter[1]=row["name"]
+			@base.set_active_iter(iter) if iter[0].to_i == exval
+		}
+	end
+
+	def inspect
+		"QBuilder"
+	end
+
+	def to_s
+		inspect
+	end
+end
+

data/lib/FormHolder/Form/InputHolder/RadioGroup.rb

@@ -0,0 +1,82 @@
+#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 MyRendererRadioGroup < Gtk::ScrolledWindow
+	include ManqodCommon
+	def initialize(pc)
+		super()
+		set_policy(Gtk::POLICY_AUTOMATIC,Gtk::POLICY_AUTOMATIC)
+		add_with_viewport(@widget=Gtk::VBox.new)
+		@pc=pc
+		@selected="-1"
+		@items=Hash.new
+		@first=nil
+		item['admin']=true
+		item['querysql']="select cdata,cdisplay,description from scv where combo='#{item['data']}' order by cdata"
+
+	end
+	attr_accessor :pc
+	attr_accessor :items,:first
+	attr_accessor :selected
+  
+	def update(new_value=item['default'])
+		item['default']=new_value
+		run_events(item['id'],'form_item-BeforeUpdate')
+		items.each_value{|rb| rb.destroy}
+		items.clear
+		@selected=item['default']
+		if item['admin']
+			q=parentM.admin.query(eeval("\"#{item['querysql']}\""))
+		else
+			q=parentM.query(eeval("\"#{item['querysql']}\""))
+		end
+
+		if q
+			while row=q.fetch_hash()
+				rb=if items.length==0
+					@first=Gtk::RadioButton.new(row['cdisplay'])
+					else
+					Gtk::RadioButton.new(first,row['cdisplay'])
+				end
+				
+				to_activate=rb if row['cdata']==item['default'] #.set_sensitive(item['editable']=="true")
+				@selected=row['cdata'] if rb.active?
+				rb.signal_connect('toggled',row['cdata']){|me,cdata|
+					if me.active?
+						@selected=cdata
+						edebug("#{self} changed to item #{selected}","form-combo","debug")
+						pc.changed
+						pc.notify_observers(self)
+						run_events(item['id'],'form_item-Action')
+					end
+				}
+				
+				@widget.pack_start(rb)
+				items[row['cdata']]=rb
+			end
+		end
+		show_all
+		if to_activate
+			to_activate.toggled #emit the action
+			to_activate.set_active(true) #set the default
+		end 
+		run_events(item['id'],'form_item-AfterUpdate')
+	end
+	
+	def parentM
+		pc.parentM
+	end
+	def item
+		pc.item
+	end
+	def text
+		selected
+	end
+	def inspect
+		"RadioGroup(#{item["description"]})"
+	end
+	def to_s;inspect;end
+
+end
+