manqod 1.1505.0

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

@@ -0,0 +1,131 @@
+#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 MyFileChooserButton < Gtk::FileChooserWidget
+	include ManqodCommon
+	include Conf
+	def initialize(pc)
+		@pc=pc
+		action=case item['action']
+			when 'load' then Gtk::FileChooser::Action::OPEN
+			when 'save' then Gtk::FileChooser::Action::SAVE
+		end
+		super(action)
+#	 set_select_multiple(false)
+		path=get_conf(0,item['id'],"path")
+		set_current_folder(path) if !path.nil?
+
+		preview=Gtk::Image.new
+		set_preview_widget(preview)
+		signal_connect("update-preview") {
+			filename = preview_filename
+			begin
+				have_pixbuf=true
+				pixbuf = Gdk::Pixbuf.new(filename, 128, 128)
+				rescue
+					have_pixbuf=false
+			end
+			preview_widget.set_pixbuf(pixbuf)
+			set_preview_widget_active(have_pixbuf)
+		}
+		begin
+			@ftp=eval(pc.gtk_attribute("ftp-access").to_s)
+		rescue =>err
+			ewarn(err)
+		end
+		pack_start(@progress=Gtk::ProgressBar.new,false,true,1) if @ftp.class==Array
+	end
+	attr_accessor :pc, :progress, :ftp
+	
+	def item
+		@pc.item
+	end
+  
+	def update(nfilename=item['default'])
+		run_events(item['id'],'info_item-BeforeUpdate')
+		edebug("filename to set: |#{nfilename}|","list-filechooser","debug")
+		set_current_name(nfilename) if nfilename
+		run_events(item['id'],'info_item-AfterUpdate')
+	end
+	
+	def text
+		filename[current_folder.length() +1 .. filename.length()]
+	end
+	
+	def load
+		ret=String.new
+		file = File.new(filename, "rb")
+		ret=file.read
+		file.close
+		edebug("loaded","list-filechooser","debug")
+		set_conf(0,item['id'],"path",current_folder) 
+		ret
+	end
+	
+	def save(content)
+		file = File.new(filename, "wb+")
+		file.write(content)
+		file.close
+		edebug("saved","list-filechooser","debug")
+		set_conf(0,item['id'],"path",current_folder) 
+	end
+	
+	def ftp_store
+		unless @ftp.class==Array
+			warn("no ftp access defined")
+			return false
+		end
+		set_conf(0,item['id'],"path",current_folder)
+  	ftp=Net::FTP.new(@ftp[0],@ftp[1],@ftp[2])
+  	@ftp[3].each("/"){|s|
+			begin
+				ecode("changing ftp dir: #{s}")
+				ftp.chdir(s)
+			rescue =>err
+				ecode("creating ftp dir: #{s}")
+				ftp.mkdir(s)
+				retry
+			end
+		} if @ftp[3]
+  	perc=0
+  	ftp.putbinaryfile(filename,text,File.size(filename)/100){
+  		progress.set_fraction(perc/100.0)
+  		Gtk.show_thread_changes
+  		perc+=1
+  	}
+  	ftp.close
+	end
+
+	def ftp_get
+		unless @ftp.class==Array
+			warn("no ftp access defined")
+			return false
+		end
+		set_conf(0,item['id'],"path",current_folder)
+  	ftp=Net::FTP.new(@ftp[0],@ftp[1],@ftp[2])
+  	@ftp[3].each("/"){|s|
+			ecode("changing ftp dir: #{s}")
+			ftp.chdir(s)
+		} if @ftp[3]
+  	perc=0
+  	ecode(item["initial"])
+  	ftp.getbinaryfile(item["initial"],filename,ftp.size(item["initial"])/100){
+  		progress.set_fraction(perc/100.0)
+  		Gtk.show_thread_changes
+  		perc+=1
+  	}
+  	ftp.close
+	end
+
+	
+	def loadPixbuf
+		set_conf(0,item['id'],"path",current_folder) 
+		pixdata=Gdk::Pixdata.from_pixbuf(Gdk::Pixbuf.new(filename),true)
+		a=pixdata.serialize
+		r=""
+		a.each{|v|r=r+v.chr}
+		r
+	end
+end
+

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

@@ -0,0 +1,37 @@
+#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 MyRendererFontButton < Gtk::FontButton
+	include ManqodCommon
+  def initialize(pc)
+		@pc=pc
+		super(item['default'])
+		set_use_font(true)
+		signal_connect('font-set'){|me|
+			edebug(item['default']+" font-set","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')
+		set_font_name(item['default'])
+		edebug(item['default'].to_s+" updated","gtk_button","info")
+		run_events(item['id'],'form_item-AfterUpdate')
+  end
+
+  def text
+		font_name
+  end
+
+  def parentM
+		pc.parentM
+  end
+  
+  def item
+		pc.item
+  end
+end

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

@@ -0,0 +1,74 @@
+#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 FormImage < Gtk::Button
+	include ManqodCommon
+	def initialize(pc)
+		@pc=pc
+		super()
+		set_relief(Gtk::ReliefStyle::NONE)
+		signal_connect("clicked"){|me,ev|
+			if @pc.editable?
+				fch=Gtk::FileChooserDialog.new
+				fch.set_action(Gtk::FileChooser::Action::OPEN)
+				fch.signal_connect("file-activated"){|me,ev|
+					set_image(load_file(me.filename))
+					me.close
+				}
+				fch.signal_connect("delete-event"){|me,ev|
+					me.destroy
+				}
+				fch.run
+			end
+		}
+	end
+	attr_accessor :pc
+
+	def update(im=item['default'])
+		run_events(item['id'],'info_item-BeforeUpdate')
+		set_image(deserialize_pixdata(im))
+		run_events(item['id'],'info_item-AfterUpdate')
+	end
+
+	def item
+		@pc.item
+	end
+	
+	def deserialize_pixdata(raw)
+		begin
+			pixdata=Gdk::Pixdata.deserialize(Marshal.load(raw))
+			pb=pixdata.to_pixbuf(true)
+			Gtk::Image.new(pb)
+		rescue =>e
+			ewarn("cannot load image: #{e}")
+			Gtk::Image.new(Gtk::Stock::MISSING_IMAGE,Gtk::IconSize::MENU)
+		end
+	end
+	
+	def load_file(filename)
+		im=Gtk::Image.new(filename)
+		if im.storage_type==Gtk::Image::PIXBUF && pc.gtk_attribute('form-image-max-height') && pc.gtk_attribute('form-image-max-height').to_f < im.pixbuf.height
+			nw,nh =im.pixbuf.width*pc.gtk_attribute('form-image-max-height').to_f / im.pixbuf.height, pc.gtk_attribute('form-image-max-height').to_f
+			new_pb=im.pixbuf.scale(nw,nh)
+			im.set_pixbuf(new_pb)
+		end
+		im
+	end
+
+	def set_image(im)
+		super
+		begin
+			item['default']=Marshal.dump(Gdk::Pixdata.from_pixbuf(im.pixbuf,true).serialize)
+		rescue =>err
+			ewarn(err)
+		end
+	end
+
+	def text
+		item["default"]
+	end
+	def modify_font(font)
+	end
+end
+

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

@@ -0,0 +1,44 @@
+#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 MyRendererHScale < Gtk::HScale
+	include ManqodCommon
+	def initialize(pc)
+		@pc=pc
+		super(0,100,1)
+ 		signal_connect('value_changed'){|me| 
+			edebug(inspect+" '#{item['data']}' changed to item #{me.value}","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	
+	attr_accessor :pc
+	
+	def update(new_value=item['default'])
+		item['default']=new_value
+		run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+		set_value(item['default'].to_f) if item['default']
+		run_events(item['id'],'form_item-AfterUpdate')
+	end
+
+	def item
+		pc.item
+	end
+	
+	def text
+		value.to_s
+	end
+	
+	def parentselected
+		pc.parentselected
+	end
+	
+	def parentM
+		pc.parentM
+	end
+	
+end #MyRendererText

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

@@ -0,0 +1,41 @@
+#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 MyRendererHidden
+	include ManqodCommon
+  def initialize(pc)
+		@pc=pc
+  end
+  attr_reader :pc
+
+  def item
+		pc.item
+  end
+    
+  def text
+		item['default'].to_s
+  end
+  
+  def update(new_value=item['default'])
+		item['default']=new_value
+		run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+		run_events(item['id'],'form_item-AfterUpdate')
+  end
+  
+  def parentselected
+		pc.parentselected
+  end
+  def parentM
+		pc.parentM
+  end
+ 	def method_missing(sym,*args)
+  	nil
+  end
+
+	def to_s
+		"Hidden(#{item["description"]})"
+	end
+
+end

data/lib/FormHolder/Form/InputHolder/Label.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 MyRendererLabel < Gtk::Label
+	include ManqodCommon
+	def initialize(pc)
+		@pc=pc
+		super()
+	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']) if item['default']
+		run_events(item['id'],'form_item-AfterUpdate')
+	end
+
+	def item
+		pc.item
+	end
+	
+	def text
+		item["default"]
+	end
+	
+	def set_editable(*args)
+	end
+	
+	def parentselected
+		pc.parentselected
+	end
+	
+	def parentM
+		pc.parentM
+	end
+	
+end #MyRendererText

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

@@ -0,0 +1,176 @@
+#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 MyRendererList < Gtk::VBox
+	include Observable
+	include ManqodCommon
+	
+	class ListButton < Gtk::Button
+		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 if notifier.text=="-1" or notifier.text=="" then Gtk::Stock::ADD else Gtk::Stock::EDIT end
+				end ,Gtk::IconSize::MENU))
+		end
+	end
+	
+	class List < Gtk::TreeView
+	include ManqodCommon
+	include GtkAttributes
+	include	Conf
+		def initialize(pc)
+			@pc=pc
+			super()
+			set_enable_grid_lines(case get_conf(0,0,"form-grid")
+				when "both" then Gtk::TreeView::GridLines::BOTH
+				when "vertical" then Gtk::TreeView::GridLines::VERTICAL
+				when "horizontal" then Gtk::TreeView::GridLines::HORIZONTAL
+					else Gtk::TreeView::GridLines::NONE
+				end
+			) if Gtk.check_version?(2,10,9)
+			set_enable_tree_lines(true)
+			set_rules_hint(true)
+			set_enable_search(false)
+#			enable_search=false
+#			set_search_column(nil)
+		end
+		attr_accessor :pc
+		
+		def update(id_to_select)
+			model.update
+			set_headers_visible(model.header_descriptions?)
+			set_selected(id_to_select)
+		end
+
+		def item
+			pc.item
+		end
+		
+		def parentselected
+			pc.parentselected
+		end
+		
+		def parentM
+			pc.parentM
+		end
+		
+		def text
+			pc.text
+		end
+		
+		def set_selected(id_to_select)
+			id_iter=nil
+			model.each{|model,path,iter|
+				if iter[0]==id_to_select.to_s
+					id_iter=iter
+					expand_to_path(id_iter.path)
+					selection.select_iter(id_iter)
+					scroll_to_cell(path,nil,false,0,0)
+					break
+				end
+			}
+			!id_iter.nil?
+		end
+	end
+	
+	def initialize(pc)
+		@pc=pc
+		@list=List.new(self)
+		@scroller=Gtk::ScrolledWindow.new
+		buttons=Gtk::HButtonBox.new.set_layout_style(Gtk::ButtonBox::END)
+		super()
+		pack_start(scroller)
+		pack_start(buttons,false,false) unless target.to_i == -1
+		button=ListButton.new
+		pc.add_observer(button)
+		button.signal_connect('clicked') do |c|
+			@form=Myform::MyFormHolder.new("dialog",self,@pc.target_runmode,target)
+			@form.set_parentM(parentM)
+			ret=form.run(text.to_i)
+			list.update(ret) if ret and ret>0
+		end
+		buttons.pack_start(button)
+		scroller.set_hscrollbar_policy(Gtk::POLICY_AUTOMATIC).add(list)
+		list.set_model(@model=MyRendererModel.new(list))
+		list.selection.signal_connect('changed'){|me|
+				if me.selected then 
+					edebug("#{self} selection changed by user: #{pc.default} -> #{me.selected[0]}. emiting signal","list-list","debug")
+					pc.changed
+					pc.notify_observers(pc)
+					run_events(item['id'],'form_item-Action')
+				end
+			}
+
+#		signal_connect('key-press-event'){|me,key| list.model.update_filter(me,key)}
+	end
+	attr_accessor :pc, :scroller
+	attr_accessor :list, :model
+	attr_accessor :form
+  
+	def item
+		pc.item
+	end
+  
+	def parentM
+		pc.parentM
+	end
+
+	def text
+		list.selection.selected[0] if !list.selection.selected.nil?
+	end
+	
+	def set_selected(id_to_select)
+		list.set_selected(id_to_select)
+	end
+
+	def update(id_to_select=item['default'])
+		run_events(item['id'],'form_item-BeforeUpdate')
+		list.update(id_to_select)
+		run_events(item['id'],'form_item-AfterUpdate')
+	end #update
+	
+	def set_model(model)
+		list.set_model(model)
+	end
+	
+	def parentselected
+		pc.parentselected
+	end
+	
+	def set_label(label)
+		pc.set_label(label)
+	end
+	
+	def target
+		pc.target
+	end
+	
+	def set_sensitive(sens)
+		@list.set_sensitive(sens)
+		self
+	end
+
+	
+	def query
+		parentM.query
+	end
+	
+	def qrow
+		parentM.qrow
+	end
+	
+	def to_s
+		"List: (#{item['description']})"
+	end
+end #class
+

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

@@ -0,0 +1,63 @@
+#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 MyRendererMultiline < Gtk::ScrolledWindow
+	include ManqodCommon
+	def initialize(pc)
+		@pc=pc
+		super(nil,nil)
+		set_policy(Gtk::POLICY_AUTOMATIC,Gtk::POLICY_AUTOMATIC)
+		@tv=Gtk::TextView.new(@source_buffer = Gtk::TextBuffer.new)
+		add(@tv)
+		@tv.modify_font(Pango::FontDescription.new('Monospace 10'))
+	end
+	attr_accessor :tv
+	attr_accessor :pc
+
+	def item
+		@pc.item
+	end
+	def editable
+		@tv.editable
+	end
+
+	def modify_font(f)
+		@tv.modify_font(f)
+	end
+  
+	def text
+		@tv.buffer.text
+	end
+	
+	def set_sensitive(sens)
+		@tv.set_sensitive(sens)
+	end
+
+	def update(new_value)
+		run_events(item['id'],'form_item-BeforeUpdate')
+		pc.run_query
+	
+		@source_buffer.delete(*@source_buffer.bounds)
+		@source_buffer.insert(@source_buffer.get_iter_at_offset(0),"#{item['default']}")
+		@tv.set_buffer(@source_buffer)
+		edebug("#{self} updated to #{item['default']}","form","info")
+		run_events(item['id'],'form_item-AfterUpdate')
+	end
+  
+	def parentselected
+		@pc.parentselected
+	end
+  
+	def parentM
+		@pc.parentM
+	end
+	def inspect
+		"Multiline(#{item['description']})"
+	end
+	def to_s
+		inspect
+	end
+
+end #MyRendererMultiline
+

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

@@ -0,0 +1,41 @@
+#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 MyRendererPassword < Gtk::Entry
+	include ManqodCommon
+
+	def initialize(pc)
+		@pc=pc
+		super()
+		self.visibility=false
+#		self.editable=true
+	end
+	attr_accessor :item, :pc
+
+	def text
+		np=Digest::MD5.new
+		np << super
+		np.hexdigest.to_s
+	end
+
+	def parentselected
+		pc.parentselected
+	end
+
+	def parentM
+		pc.parentM
+	end
+	def item
+		@pc.item
+	end
+
+	def update(new_value=item['default'])
+		run_events(item['id'],'form_item-BeforeUpdate')
+		item['default']=new_value
+		pc.run_query
+		set_text(item['default'])
+		run_events(item['id'],'form_item-AfterUpdate')
+	end
+end
+