manqod 1.1505.0

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

@@ -0,0 +1,133 @@
+#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 MyRendererButton < Gtk::Button
+	include ManqodCommon
+	include Conf
+	include MyExec
+  def initialize(pc)
+		@pc=pc
+		super(item['description'])
+		set_relief(Gtk::ReliefStyle::NONE)
+		set_image_position(Gtk::PositionType::RIGHT)
+		set_use_underline(true)
+		signal_connect('clicked'){|me|
+			edebug("#{item['default']} clicked","gtk_button","debug")
+			run_events(item['id'],'form_item-Action')
+			unless target == "-1" || target == "0"
+				if modname=='form'
+					@form=Myform::MyFormHolder.new("dialog",self,@pc.target_runmode,target)
+					@form.set_parentM(parentM)
+					ret=@form.run(text.to_i)
+					update(ret) if ret and ret>0
+					notify_changes
+				else
+				mr=MainRouter.new(w=Gtk::Dialog.new)
+				w.vbox.
+					pack_start(Gtk::HBox.new.
+						pack_start(back_button=Gtk::Button.new(Gtk::Stock::GO_BACK),false,false).
+						pack_start(clear_button=Gtk::Button.new(Gtk::Stock::CLEAR),false,false),
+						false,false).
+					pack_start(mr)
+				back_button.signal_connect("clicked"){|me,ev|
+					update(mr.child.list.get_cursor_id.to_s)
+					w.destroy
+					notify_changes
+				}
+				clear_button.signal_connect("clicked"){|me,ev|
+					update("-1")
+					w.destroy
+					notify_changes
+				}
+				if sw=get_conf(target,0,"width") and sh=get_conf(target,0,"height")
+					w.resize(sw.to_i,sh.to_i)# if sw.to_i * sh.to_i >0
+					else
+					w.resize(600,400)
+				end
+				sx=get_conf(target,0,"x") || 50
+				sy=get_conf(target,0,"y") || 60
+				w.move(sx.to_i,sy.to_i)
+
+				w.maximize if get_conf(target,0,"maximized") == "true"
+				w.iconify if get_conf(target,0,"iconified") == "true"
+				w.fullscreen if get_conf(target,0,"fullscreen") == "true"
+
+				w.set_resizable(true).set_transient_for(@pc.caller.get_ancestor(Gtk::Window)).set_modal(true).show_all
+				w.signal_connect("configure-event"){|me,event|
+					if nick
+						set_conf(target,0,"width",event.width.to_s)
+						set_conf(target,0,"height",event.height.to_s)
+						set_conf(target,0,"x",event.x.to_s)
+						set_conf(target,0,"y",event.y.to_s)
+					end
+					false
+				}
+				w.signal_connect("window-state-event"){|me,event|
+					if nick
+						set_conf(target,0,"maximized",(event.new_window_state &  Gdk::EventWindowState::MAXIMIZED == Gdk::EventWindowState::MAXIMIZED).to_s)
+						set_conf(target,0,"minimized",(event.new_window_state &  Gdk::EventWindowState::ICONIFIED == Gdk::EventWindowState::ICONIFIED).to_s)
+						set_conf(target,0,"minimized",(event.new_window_state &  Gdk::EventWindowState::FULLSCREEN == Gdk::EventWindowState::FULLSCREEN).to_s)
+					end
+					false
+				}
+
+				mr.update(self)
+				mr.child.list.set_cursor_id(text.to_i)
+				end
+			end
+		}
+  end
+  attr_accessor :pc
+
+	def modname
+		@pc.target_module
+	end
+  def update(new_value=item['default'])
+		item['default']=new_value
+		run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+		if @pc.type_def.size == 0
+			set_label(item['default'])
+			else
+			s=""
+			@pc.type_def.each_pair{|key,value| 
+				s="#{s}\n" if s.size>0
+				s="#{s}#{@pc.query_result[key]}" if @pc.query_result.has_key?(key)
+			}
+			set_label(s)
+		  set_image(Gtk::Image.new((text=="-1" || text=="0" ? Gtk::Stock::ADD : Gtk::Stock::EDIT ),Gtk::IconSize.from_name(get_conf(0,0,"button-size"))))
+		  notify_changes
+		end
+		edebug("#{text} updated","gtk_button","info")
+		run_events(item['id'],'form_item-AfterUpdate')
+  end
+
+  def text
+		item['default'].to_s
+  end
+
+  def parentM
+		pc.parentM
+  end
+  
+  def target
+		item['to_call']
+  end
+  def item
+		pc.item
+  end
+   def inspect
+		"Button(#{item['description']})"
+	end
+	def to_s
+		inspect
+	end
+
+	def notify_changes
+		edebug("'#{item['data']}' changed","form")
+		pc.changed
+		pc.notify_observers(self)
+		edebug("'#{item['data']}' emiting 'changed' to observers","form")
+	end
+end

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

@@ -0,0 +1,101 @@
+#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 MyRendererCalendar < Gtk::Calendar
+	include ManqodCommon
+  def initialize(pc)
+		@pc=pc
+		super()
+		set_show_details(true) if respond_to?("set_show_details")
+		set_show_week_numbers(true)
+		show_day_names=true
+		signal_connect("next-year"){|me|
+			run_events(item['id'],'form_item-Action')
+			pc.changed
+			pc.notify_observers(self)
+		}
+		signal_connect("prev-year"){|me|
+			run_events(item['id'],'form_item-Action')
+			pc.changed
+			pc.notify_observers(self)
+		}
+	
+		signal_connect("month-changed"){|me|
+			run_events(item['id'],'form_item-Action')
+			pc.changed
+			pc.notify_observers(self)
+		}
+	
+		signal_connect("day-selected"){|me|
+			check_limits
+			run_events(item['id'],'form_item-Action')
+			pc.changed
+			pc.notify_observers(self)
+		}
+	end	
+	attr_accessor :pc
+  
+  def item
+  	pc.item
+  end
+	
+	def check_limits
+		@last_text=item["default"] if @last_text.nil?
+		if pc.get_min and pc.get_min > text
+			tell_exception("min:#{pc.get_min}")
+			set_text(@last_text)
+			return false
+		end
+		if pc.get_max and pc.get_max < text
+			tell_exception("max:#{pc.get_max}")
+			set_text(@last_text)
+			return false
+		end
+		@last_text=text
+		return true
+	end
+	
+	def text
+		d=self.date
+		return lzero(d[0],4).to_s+"-"+lzero(d[1],2).to_s+"-"+lzero(d[2],2).to_s
+	end
+  
+	def set_text(t)
+		if t != nil
+			tt=t.split(" ")
+			if tt[0] != nil
+				f=tt[0].split('-')
+				if f[0].nil? or f[0].to_i==0
+					f[0]=Time.now.year
+					f[1]=Time.now.month
+					f[2]=Time.now.day
+				end
+
+				set_year(f[0].to_i) if f[0]
+				set_month(f[1].to_i-1) if f[1]
+				if f[2]
+					set_day(f[2].to_i)
+					mark_day(f[2].to_i)
+				end
+			end
+		end
+	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']) if item['default']
+		run_events(item['id'],'form_item-AfterUpdate')
+	end
+  
+	def parentselected
+		pc.parentselected
+	end
+  
+	def parentM
+		pc.parentM
+	end
+end
+

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

@@ -0,0 +1,117 @@
+#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 MyRendererCalendarButton < Gtk::Button
+	include ManqodCommon
+	include Conf
+	include MyExec
+  def initialize(pc)
+		@pc=pc
+		super(item['description'])
+		@calendar_win=Gtk::Window.new(Gtk::Window::POPUP)
+		@calendar_win.set_modal(true).set_has_frame(false).add(@calendar=Gtk::Calendar.new).set_transient_for(@pc.caller.get_ancestor(Gtk::Window))
+
+		@calendar.set_show_details(true) if @calendar.respond_to?("set_show_details")
+		@calendar.show_day_names=true
+		@calendar.signal_connect("month-changed"){|me|
+			@month_changed=true
+		}
+
+		@calendar.signal_connect("day-selected"){|me|
+			run_events(item['id'],'form_item-Action')
+			set_label(calendar_text)
+			if @month_changed
+				@month_changed=false
+				else
+				@calendar_win.hide
+			end
+			pc.changed
+			pc.notify_observers(self)
+		}
+		@calendar.signal_connect("key-release-event"){|me,ev| @calendar_win.hide if ev.keyval == Gdk::Keyval::GDK_KEY_Escape}
+
+		signal_connect('clicked'){|me|
+			edebug("#{item['default']} clicked","gtk_button")
+			x,y=@pc.caller.get_ancestor(Gtk::Window).position
+			xd,yd=translate_coordinates(@pc.caller.get_ancestor(Gtk::Window),x,y+allocation.height+allocation.y)
+			@calendar_win.move(xd,yd)
+			@calendar_win.show_all
+		}
+  end
+  attr_accessor :pc
+
+  def update(new_value=item['default'])
+		item['default']=new_value
+		run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+		set_text(item['default'])
+		einfo("updated","gtk_button")
+		run_events(item['id'],'form_item-AfterUpdate')
+  end
+
+  def text
+		label
+  end
+  
+  def calendar_text
+		d=@calendar.date
+		return lzero(d[0],4).to_s+"-"+lzero(d[1],2).to_s+"-"+lzero(d[2],2).to_s
+	end
+
+	def set_text(t)
+		if t != nil
+			tt=t.split(" ")
+			if tt[0] != nil
+				f=tt[0].split('-')
+				if f[0].nil? or f[0].to_i==0
+					f[0]=Time.now.year
+					f[1]=Time.now.month
+					f[2]=Time.now.day
+				end
+
+				@calendar.set_year(f[0].to_i) if f[0]
+				@calendar.set_month(f[1].to_i-1) if f[1]
+				if f[2]
+					@calendar.set_day(f[2].to_i)
+					@calendar.mark_day(f[2].to_i)
+				end
+			end
+		end
+		set_label(calendar_text)
+	end
+
+	def check_limits
+		@last_text=item["default"] if @last_text.nil?
+		if pc.get_min and pc.get_min > text
+			warn("min:#{pc.get_min}")
+			set_text(@last_text)
+			return false
+		end
+		if pc.get_max and pc.get_max < text
+			warn("max:#{pc.get_max}")
+			set_text(@last_text)
+			return false
+		end
+		@last_text=text
+		return true
+	end
+
+  def parentM
+		pc.parentM
+  end
+  
+  def target
+		item['to_call']
+  end
+  def item
+		pc.item
+  end
+   def inspect
+		"CalendarButton(#{item['description']})"
+	end
+	def to_s
+		inspect
+	end
+
+end

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

@@ -0,0 +1,54 @@
+#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 MyRendererColorButton < Gtk::ColorButton
+	include ManqodCommon
+	include Conf
+  def initialize(pc)
+		@pc=pc
+		super()
+		set_use_alpha(false)
+		signal_connect('clicked'){|me|
+			edebug("#{item['default']} clicked","gtk_button","debug")
+			run_events(item['id'],'form_item-Action')
+		}
+  end
+  attr_accessor :pc
+
+  def update(new_value=item['default'])
+		item['default']=new_value
+		run_events(item['id'],'form_item-BeforeUpdate')
+		begin
+			set_color(Gdk::Color.parse("##{item['default']}"))
+		rescue => err
+			ewarn("#{item['default'].inspect} not a valid color")
+		end
+		edebug(item['default'].to_s+" updated","gtk_button","info")
+		run_events(item['id'],'form_item-AfterUpdate')
+  end
+
+  def text
+  	t=""
+		color.to_a.each{|i| t="#{t}#{sprintf("%02x",i/255)}"}
+		t
+  end
+
+  def parentM
+		pc.parentM
+  end
+  
+  def target
+		nil
+  end
+  def item
+		pc.item
+  end
+  def inspect
+		"ColorButton(#{item['description']})"
+	end
+	def to_s
+		inspect
+	end
+
+end

data/lib/FormHolder/Form/InputHolder/Combo.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 MyRendererCombo < Gtk::ComboBox
+	include ManqodCommon
+	include GtkAttributes
+	
+	def initialize(pc)
+		@pc=pc
+		super(false)
+		item['wantnew']=true
+		set_model(MyRendererModel.new(self))
+		signal_connect('changed'){|me| 
+			edebug(inspect+" '#{item['data']}' changed to item #{me.active.inspect}","form-combo","debug")
+			pc.changed
+			pc.notify_observers(self)
+			edebug("'#{item['data']}' emiting 'changed' to observers","form-combo","debug")
+			run_events(item['id'],'form_item-Action')
+		}
+	end	
+		
+	attr_accessor :pc
+		
+	def item
+		pc.item
+	end
+	
+		
+	def update(new_value=item['default'])
+		item['default']=new_value
+		edebug("update called for #{inspect}, setting value #{new_value}","form-combo","debug")
+		run_events(item['id'],'form_item-BeforeUpdate')
+		model.update
+		select_value(item['default'])
+		run_events(item['id'],'form_item-AfterUpdate')
+  end
+		
+	def get_value_from_text(selected_combo_text)
+		selected_combo_value=nil
+		model.mymodel.each {|model, path, iter| selected_combo_value=iter[0] if iter[1]==selected_combo_text }
+		return selected_combo_value
+	end
+	  
+	def get_text_from_value(selected_combo_value)
+		selected_combo_text=nil
+		model.mymodel.each {|model, path, iter| selected_combo_text=iter[0] if iter[1]==selected_combo_value }
+		return selected_combo_text
+	end
+		
+	def text
+		if active_iter
+			self.active_iter[0]
+			else
+			""
+		end
+	end
+
+	def select_value(selected_value=item['default'])
+	  item['default']=selected_value.to_s
+	  found_and_selected=false
+	  model.mymodel.each {|m, path, iter|  
+			if iter[0]==item['default']
+				set_active_iter(model.convert_child_iter_to_iter(iter))
+				found_and_selected=true
+			end
+	  }
+	  found_and_selected
+	end
+
+	def parentselected
+		pc.parentselected
+  end
+  def parentM
+		pc.parentM
+  end
+  def to_s
+		"Combo(#{item['description']})"
+  end
+	  
+end
+

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

@@ -0,0 +1,103 @@
+#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 MyRendererComboWithNew < Gtk::HBox
+	include ManqodCommon
+  include Myform
+	include GtkAttributes
+  class ComboButton < Gtk::Button
+  	include ManqodCommon
+		include Observable
+		def initialize
+			super()
+	  	set_label("")
+			set_image(Gtk::Image.new(Gtk::Stock::INDEX,Gtk::IconSize::MENU))
+			set_relief(Gtk::ReliefStyle::NONE)
+		end
+		
+		def update(notifier)
+			set_image(Gtk::Image.new(
+			case notifier.parentM.runmode
+				when "info" then Gtk::Stock::INFO
+				when "wysiwygf" then Gtk::Stock::PROPERTIES
+				else (notifier.text=="-1" || notifier.text=="" ? Gtk::Stock::ADD : Gtk::Stock::EDIT )
+			end ,Gtk::IconSize::MENU))
+		end
+	end
+	
+	def initialize(pc)
+		@pc=pc
+		item['wantnew']=true
+		super()
+		@combo=MyRendererCombo.new(pc)
+		@button=ComboButton.new
+		pc.add_observer(button)
+		pack_start(combo,true,true,0) 
+		button.signal_connect('clicked'){|c|
+			@form=Myform::MyFormHolder.new("dialog",self,@pc.target_runmode,target)
+			@form.set_parentM(parentM)
+			ret=form.run(text.to_i)
+			combo.update(ret) if ret and ret>0
+		}
+		pack_end(button,false,false,0) 
+	end
+	attr_accessor :combo
+	attr_accessor :button
+	attr_accessor :pc
+	attr_accessor :form
+  
+	def update(to_select=item['default'])
+		combo.update(to_select)
+		button.update(combo)
+	end
+	
+	def item
+		pc.item
+	end
+	
+	def text
+		combo.text
+	end
+	
+	def select_value(selected_value)
+		combo.select_value(selected_value)
+	end
+	
+	def get_text_from_value(selected_combo_value)
+		combo.get_text_from_value(selected_combo_value)
+	end
+	
+	def get_value_from_text(selected_combo_text)
+		combo.get_value_from_text(selected_combo_text)
+	end
+  
+	def target
+		pc.target
+	end
+	
+	def parentM
+		pc.parentM
+	end
+	
+	def query
+		parentM.query
+	end
+	
+	def set_sensitive(sens)
+		@combo.set_sensitive(sens)
+		self
+	end
+	
+	def model
+		combo.model
+	end
+	
+	def qrow
+		parentM.qrow
+	end
+  def inspect
+		"Combo(#{item["description"]})"
+  end
+
+end