manqod 1.1505.0

data/lib/FormHolder/Form/InputHolder/Common/Model.rb

@@ -0,0 +1,337 @@
+#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 MyRendererModel < Gtk::TreeModelFilter
+	include ManqodCommon
+	class Filterer < Gtk::Window
+		def initialize(model)
+			@model=model
+			super(Gtk::Window::POPUP)
+			add(Gtk::VBox.new)
+			child.pack_start(Gtk::Label.new("filter: #{model.pc.item['description']}"))
+			child.pack_start(@entry=Gtk::Entry.new.set_can_focus(true).set_can_default(true))
+			set_destroy_with_parent(true)
+			set_modal(true)
+			set_decorated(false)
+			set_window_position(Gtk::Window::POS_CENTER_ON_PARENT)
+			entry.signal_connect('activate'){|me|
+				@old_text=@entry.text
+				hide
+			}
+			entry.signal_connect("key-release-event",self){|me,ev,filterer|
+				if ev.keyval == Gdk::Keyval::GDK_KEY_Escape
+					#set the old filter back
+					model.typed=@old_text
+					@entry.set_text(@old_text)
+					model.refilter
+					filterer.hide
+					else
+					#filter
+					model.typed=me.text
+					model.refilter
+				end
+			}
+		end
+		attr_accessor :entry, :model
+		
+		def run(parent_window)
+			@old_text=@entry.text
+			set_transient_for(parent_window.get_ancestor(Gtk::Window))
+			show_all
+		end
+	end
+
+  def initialize(pc)
+  	@idx=Hash.new
+	@pc=pc
+	@typed=""
+	td=item["type_def"]
+	ta=Hash.new
+	@desc=Hash.new
+	@filterer=Filterer.new(self)
+	@column_order=Array.new
+	
+	if multiselector?
+		ta[:multiselector]=:multiselector
+		column_order.push(:multiselector)
+	end
+
+	td.split("]").each{|t|
+		if first=t.index("[")
+			parts=t[first+1 .. t.length].split(":")
+			hkey=parts[0]
+			hval=parts[1]||""
+			hdesc=parts[2]||""
+			ta[hkey]=hval
+			@desc[hkey]=hdesc
+			column_order.push(hkey)
+			edebug("header keys: |#{hkey}|=>|#{ta[hkey]}|(#{@desc[hkey]})","form-combo")
+		end
+	}
+	
+	if ta.empty?
+	  @type_def={'cdisplay'=>"text"}
+	  column_order.push('cdisplay')
+	  else
+	  @type_def=ta
+	end
+	
+	@header_types=Array.new.push(String) #for id?
+	@renderers=Hash.new
+#		  set_wrap_width(1)
+	i=1
+#		  type_def.each_pair{|key,val|
+	column_order.each{|key|
+	  case type_def[key]
+	  		when :multiselector
+	  			if pc.class.name == "MyRendererList::List"
+	  				renderer=Gtk::CellRendererToggle.new.set_activatable(true)
+						column=Gtk::TreeViewColumn.new("",renderer, {:active => i})
+						pc.append_column(column)
+						renderer.signal_connect("toggled",i,self){|me,path,col,fmodel|
+							iter=fmodel.convert_iter_to_child_iter(fmodel.get_iter(path))
+							iter[col]=!iter[col]
+						}
+
+						header_types.push(TrueClass)
+						renderers[key]=renderer
+						pc.parentM.set_multiselector(self)
+	  			else
+	  				ewarn("multiselector attribute can only be interpreted on a List Form item")
+	  			end
+			  when "text"
+				renderer=Gtk::CellRendererText.new
+#				renderer.set_width(20)
+				case pc.class.name
+				  when "MyRendererCombo","MyRendererConstCombo", "FieldCombo"
+						pc.pack_start(renderer,true)
+						pc.add_attribute(renderer,:text,i)
+				  when "MyRendererList::List"
+						column=Gtk::TreeViewColumn.new(@desc[key]||"",renderer, {:text => i})
+						pc.append_column(column)
+				  else
+						edebug("unknown parent widget for this model!","form-combo","error")
+				end
+				header_types.push(String)
+				renderers[key]=renderer
+			  when "pixbuf"
+					renderer=Gtk::CellRendererPixbuf.new
+				case pc.class.name
+				  when "MyRendererCombo"
+						pc.pack_start(renderer,true)
+						pc.add_attribute(renderer,:pixbuf,i)
+				  when "MyRendererList"
+						column=Gtk::TreeViewColumn.new(header,renderer, {:pixbuf => i})
+						pc.append_column(column)
+				end
+				header_types.push(Gdk::Pixbuf)
+				renderers[key]=renderer
+
+			  when "toggle"
+				renderer=Gtk::CellRendererToggle.new
+#				renderer.set_width(20)
+				case pc.class.name
+				  when "MyRendererCombo","MyRendererConstCombo", "FieldCombo"
+						pc.pack_start(renderer,true)
+						pc.add_attribute(renderer,:active,i)
+				  when "MyRendererList::List"
+						column=Gtk::TreeViewColumn.new(key,renderer, {:active => i})
+#						column.set_cell_data_func(renderer) { |column, cell, model, iter,col_num| cell.active=iter[i]=='true'}
+						pc.append_column(column)
+				  else
+						edebug("unknown parent widget for this model!","form-combo","error")
+				end
+				header_types.push(TrueClass)
+				renderers[key]=renderer
+				when "hidden"
+				header_types.push(String)
+				renderer=nil
+			  else 
+				renderer=nil
+	  end
+	  i=i+1 if renderer
+	}
+	@tree_key=pc.gtk_attribute("tree_key")
+	@tree=!@tree_key.nil?
+	header_types.push(TrueClass)#visible
+	@column_of_visible=header_types.size-1
+	@mymodel=if @tree then Gtk::TreeStore.new(*header_types) else Gtk::ListStore.new(*header_types) end
+
+	super(mymodel)
+	set_visible_column(@column_of_visible)
+#  pc.set_has_frame(false)
+	pc.set_model(self)
+	pc.set_row_separator_func{|model, iter|  
+	  iter[0]=='separator' or iter[1]=='---'
+	}
+  end
+  attr_accessor :pc
+  attr_accessor :mymodel
+  attr_accessor :typed
+  attr_accessor :header_types
+  attr_accessor :type_def
+  attr_accessor :column_order
+  attr_accessor :renderers
+  attr_accessor :filterer
+	
+	def item
+		pc.item
+	end
+  
+	def update
+		pc.set_model(nil)
+		mymodel.clear
+		@idx.clear
+		#query gtkattribute
+		if item["querysql"].length == 0 && sqlid=pc.gtk_attribute("query")
+			if sql=parentM.admin.qrow("select `sql` from `queries` where `id` = '#{sqlid}'")["sql"]
+				item["querysql"]=sql
+			end
+		end
+		if item['wantnew']
+			iter=if @tree then mymodel.append(nil) else mymodel.append end
+			iter[0]='-1';iter[@column_of_visible]=true
+			iter=if @tree then mymodel.append(nil) else mymodel.append end
+			iter[0]='separator';iter[@column_of_visible]=true
+		end
+		@max_col_widths=Hash.new
+		if item['field']
+			client_fields(item['querysql']){|field|
+					row=Hash.new
+					row['name']=field["name"]
+					row['id']=row["name"]
+					row['type']="#{field['type']}(#{field['length']}"+if field.has_key?("decimals") then "/#{field['decimals']}" else "" end + ")"
+					add_iter(row)
+				}
+			else
+			begin
+				if item['admin']
+					parentM.admin.rows(eeval("\"#{item['querysql']}\"")).each{|row| add_iter(row);}
+					else
+					parentM.rows(eeval("\"#{item['querysql']}\"")).each{|row| add_iter(row);}
+				end
+			rescue => err
+				retry if tell_exception("query error",backtrace_to_debug(err),"server","error",false,true,err.to_s)
+			end
+		end if item['querysql'].length>5
+		
+		@max_col_widths.each_pair{|key,col_width| renderers[key].set_width_chars(col_width) if renderers.has_key?(key)}
+
+		pc.set_model(self)
+	end
+	
+	def add_iter(row)
+				iter=if @tree then mymodel.append(if row[@tree_key].to_i == -1 then nil else find_iter_by_id(row[@tree_key])end) else mymodel.append end
+				iter[0]=row['id'] if row.has_key?("id")
+				iter[0]=row['cdata'] if row.has_key?("cdata")
+				@idx[row['id']]=iter.clone if row.has_key?("id")
+
+				i=0
+				column_order.each{|key|
+				if type_def.has_key?(key) #key!="id" and key!="cdata" and 
+					i=i+1
+					case type_def[key]
+						when "text","hidden"
+							iter[i]=row[key].to_s
+							if row.has_key?(key) and !row[key].nil? 
+								@max_col_widths[key]=row[key].to_s.length unless @max_col_widths.has_key?(key)
+								@max_col_widths[key]=row[key].to_s.length unless @max_col_widths[key] > row[key].to_s.length
+							end
+						when "pixbuf"
+							if row[key].class.name == "String"
+								if row[key].length > 3
+									a=Array.new
+									row[key].each_byte{|v|a.push(v)}
+									begin
+										if pixdata=Gdk::Pixdata.deserialize(a) then iter[i]=pixdata.to_pixbuf(true);end
+										rescue Gdk::PixbufError => err
+									end
+									else
+									iter[i]=client_image_of_id(row[key],"gtk-menu")
+								end
+							end
+						when 'toggle'
+							iter[i]=row[key] == 'true'
+					end
+				end
+				}
+				iter[@column_of_visible]=true
+	end
+	
+	def refilter
+		mymodel.each{|model,path,iter|
+	  	if typed.nil? || typed == "" || iter[0] == 'separator' || iter[0] == '-1' then
+	  		iter[@column_of_visible]=true
+	  	else
+				j=0
+				model.n_columns.downto(1){|i|
+					if iter[i-1].class.name=="String"
+						j+=1 if iter[i-1].upcase.index(typed.upcase)
+					end
+				}
+				if j>0
+					i=iter.clone
+					while i=i.parent
+						i[@column_of_visible]=true
+					end
+					iter[@column_of_visible]=true
+					else
+					iter[@column_of_visible]=false
+				end
+			end
+	  }
+	end
+	
+	def cell_value(col,iter_id=pc.text)
+		fiter=nil
+		ret=nil
+		each {|model, path, iter| fiter=iter if iter[0].to_s==iter_id.to_s }
+		if fiter and c=column_order.index(col)
+			ret=fiter[c+1]
+		end
+		ret
+	end
+	
+	def find_iter_by_id(iter_id)
+		@idx[iter_id]
+	end
+	
+	def toggled_ids
+		ti=Array.new
+		each {|model, path, iter| ti.push(iter[0]) if iter[1] == true} if multiselector?
+
+		ti
+	end
+	
+	def multiselector?
+		pc.class.name == "MyRendererList::List" && pc.pc.pc.multiselector?
+	end
+	
+	def header_descriptions?
+		c=0
+		@desc.each_value{|h| c+=1 if h.length>0}
+		c!=0
+	end
+	
+	def to_s
+		"model of #{pc}"
+	end
+
+	def parentM
+		pc.parentM
+	end
+	def parentselected
+		pc.parentselected
+	end
+	def admin
+		parentM.admin
+	end
+	def my
+		parentM.my
+	end
+	def default
+		item["default"]
+	end
+end
+

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

@@ -0,0 +1,18 @@
+#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 MyRendererConstCombo < MyRendererCombo
+	include ManqodCommon
+	include GtkAttributes
+  def initialize(pc)
+		@pc=pc
+		item['admin']=true
+		item['type_def']="[cdisplay:text][description:text]" if item['type_def'].length<5
+		item['querysql']="select cdata,cdisplay,description from scv where combo='#{item['data']}' order by cdata"
+		super(pc)
+  end
+  attr_accessor :pc
+
+	def to_s;"ConstCombo(#{item["description"]})";end
+end

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

@@ -0,0 +1,17 @@
+#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 MyRendererConstText < MyRendererLabel
+	def initialize(pc)
+		@pc=pc
+		item['admin']=true
+		odata=item["data"]
+		if i=item["data"].rindex(".")
+			item['data']=item["data"][i+1 .. item["data"].length]
+		end
+		item['querysql']="select cdisplay as #{item['data']},description from scv where combo='#{odata}' and cdata='#{pc.default}' order by cdata"
+		super(pc)
+	end
+end
+

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

@@ -0,0 +1,73 @@
+#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 MyRendererDuration < Gtk::Table #Gtk::HBox
+	include ManqodCommon
+	def initialize(pc)
+	  @pc=pc
+	  super(4,2)
+	  attach_defaults(Gtk::Label.new("day"),0,1,0,1)
+	  attach_defaults(Gtk::Label.new("hour"),1,2,0,1)
+	  attach_defaults(Gtk::Label.new("min"),2,3,0,1)
+	  attach_defaults(Gtk::Label.new("sec"),3,4,0,1)
+
+	  attach_defaults(@dw=Gtk::SpinButton.new(0,5*365,1).set_has_frame(false).set_numeric(true).set_increments(1,10).set_digits(0),0,1,1,2)
+	  attach_defaults(@hw=Gtk::SpinButton.new(0,23,1).set_has_frame(false).set_numeric(true).set_increments(1,10).set_digits(0),1,2,1,2)
+	  attach_defaults(@mw=Gtk::SpinButton.new(0,59,1).set_has_frame(false).set_numeric(true).set_increments(1,10).set_digits(0),2,3,1,2)
+	  attach_defaults(@sw=Gtk::SpinButton.new(0,59,1).set_has_frame(false).set_numeric(true).set_increments(1,10).set_digits(0),3,4,1,2)
+ 		@sw.signal_connect('value_changed'){|me| changed}
+ 		@mw.signal_connect('value_changed'){|me| changed}
+ 		@hw.signal_connect('value_changed'){|me| changed}
+ 		@dw.signal_connect('value_changed'){|me| changed}
+	end	
+	attr_accessor :pc
+
+	def item
+		@pc.item
+	end
+	
+	def update(new_value=item['default'])
+	  item['default']=new_value.to_f
+	  run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+	  duration_to_wg(item['default'].to_f) if item['default']
+#	  set_sensitive(item['editable']=="true")
+	  run_events(item['id'],'form_item-AfterUpdate')
+	end
+	
+	def wg_to_duration
+		(@dw.value*24*3600+@hw.value*3600+@mw.value*60+@sw.value).round
+	end
+	def duration_to_wg(d)
+		d,r=(d.to_f).divmod(24*3600)
+		h,r=(r).divmod(3600)
+		m,s=(r).divmod(60)
+		@dw.set_value(d)
+		@hw.set_value(h)
+		@mw.set_value(m)
+		@sw.set_value(s.round)
+	end
+	
+	def text
+		wg_to_duration.to_s
+	end
+
+	def parentselected
+	  @pc.parentselected
+	end
+	
+	def parentM
+	  @pc.parentM
+	end
+	def changed
+			edebug("#{self} changed to #{wg_to_duration}","form","debug")
+			pc.changed
+			pc.notify_observers(self)
+			edebug("#{self} emiting 'changed' to observers","form","debug")
+			run_events(item['id'],'form_item-Action')
+	end
+	def to_s;"Duration(#{item["description"]})";end
+
+end
+

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

@@ -0,0 +1,57 @@
+#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 MyRendererEditableList < Mylist::MyListHolder
+	include ManqodCommon
+	def initialize(pc)
+	  @pc=pc
+	  super(pc.parentM.parentM)
+	  set_parentM(pc.parentM.parentM)
+	  list.set_id(pc.target) unless @pc.parentM.wysiwygf?
+		@pc.set_include_in_query_building(false)
+
+#	  set_has_frame(false)
+=begin
+ 		signal_connect('activate'){|me| 
+			edebug(inspect+" '#{item['data']}' changed to item #{me.active.inspect}","form","debug")
+			pc.changed
+			pc.notify_observers(self)
+			edebug("'#{item['data']}' emiting 'changed' to observers","form","debug")
+			run_events(item['id'],'form_item-Action')
+		}
+=end
+	end	
+	attr_accessor :pc
+
+	def text
+	  list.get_cursor_id.to_s
+	end
+	
+	def item
+		@pc.item
+	end
+	
+	def update(new_value=item['default'])
+	  item['default']=new_value
+	  run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+#	  set_text(item['default'].to_s) if item['default']
+		pc.set_editable(pc.parentM.runmode != "add")
+		super(pc.parentM.parentM) unless @pc.parentM.wysiwygf?
+	  run_events(item['id'],'form_item-AfterUpdate')
+	end
+
+	def parentselected
+	  @pc.parentselected
+	end
+	
+	def method_missing(sym,*args)
+		text
+	end
+	def inspect
+		"Text(#{item["description"]})"
+	end
+	def to_s;inspect;end
+
+end #MyRendererText

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

@@ -0,0 +1,40 @@
+#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 FieldCombo < MyRendererCombo
+	def initialize(pc)
+		@pc=pc
+		item['field']=true
+		item['type_def']="[name:text][type:text]"
+		item['querysql']=""
+#		item['querysql']="select cdata,cdisplay,description from scv where combo='#{item['data']}' order by cdisplay"
+		#parentM should be an admin Form
+		#parentM.parentM should be an EditableList of Formsitems or Listheaders or Forms(in wysiwyg FormEditor)
+		if ppid=pc.parentM.parentM.parentselected
+			if attr_row=qrow("select data from gtkattributes where gtkobjectid='#{ppid}' and gtkobjecttype='form' and `attribute`='table'") and table=attr_row["data"]
+				item['querysql']="select * from `#{table}` limit 1"
+				else
+				if row=parentM.qrow("select moditems.querysql,queries.sql from moditems left join queries on queries.id = moditems.query_sql_id where moditems.id='#{ppid}'")
+					querysql=row['sql'] if !row["sql"].nil? and row["sql"].length>5
+					querysql=row['querysql'] if row["querysql"].length>5
+					item['querysql']="#{querysql} limit 1"
+				end
+			end
+		end
+		super(pc)
+	end	
+	attr_accessor :pc
+
+	def item
+		pc.item
+	end
+	def inspect
+		"FieldCombo #{item["description"]}"
+	end
+	def to_s
+		inspect
+	end
+
+end
+

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

@@ -0,0 +1,40 @@
+#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 FieldList < MyRendererList
+	def initialize(pc)
+		@pc=pc
+		item['field']=true
+		item['type_def']="[name:text:Field][type:text:Type]"
+		item['querysql']=""
+#		item['querysql']="select cdata,cdisplay,description from scv where combo='#{item['data']}' order by cdisplay"
+		#parentM should be an admin Form
+		#parentM.parentM should be an EditableList of Formsitems or Listheaders or Forms(in wysiwyg FormEditor)
+		if ppid=pc.parentM.parentM.parentselected
+			if attr_row=parentM.qrow("select data from gtkattributes where gtkobjectid='#{ppid}' and gtkobjecttype='form' and `attribute`='table'") and table=attr_row["data"]
+				item['querysql']="select * from `#{table}` limit 1"
+				else
+				if row=parentM.qrow("select moditems.querysql,queries.sql from moditems left join queries on queries.id = moditems.query_sql_id where moditems.id='#{ppid}'")
+					querysql=row['sql'] if !row["sql"].nil? and row["sql"].length>5
+					querysql=row['querysql'] if row["querysql"].length>5
+					item['querysql']="#{querysql} limit 1"
+				end
+			end
+		end
+		super(pc)
+	end	
+	attr_accessor :pc
+
+	def item
+		pc.item
+	end
+	def inspect
+		"FieldList #{item["description"]}"
+	end
+	def to_s
+		inspect
+	end
+
+end
+