manqod 1.1505.0

data/lib/ManqodHelp/HelpBrowser.rb

@@ -0,0 +1,135 @@
+#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 HelpBrowser < Gtk::ScrolledWindow
+
+	def initialize(help)
+		@help=help
+		super()
+		@item=nil
+		@link_cursor = Gdk::Cursor.new(Gdk::Cursor::HAND2)
+		@hover=false
+		@items=Hash.new
+		@text_view=Gtk::TextView.new(Gtk::TextBuffer.new(FormatTagTable.new(self))).set_editable(false)
+		add_with_viewport(@text_view)
+		@text_view.modify_font(Pango::FontDescription.new('Sans 12')).set_wrap_mode(Gtk::TextTag::WRAP_WORD)
+		set_size_request(500,200)
+		set_policy(Gtk::POLICY_NEVER,Gtk::POLICY_AUTOMATIC)
+		
+		@text_view.signal_connect('motion-notify-event'){|me, ev|
+			x,y = me.window_to_buffer_coords(Gtk::TextView::WINDOW_WIDGET,ev.x,ev.y)
+			iter=me.get_iter_at_location(x,y)
+
+      onlink = false
+      iter.tags.each{|t| onlink=true if t.link}
+
+      if onlink != @hover
+        @hover=onlink
+        me.get_window(Gtk::TextView::WINDOW_TEXT).set_cursor(@hover ? @link_cursor : nil)
+      end
+			false
+     }
+     @text_view.signal_connect('visibility-notify-event'){|me,ev|
+     	me.get_window(Gtk::TextView::WINDOW_TEXT).set_cursor(@hover ? @link_cursor : nil)
+     	false
+     }
+	end
+	attr_reader :items, :help, :item
+
+	def buffer
+		@text_view.buffer
+	end
+	def load_item(item)
+#		p "loading item:#{item}"
+		@item=nil
+		if @items.has_key?(item)
+			empty
+			add_text(@items[item])
+			apply_links
+			@item=item
+			true
+			else
+			p "item not found:#{item}"
+			false
+		end
+	end
+	def load_index
+		p "creating index"
+		txt="[h1]Index[h1]\n\n"
+		@items.each_key{|key|
+			txt="#{txt}#{key}\n"
+		}
+		empty
+		add_text(txt)
+		apply_links
+	end
+	def apply_links
+		@items.each_key{|tag_name|
+			if tag=buffer.tag_table.lookup(tag_name)
+				txt=buffer.get_text
+				i=-1
+				while i=txt.indexU(tag_name,i+1)
+					buffer.apply_tag(tag,buffer.get_iter_at_offset(i),buffer.get_iter_at_offset(i+tag_name.lengthU))
+				end
+			end
+		}
+	end
+	def empty
+		buffer.remove_all_tags(buffer.bounds[0],buffer.bounds[1])
+		buffer.delete(buffer.bounds[0],buffer.bounds[1])
+	end
+
+	def add_item(item,description="")
+		unless @items.has_key?(item)
+			@items[item]=description
+			buffer.tag_table.add(item)
+		end
+		self
+	end
+
+	def clear_items
+		@items.clear
+	end
+
+	def remove_current_item
+		if @item
+			@items.delete(@item)
+			ManqodDB.instance.manqod_db.remove_help_item(@item)
+			empty
+			if tag=buffer.tag_table.lookup(@item)
+				buffer.tag_table.remove(tag)
+			end
+			@item=nil
+			@help.index.populate
+		end
+	end
+	def save_current_item
+		ManqodDB.instance.manqod_db.save_help_item(@item,@items[@item])
+	end
+	def update_current_item(descr)
+		if @item
+			@items[@item]=descr
+			empty
+			add_text(@items[@item])
+			apply_links
+		end
+	end
+	def add_text(ont)
+			txt=ont.clone
+			bounds=Hash.new
+			cr=buffer.tag_table.markup_regexp
+			while cr.source.length>0 && code=txt[cr]
+				bounds[code]=Array.new unless bounds.has_key?(code)
+				bounds[code].push(txt.indexU(code))
+				txt[code]=""
+			end
+			buffer.insert_at_cursor(txt)
+			bounds.each_pair{|code,b|
+				if tag=buffer.tag_table.lookup_by_code(code)
+					b.each_index{|i| buffer.apply_tag(tag,buffer.get_iter_at_offset(b[i]),buffer.get_iter_at_offset(b[i+1])) if (i.divmod(2)[1] == 0) && b[i+1] }
+				end
+			}
+	end
+end
+

data/lib/ManqodHelp/HelpIndex.rb

@@ -0,0 +1,62 @@
+#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 HelpIndex < Gtk::ScrolledWindow
+	def initialize(help)
+		@help=help
+		@path=Array.new
+		super()
+		set_policy(Gtk::POLICY_AUTOMATIC,Gtk::POLICY_AUTOMATIC)
+		@data=Gtk::ListStore.new(String,TrueClass)
+		@filter=Gtk::TreeModelFilter.new(@data)
+		@filter.set_visible_column(1)
+		@sorter=Gtk::TreeModelSort.new(@filter).set_sort_column_id(0)
+		@widget=Gtk::TreeView.new(@sorter)
+		column=Gtk::TreeViewColumn.new("Index",renderer=Gtk::CellRendererText.new, {:text => 0}).set_sort_column_id(0)
+		@widget.append_column(column)
+		add_with_viewport(@widget)
+		@widget.signal_connect("cursor-changed"){|me|
+			if me.cursor
+				item=@sorter.get_iter(me.cursor[0])[0]
+				@path.push(item) if help.browser.load_item(item)
+				@help.update_back_button
+			end
+		}
+
+	end
+	attr_reader :help
+	def populate
+		@data.clear
+		@help.browser.items.each_key{|key|
+			i=@data.append
+			i[0]=key
+			i[1]=true
+		}
+		self
+	end
+	def refilter
+		@data.each{|model,path,iter|
+			iter[1]=iter[0].upcase.index(@help.filter.text.upcase) != nil
+		}
+		@filter.refilter
+	end
+	def set_cursor(item)
+		found=nil
+		loaded=false
+		@data.each{|model,path,iter| found=path if item.upcase == iter[0].upcase}
+		loaded=@widget.set_cursor(@sorter.convert_child_path_to_path(@filter.convert_child_path_to_path(found)),nil,false) if found
+		loaded
+	end
+	def go_back
+		if can_go_back?
+			@path.pop
+			set_cursor(@path.pop)
+			@help.update_back_button
+		end
+	end
+	def can_go_back?
+		@path.size > 1
+	end
+end
+

data/lib/ManqodHelp/HelpToolbar.rb

@@ -0,0 +1,16 @@
+#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 HelpToolbar < Gtk::Toolbar
+	def initialize(help)
+		@help=help
+		super()
+		set_toolbar_style(Gtk::Toolbar::Style::BOTH_HORIZ)
+	end
+	attr_reader :help
+
+	def append(widget=nil)
+		insert(n_items,widget ? Gtk::ToolItem.new.add(widget) : Gtk::SeparatorToolItem.new.set_draw(true))
+	end
+end

data/lib/ManqodHelp.rb

@@ -0,0 +1,120 @@
+#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 ManqodHelp < Gtk::Window
+
+	def initialize
+		@admin=false
+		super()
+		set_title("Manqod Help")
+		add(vb=Gtk::VBox.new)
+		vb.pack_start(@toolbar=HelpToolbar.new(self),false,false).
+			pack_start(hp=Gtk::HPaned.new)
+
+		toolbar.append(@back_button=Gtk::ToolButton.new(Gtk::Stock::GO_BACK))
+		toolbar.append
+		toolbar.append(Gtk::Label.new("Search:"))
+		toolbar.append(@filter=Gtk::Entry.new)
+		toolbar.append(filter_button=Gtk::ToolButton.new(Gtk::Stock::FIND))
+		toolbar.append(clear=Gtk::ToolButton.new(Gtk::Stock::CLEAR))
+		toolbar.append
+		toolbar.append(@formats_button=Gtk::ToolButton.new(Gtk::Stock::BOLD).set_no_show_all(true))
+		toolbar.append(@new_item_button=Gtk::ToolButton.new(Gtk::Stock::NEW).set_no_show_all(true))
+		toolbar.append(@edit_item_button=Gtk::ToolButton.new(Gtk::Stock::EDIT).set_no_show_all(true))
+		toolbar.append(@delete_item_button=Gtk::ToolButton.new(Gtk::Stock::DELETE).set_no_show_all(true))
+		toolbar.append(hidden=Gtk::EventBox.new.add(Gtk::Label.new)).set_expand(true)
+		toolbar.append
+		toolbar.append(@close=Gtk::ToolButton.new(Gtk::Stock::CLOSE))
+
+		hp.add1(@index=HelpIndex.new(self)).
+			add2(@browser=HelpBrowser.new(self)).
+			set_position(150).
+			set_position_set(true)
+
+		filter.signal_connect('activate',filter_button){|me,filter_button|
+			filter_button.clicked
+		}
+		filter_button.signal_connect('clicked'){|me|
+			@index.refilter
+		}
+		clear.signal_connect('clicked'){|me|
+			filter.text=""
+			@index.refilter
+		}
+		@back_button.signal_connect('clicked'){|me|
+			@index.go_back
+		}
+		@close.signal_connect('clicked'){|me|
+			destroy
+		}
+		hidden.signal_connect('event'){|me,ev|
+			if ev.event_type == Gdk::Event::BUTTON3_PRESS
+				@admin=!@admin
+				@formats_button.set_visible(@admin)
+				@new_item_button.set_visible(@admin)
+				@edit_item_button.set_visible(@admin)
+				@delete_item_button.set_visible(@admin)
+			end
+		}
+		@formats_button.signal_connect('clicked'){|me|
+			FormatsEditor.new(self).run
+		}
+		@new_item_button.signal_connect('clicked'){|me|
+			w=Gtk::Dialog.new("New item index",self,Gtk::Dialog::MODAL|Gtk::Dialog::DESTROY_WITH_PARENT,[Gtk::Stock::NEW,Gtk::Dialog::RESPONSE_ACCEPT],[Gtk::Stock::CANCEL,Gtk::Dialog::RESPONSE_REJECT]).set_default_response(Gtk::Dialog::RESPONSE_ACCEPT)
+			w.vbox.pack_start(Gtk::Label.new("Item Index(only use indexes that you want to be links):"),false,false).pack_start(e=Gtk::Entry.new,false,false)
+			w.show_all.run{|response|
+				if response == Gtk::Dialog::RESPONSE_ACCEPT
+					browser.add_item(e.text)
+					index.populate.set_cursor(e.text)
+					browser.save_current_item
+				end
+				w.destroy
+			}
+
+		}
+		@edit_item_button.signal_connect('clicked'){|me|
+			if browser.item
+				w=Gtk::Dialog.new("Editing item",self,Gtk::Dialog::MODAL|Gtk::Dialog::DESTROY_WITH_PARENT,[Gtk::Stock::CLOSE,Gtk::Dialog::RESPONSE_ACCEPT]).set_default_response(Gtk::Dialog::RESPONSE_ACCEPT)
+				w.vbox.pack_start(Gtk::ScrolledWindow.new.add(e=Gtk::TextView.new).set_size_request(400,200).set_policy(Gtk::POLICY_AUTOMATIC,Gtk::POLICY_AUTOMATIC),false,false)
+				e.buffer.set_text(browser.items[browser.item])
+				e.buffer.signal_connect('changed'){|me| browser.update_current_item(me.get_text)}
+				w.show_all.run{|response|
+					browser.save_current_item
+					w.destroy
+				}
+			end
+		}
+		@delete_item_button.signal_connect('clicked'){|me|
+			if browser.item
+				w=Gtk::Dialog.new("Removing item",self,Gtk::Dialog::MODAL|Gtk::Dialog::DESTROY_WITH_PARENT,[Gtk::Stock::DELETE,Gtk::Dialog::RESPONSE_ACCEPT],[Gtk::Stock::CANCEL,Gtk::Dialog::RESPONSE_REJECT]).set_default_response(Gtk::Dialog::RESPONSE_REJECT)
+				w.vbox.pack_start(Gtk::Label.new("Are you sure about removing the selected item?"),false,false)
+				w.show_all.run{|response| 
+					browser.remove_current_item if response == Gtk::Dialog::RESPONSE_ACCEPT
+					w.destroy
+				}
+			end
+		}
+		update_back_button
+	end
+	attr_reader :index, :browser, :toolbar
+	attr_reader :filter, :admin
+
+	def populate
+		browser.clear_items
+		browser.buffer.tag_table.clear
+		i=ManqodDB.instance.cache.get("help_items")
+		i.each_pair{|key,descr| browser.add_item(key,descr)}
+		index.populate
+
+		i=ManqodDB.instance.cache.get("help_formats")
+		i.each_pair{|key,format| browser.buffer.tag_table.add(format)}
+#		buffer.tag_table.add({"name"=>"_header","code"=>Regexp.escape("[h1]"),"font"=>"Sans Bold 20"})
+		
+		self
+	end
+	def update_back_button
+		@back_button.set_sensitive(@index.can_go_back?)
+	end
+end
+

data/lib/ManqodRPC.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 ManqodRPC
+	include DRb
+	include DRbUndumped
+	include Singleton
+	include ManqodCommon
+	def alive?
+		true
+	end
+	def start_service(client_uri)
+		@client_server=DRb.start_service(client_uri,self)
+	end
+	def connect_to(server_uri)
+		@manqod_server=DRb::DRbObject.new(nil,server_uri)
+	end
+	def unregister_client
+		manqod_server.unregister_client(self)
+	end
+	def register_client
+		manqod_server.register_client(self,ManqodDB.instance.manqod_db.name.to_s)
+	end
+	def nick
+		Nick.instance.get_nick
+	end
+	def to_s
+		"#{Nick.instance.get_nick}@#{@client_server.uri}"
+	end
+	def rpc(proc)
+		einfo("RPC:#{proc}","main")
+		eeval(proc,self)
+	end
+	attr_reader :manqod_server, :client_server
+end
+

data/lib/Memcache.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 Memcache
+	def initialize(servers,options={})
+		@prefix_key=options[:prefix_key]
+		@memcache_lib=nil
+		@memcache=nil
+		@version=nil
+		begin
+			@version=Memcached::VERSION
+			einfo("using memcached(#{version})")
+			@memcache_lib=:memcached
+		rescue =>err
+			begin
+				@version=Dalli::VERSION
+				einfo("falling back memcache to dalli(#{version})")
+				@memcache_lib=:dalli
+			rescue =>err
+				eerror("No memcache lib available, Follow install instructions on https://manqod.sourceforge.net")
+			end
+		end
+
+		case memcache_lib
+			when :memcached
+				options[:default_ttl] = 0
+				options[:timeout] = 2
+				@memcache = Memcached.new(servers,options)
+			when :dalli
+				options.delete(:prefix_key)
+				options[:expires_in]=0
+				@memcache = Dalli::Client.new(servers,options)
+			else
+				eeror("No memcache lib available")
+		end
+	end
+	attr_reader :memcache_lib, :memcache, :version
+
+	def get(key)
+		case memcache_lib
+			when :memcached
+				begin
+					return memcache.get(key)
+				rescue Memcached::NotFound
+					ewarn("cannot load data for key:#{key.inspect}")
+					return nil
+				end
+			when :dalli
+				if key.class.name == "Array"
+					values=Hash.new
+					key.each{|k| values[k]=dalli_get_one(k)}
+					return values
+				else
+					dalli_get_one(key)
+				end
+		end
+	end
+	
+	
+	def to_s
+		"Memcache(#{memcache_lib}-#{version})[#{@prefix_key}]"
+	end
+	
+	private
+	def dalli_get_one(key)
+		key=@prefix_key + key
+		begin
+			value = memcache.get(key)
+		rescue
+			#we were connected to the server, we now retry 10 secs
+			t=Time.new if t.nil?
+			retry unless Time.new-t>10
+		end
+		bytes = value.unpack('cc') if value && value.is_a?(String) && value.size > 2
+		if bytes && bytes[0] == 4 && bytes[1] == 8
+			return Marshal.load(value) rescue value
+		end
+		return value
+	end
+end
+

data/lib/MyConfig.rb

@@ -0,0 +1,93 @@
+#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 MyConfig < Gtk::Table
+	class ConfComboHolder < Gtk::HBox
+		include Conf
+		class ConfCombo < Gtk::ComboBox
+			include Conf
+			def initialize(values)
+				super(Gtk::ListStore.new(String,String))
+				pack_start(renderer=Gtk::CellRendererText.new,true).add_attribute(renderer,:text,1)
+				values.each_pair{|key,value| model.append.set_value(0,key).set_value(1,value)}
+				signal_connect('changed'){|me| 
+					set_conf(0,0,parent.conf_text,me.active_iter[0])
+				}
+			end
+			def set_active(defval)
+				model.each{|model,path,iter| set_active_iter(iter) if iter[0] == defval}
+			end
+		end
+		
+		def initialize(label_text,conf_text,values)
+			@conf_text=conf_text
+			super()
+			pack_start(Gtk::Label.new(label_text).set_alignment(0,0.5))
+			pack_end(@combo=ConfCombo.new(values))
+		end
+		attr_accessor :conf_text
+		
+		def update
+			@combo.set_active(get_conf(0,0,@conf_text))
+		end
+	end
+	
+	class ConfFontHolder < Gtk::HBox
+		include Conf
+		def initialize(label_text,conf_text)
+			@conf_text=conf_text
+			super()
+			pack_start(Gtk::Label.new(label_text).set_alignment(0,0.5))
+			pack_end(@font_button=Gtk::FontButton.new)
+			@font_button.signal_connect('font-set'){|me| set_conf(0,0,@conf_text,me.font_name)}
+			@font_button.set_use_font(true)
+		end
+		attr_accessor :conf_text
+		
+		def update
+			@font_button.set_font_name(get_conf(0,0,@conf_text))
+		end
+	end
+	
+	def initialize
+		super(2,4)
+		@items=Array.new
+		@items.push(ConfComboHolder.new("Button size","button-size",{"gtk-button"=>"Button","gtk-dialog" => "Dialog", "gtk-dnd" => "Dnd","gtk-large-toolbar"=>"Large Toolbar","gtk-menu"=>"Menu","gtk-small-toolbar"=>"Small Toolbar"}))
+		@items.push(ConfComboHolder.new("List image size","list-image-size",{"gtk-button"=>"Button","gtk-dialog" => "Dialog", "gtk-dnd" => "Dnd","gtk-large-toolbar"=>"Large Toolbar","gtk-menu"=>"Menu","gtk-small-toolbar"=>"Small Toolbar"}))
+		@items.push(ConfComboHolder.new("Grid in Lists in Forms","form-grid",{"both"=>"Both","vertical"=>"Vertical","horizontal"=>"Horizontal","none"=>"None"}))
+		@items.push(ConfComboHolder.new("Grid in Lists","grid",{"both"=>"Both","vertical"=>"Vertical","horizontal"=>"Horizontal","none"=>"None"}))
+		@items.push(ConfComboHolder.new("Tooltip in Lists","list-tooltip",{"none"=>"None","filters"=>"Filters"}))
+		@items.push(ConfComboHolder.new("Menu Position","menu-position",{"top"=>"Top","bottom"=>"Bottom","left"=>"Left","right"=>"Right"}))
+		@items.push(ConfComboHolder.new("Menu Type","menu-type",{"buttons"=>"Buttons","standard"=>"Standard"}))
+		@items.push(ConfComboHolder.new("Confirm Exit","confirm-exit",{"true"=>"Confirm","false"=>"Just exit"}))
+		
+		@items.push(ConfFontHolder.new("Info Frame Font","info-frame-font"))
+		@items.push(ConfFontHolder.new("Info Item Font","info-item-font"))
+
+		@items.push(ConfFontHolder.new("Form Frame Font","form-frame-font"))
+		@items.push(ConfFontHolder.new("Form Item Font","form-item-font"))
+
+		@items.push(ConfFontHolder.new("List Button Font","list-button-font"))
+		@items.push(ConfFontHolder.new("List Cell Font","list-cell-font"))
+		@items.push(ConfFontHolder.new("Standard Menu Font","bar-menu-font"))
+
+		y=0
+		@items.each{|item|
+			attach(item,0,1,y,y+1,Gtk::EXPAND|Gtk::FILL,Gtk::EXPAND)
+			y+=1
+		}
+		
+		show_all
+	end
+	
+	
+	def update(notifier=nil)
+		@items.each{|item| item.update}
+	end
+	
+	def title
+		"Config"
+	end
+end
+

data/lib/Print/PrintItem/TextLayout.rb

@@ -0,0 +1,47 @@
+#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 TextLayout
+	def initialize(cr,txt,font,width,x,y,alignment='left')
+		@cr=cr
+		@font=font
+		@layout=cr.create_pango_layout
+		@txt=txt
+		@layout.set_text(txt)
+		@x=x
+		@y=y
+		@width=width
+		@alignment=alignment
+		@layout.set_font_description(Pango::FontDescription.new(@font)).set_width(@width*Pango::SCALE)
+		@layout.set_wrap(Pango::Layout::WRAP_WORD_CHAR).set_ellipsize(Pango::Layout::ELLIPSIZE_NONE)#.set_single_paragraph_mode(true)
+		set_alignment
+	end
+	attr_reader :layout
+
+	def set_x(newx=x)
+		@x=newx
+	end
+	def set_y(newy=y)
+		@y=newy
+	end
+	def set_alignment(alignment=@alignment)
+		@alignment=alignment
+		case @alignment
+			when 'left' then @layout.set_alignment(Pango::Layout::ALIGN_LEFT)
+			when 'right' then @layout.set_alignment(Pango::Layout::ALIGN_RIGHT)
+			when 'center' then @layout.set_alignment(Pango::Layout::ALIGN_CENTER)
+		end
+	end
+	def height
+		w,h=@layout.size
+		h/Pango::SCALE
+	end
+
+	def draw(cr)
+		cr.move_to(@x,@y)
+		cr.show_pango_layout(@layout)
+		cr.stroke
+	end
+end
+