manqod 1.1505.0

data/lib/SB.rb

@@ -0,0 +1,29 @@
+#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 SB <Gtk::Statusbar
+	include Singleton
+	include Eprint
+	def initialize
+		super
+		set_homogeneous(false)
+		pack_start(@messaging=Messaging.instance,false,false)
+		pack_start(Gtk::Label.new,true,true)
+		pack_start(@progress=MultiProgress.new,false,false)
+	end
+	attr_reader :progress, :parent_window, :messaging
+
+	def set_parent_window(parent_window)
+		@parent_window=parent_window
+	end
+
+	def show
+		super unless visible?
+	end
+
+	def to_s
+		"SB"
+	end
+end
+

data/lib/mynotebook.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 MyNotebook < Gtk::Notebook
+	include Observable
+	include Conf
+	include ManqodCommon
+	def initialize(parentM)
+		@parentM=parentM
+		@list_id=nil
+		@mypages=Array.new
+		@list_count=0
+		super()
+		set_enable_popup(false)
+		set_scrollable(true)
+#		set_show_border(false)
+#		set_tab_border(0)
+		parentM.list.add_observer(self)
+	end
+	attr_accessor	:notifier, :parentM, :list_id
+	attr_reader :list_count
+  
+	def update(notifier)
+		set_conf(notifier.list_id,0,"page",self.page) if self.page>-1
+=begin
+#		set_conf(list_id,0,"position",@parentM.widget.position) if @parentM.widget.position > 0
+		if (position=get_conf(notifier.list_id,0,"position")||0) !=0
+			ecode("#{position}=>#{parentM.widget.position}")
+  		parentM.widget.set_position(position.to_i)
+  		parentM.widget.set_position_set(true)
+		end
+=end
+		if @list_id != notifier.list_id
+			wipe
+			@mypages=Array.new
+			@list_count=0
+			case (notifier.class.name)
+	  		when 'MyEditableList'
+					parentid=notifier.get_id
+					edebug("notifier changed: #{notifier}, repacking","sub-list","debug")
+	  		else
+					edebug("unknown routing: "+notifier.class.name,"sub-list","warning")
+			end
+			if parentid 
+					notifier.list_model.drbmodel.childs.each{|moditem|
+		  		case moditem['modname']
+						when 'listing'
+ 							submoditem_holder=Mylist::MyListHolder.new(self)
+							submoditem_holder.set_parentM(notifier)
+							submoditem=submoditem_holder.list
+			    		submoditem.set_id(moditem['id'])
+							submoditem_holder.update(notifier)
+							@list_count+=1
+						when 'form'
+				  		submoditem_holder=Myform::MyFormHolder.new("embedded",self,"modify",moditem['id']).holder
+				  		submoditem_holder.holder.set_parentM(notifier)
+				  		submoditem=submoditem_holder.form
+#				  		submoditem.title=moditem['display']
+#				  		submoditem.set_id(moditem['id'])
+				  		submoditem.update(notifier,parentid)
+		  		end
+		  		@mypages.push(submoditem_holder)
+					submoditem.is_embedded=submoditem.embedd?
+    			if submoditem.is_embedded
+						insert_page(submoditem.moditem["oid"].to_i,submoditem_holder,Gtk::Label.new(submoditem.title))
+					end
+				}
+			end
+			show_all if n_pages > 0
+			set_page(get_conf(notifier.list_id,0,"page").to_i) if get_conf(notifier.list_id,0,"page")
+			@list_id=notifier.list_id
+		else
+			edebug("notifier: #{notifier}, calling update in childs","sub-list","info")
+			@mypages.each{|submoditem_holder|
+				case submoditem_holder.class.name
+					when "Mylist::MyListHolder" then 
+						submoditem=submoditem_holder.list
+						submoditem.update(notifier)
+					when "Myform::MyFormHolder::EmbeddedFormHolder" then 
+						submoditem=submoditem_holder.form
+						submoditem_holder.update(notifier,notifier.get_cursor_id)
+					else edebug("unknown subitem: "+submoditem_holder.class.name,"sub-list","warning")
+				end
+				if submoditem
+    			if submoditem.embedd? != submoditem.is_embedded
+    				if submoditem.embedd?
+							insert_page(submoditem.moditem["oid"].to_i,submoditem_holder,Gtk::Label.new(submoditem.title))
+							else
+							remove_page(page_num(submoditem_holder))
+						end
+						submoditem.is_embedded=submoditem.embedd?
+					end
+    		end
+			}
+   		show_all
+		end
+	end#update
+	
+	def moditem_by_id(mid)
+		found_item=nil
+		each{|submoditem|
+			case submoditem.class.name
+				when "Mylist::MyListHolder" then found_item=submoditem.list if submoditem.list.get_id.to_i == mid.to_i
+				when "MyFormHolder" then found_item=submoditem.form if submoditem.form.get_id.to_i == mid.to_i
+				else edebug("unknown submoditem: #{submoditem.class.name}","notebook","warning")
+			end
+		}
+		found_item
+	end
+
+	#yield child ListHolders
+	def lists
+		each{|submoditem|
+			yield submoditem if submoditem.class.name == "Mylist::MyListHolder"
+		}
+	end
+
+	def wipe
+		@mypages.each{|sublist| sublist.destroy}
+		while n_pages>0 do remove_page(-1) end
+	end
+
+	def my
+		@@my
+	end
+	def to_s
+		"Notebook of #{@parentM}"
+	end
+end
+

data/lib/mytouchwindow.rb

@@ -0,0 +1,162 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+require('mymysql')
+require('gtk2')
+require('observer')
+require('myform')
+
+
+class MyTouchWindow < Gtk::Window
+  class TouchButton < Gtk::Button
+		def initialize(label,left,right,top,bottom,parent)
+			super(label)
+			parent.attach(self,left,right,top,bottom,Gtk::FILL|Gtk::EXPAND,Gtk::FILL|Gtk::EXPAND,1,1)
+			set_name("TouchButton")
+			set_focus_on_click(false).set_can_focus(false)
+			signal_connect('clicked'){|me|
+			focused=me.get_ancestor(MyTouchWindow).focus
+			if focused.class.name=="MyRendererText"
+				case label
+				when "<-"
+					focused.text=focused.text.chop
+				else
+					focused.text=focused.text+label
+				end
+			end
+			}
+		end
+  end
+  def initialize
+	super()
+	fullscreen
+#	set_icon('e.png')
+#	set_window_position(Gtk::Window::POS_CENTER_ALWAYS)
+	self.title='manqod Touch'
+
+	agg=Gtk::AccelGroup.new
+	agg.connect(Gdk::Keyval.to_upper(81),nil,Gtk::ACCEL_VISIBLE){
+	  Gtk.main_quit
+	}
+	add_accel_group(agg)
+
+	  rc="
+	  style 'keypadbutton'
+	  {
+		bg[NORMAL]='#e09028'
+		bg[PRELIGHT]='#eed60b'
+		bg[ACTIVE]='#c1ee0b'
+		xthickness=10
+		ythickness=10
+		font='Helvetica'
+	  }
+
+	  style 'button'
+	  {
+		bg[NORMAL]='#0c6db1'
+		bg[PRELIGHT]='#0cb1ab'
+		bg[ACTIVE]='#0b41db'
+		xthickness=10
+		ythickness=10
+	  }
+
+	  style 'all'
+	  {
+		bg[NORMAL] = '#fff3a4'
+		bg[PRELIGHT] = '#ebff62'
+		bg[ACTIVE] = '#dcfb08'
+		xthickness = 10
+		ythickness = 10
+		GtkRange::stepper-size = 100
+		GtkRange::slider-width = 100
+		font_name = 'Serif 30'
+	  }
+	  
+	  widget '*' style 'all'
+	  widget '*Button*' style 'button'
+	  widget '*TouchButton*' style 'keypadbutton'
+	  "
+	  Gtk::RC.parse_string(rc)
+
+	
+	signal_connect("destroy") {|me|
+	  edebug("normal shutdown\n","touch","normal")
+	  Gtk.main_quit
+	}
+	
+	signal_connect('key-press-event') {|me,key|
+	  edebug("key: "+key.to_s,"touch","info")
+	}
+
+	
+	@holder=Gtk::Table.new(1,2,false)
+	add(Gtk::Frame.new.add(@holder))
+	@touchcontrol=Gtk::Table.new(5,3,true)
+	@touchcontrol.set_column_spacings(10).set_row_spacings(10)
+	
+	@b1=TouchButton.new('1',0,1,0,1,@touchcontrol)#.set_size_request(100, 100)
+	@b2=TouchButton.new('2',1,2,0,1,@touchcontrol)
+	@b3=TouchButton.new('3',2,3,0,1,@touchcontrol)
+
+	@b4=TouchButton.new('4',0,1,1,2,@touchcontrol)
+	@b5=TouchButton.new('5',1,2,1,2,@touchcontrol)
+	@b6=TouchButton.new('6',2,3,1,2,@touchcontrol)
+
+	@b7=TouchButton.new('7',0,1,2,3,@touchcontrol)
+	@b8=TouchButton.new('8',1,2,2,3,@touchcontrol)
+	@b9=TouchButton.new('9',2,3,2,3,@touchcontrol)
+
+	@b0=TouchButton.new('0',0,1,3,4,@touchcontrol)
+	@b000=TouchButton.new('000',1,2,3,4,@touchcontrol).modify_font(Pango::FontDescription.new.set_size(24).set_family('Helvetica').set_weight(30))
+
+	@bp=TouchButton.new('.',2,3,3,4,@touchcontrol)
+	@back=TouchButton.new('<-',0,1,4,5,@touchcontrol)
+	
+	
+	@touchcontrol.resize(5,3)
+	@keypad=Gtk::Frame.new.add(@touchcontrol)
+	@keypad_is_visible=false
+#	@touchcontrol.set_no_show_all(true)
+  end
+  
+  attr_accessor :keypad_is_visible
+  
+  def run
+	@formholder=Myform::MyFormHolder.new("touchscreen",self)
+	@holder.attach(@formholder.holder,0,1,0,1,Gtk::EXPAND|Gtk::FILL, Gtk::EXPAND|Gtk::FILL, 0, 0)
+	show_all
+	@formholder.form.set_id("59")
+	@formholder.form.update(self)
+  end
+  
+  def keypad(vis)
+	if vis
+	  if !keypad_is_visible
+		@holder.attach(@keypad,1,2,0,1,Gtk::EXPAND|Gtk::FILL, Gtk::EXPAND|Gtk::FILL, 0, 0)
+		@keypad.show_all
+		keypad_is_visible=true
+		edebug("keypad visible set: "+vis.to_s,"touch","debug")
+	  else
+		edebug("keypad allready visible","touch","debug")
+	  end
+	  else
+	  if keypad_is_visible
+		@holder.remove(@keypad)
+		keypad_is_visible=false
+		edebug("keypad visible set: "+vis.to_s,"touch","debug")
+	  else
+		edebug("keypad allready hidden","touch","debug")
+	  end
+	end
+  end
+  
+  def show_keypad
+	keypad(true)
+  end
+  def hide_keypad
+	keypad(false)
+  end
+  
+end
+

data/lib/mywindow.rb

@@ -0,0 +1,134 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+Thread.abort_on_exception = false
+
+class MyWindow < Gtk::Window
+	include ManqodCommon
+	include Conf
+	def initialize
+		ManqodRPC.instance.register_client
+		super()
+
+#	set_auto_startup_notification(true)
+#	set_window_position(Gtk::Window::POS_CENTER_ALWAYS)
+	self.title='manqod login'
+  run
+	
+	signal_connect("delete-event"){|me,ev|
+		!shut_down?
+	}
+	signal_connect("destroy") {|me,ev|
+		if mainrouter
+			mainrouter.destroy 
+			save_conf
+			edebug("quit","main","normal",false)
+		end
+		Gtk.main_quit
+		ManqodRPC.instance.unregister_client
+	}
+	signal_connect("configure-event"){|me,event|
+		if nick
+			set_conf(0,0,"width",event.width.to_s)
+			set_conf(0,0,"height",event.height.to_s)
+			set_conf(0,0,"x",event.x.to_s)
+			set_conf(0,0,"y",event.y.to_s)
+		end
+		false
+	}
+	signal_connect("window-state-event"){|me,event|
+		if nick
+			set_conf(0,0,"maximized",(event.new_window_state &  Gdk::EventWindowState::MAXIMIZED == Gdk::EventWindowState::MAXIMIZED).to_s)
+			set_conf(0,0,"minimized",(event.new_window_state &  Gdk::EventWindowState::ICONIFIED == Gdk::EventWindowState::ICONIFIED).to_s)
+			set_conf(0,0,"minimized",(event.new_window_state &  Gdk::EventWindowState::FULLSCREEN == Gdk::EventWindowState::FULLSCREEN).to_s)
+		end
+		false
+	}
+	
+	@@ag = Gtk::AccelGroup.new
+	@@ag.connect(Gdk::Keyval::GDK_KEY_F5,nil ,Gtk::ACCEL_VISIBLE){
+		@mainrouter.reset_child
+	  @mymenu.update(self)
+	}
+	@@ag.connect(Gdk::Keyval::GDK_KEY_F4,nil ,Gtk::ACCEL_VISIBLE){
+	  gtk_set_edebug
+	}
+	add_accel_group(@@ag)
+	
+	
+  end
+  attr_accessor :mymenu
+  attr_accessor :holder
+  attr_accessor :mainrouter
+  attr_reader :sb
+  
+  def run
+		SB.instance.set_parent_window(self)
+		load_conf
+		DrbImages.instance.load_images
+	begin
+		if main_image_id_row = admin.qrow("select imageid from gtkmenu order by id limit 1")
+			set_icon(DrbImages.instance.image_of_id(main_image_id_row["imageid"],"gtk-large-toolbar"))
+		end
+		
+		if sw=get_conf(0,0,"width") and sh=get_conf(0,0,"height")
+			resize(sw.to_i,sh.to_i)# if sw.to_i * sh.to_i >0
+			else
+			resize(600,400)
+		end
+		sx=get_conf(0,0,"x") || 50
+		sy=get_conf(0,0,"y") || 60
+		move(sx.to_i,sy.to_i)
+
+		maximize if get_conf(0,0,"maximized") == "true"
+		iconify if get_conf(0,0,"iconified") == "true"
+		fullscreen if get_conf(0,0,"fullscreen") == "true"
+		
+		#realize;window.set_functions(Gdk::Window::WMFunction::ALL | Gdk::Window::WMFunction::CLOSE)
+
+		@holder = Gtk::Table.new(2,4,false)
+		@mainrouter=MainRouter.new(self)
+		case get_conf(0,0,"menu-position")
+		  when "top"
+			@mymenu = if get_conf(0,0,"menu-type")=="buttons" then MenuHolder.new(mainrouter);else BarMenu.new(mainrouter);end
+  			holder.attach(mymenu    ,0,1,0,1,Gtk::EXPAND|Gtk::FILL,Gtk::FILL)
+  			holder.attach(mainrouter,0,1,1,2,Gtk::EXPAND|Gtk::FILL,Gtk::EXPAND|Gtk::FILL)
+		  when "bottom"
+			@mymenu = if get_conf(0,0,"menu-type")=="buttons" then MenuHolder.new(mainrouter);else BarMenu.new(mainrouter);end
+  			holder.attach(mainrouter,0,1,1,2,Gtk::EXPAND|Gtk::FILL,Gtk::EXPAND|Gtk::FILL)
+  			holder.attach(mymenu    ,0,1,2,3,Gtk::EXPAND|Gtk::FILL,Gtk::FILL)
+		  when "left"
+			@mymenu = if get_conf(0,0,"menu-type")=="buttons" then MenuHolder.new(mainrouter,"vertical");else BarMenu.new(mainrouter,"vertical");end
+  			holder.attach(mymenu    ,0,1,0,2,Gtk::FILL,Gtk::EXPAND)
+  			holder.attach(mainrouter,1,2,0,1,Gtk::EXPAND|Gtk::FILL,Gtk::EXPAND|Gtk::FILL)
+		  when "right"
+			@mymenu = if get_conf(0,0,"menu-type")=="buttons" then MenuHolder.new(mainrouter,"vertical");else BarMenu.new(mainrouter,"vertical");end
+  			holder.attach(mymenu    ,1,2,0,2,Gtk::FILL,Gtk::EXPAND)
+  			holder.attach(mainrouter,0,1,0,1,Gtk::EXPAND|Gtk::FILL,Gtk::EXPAND|Gtk::FILL)
+		end
+		@holder.attach(SB.instance,0,2,3,4,Gtk::FILL,Gtk::FILL)
+		add(holder)
+		show_all
+		Gtk.show_thread_changes
+		mymenu.update(mymenu.last)
+		Messaging.instance.check_messages
+	  rescue  => err
+			tell_exception("error occured",backtrace_to_debug(err),"main","warning")
+	end
+  end
+  
+	def shut_down?
+		enormal("normal shutdown","main")
+		if get_conf(0,0,"confirm-exit") == "true"
+			warner=Gtk::MessageDialog.new(self,Gtk::Dialog::DESTROY_WITH_PARENT,Gtk::MessageDialog::QUESTION,Gtk::MessageDialog::BUTTONS_YES_NO,"quit")
+			warner.set_image(Gtk::Image.new(Gtk::Stock::QUIT,Gtk::IconSize::DIALOG))
+			ret=(warner.show_all.run == Gtk::Dialog::RESPONSE_YES)
+			warner.destroy
+		else
+			ret=true
+		end
+		ret
+	end
+end
+

data/lib/wysiwyg-print-label.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 LayLabel < Gtk::EventBox
+	def initialize(text)
+		@x=0
+		@y=0
+	  @text=text
+	  @dragging=false
+	  @myobject=Gtk::Label.new(@text)
+	  super()
+	  add(@myobject)
+
+#	set_events(Gdk::Event::MOTION_NOTIFY | Gdk::Event::BUTTON_MOTION_MASK)
+#	set_can_focus(true)
+	signal_connect('event'){|me,event|
+	  case event.event_type
+		when Gdk::Event::BUTTON_PRESS
+		  @xshift=event.x
+		  @yshift=event.y
+		  @dragging=true
+		  get_ancestor(WysiwygPrintEditor).set_focused_item(self)
+#		  set_visible_window(true)
+#		  @myobject.style.base_gc(Gtk::STATE_NORMAL).background.set_red(65535)
+		when Gdk::Event::MOTION_NOTIFY
+		  @x=@x+event.x-@xshift if (@x+event.x-@xshift).to_i.modulo(10)==0 
+		  @y=@y+event.y-@yshift if (@y+event.y-@yshift).to_i.modulo(10)==0
+		  move_me
+		when Gdk::Event::BUTTON_RELEASE
+		  @dragging=false
+#		  set_state(Gtk::STATE_NORMAL)
+		else 
+#		  print "unhandled: ",event.inspect,"\n"
+	  end
+	}
+	end
+	attr_accessor :x
+	attr_accessor :y
+	attr_accessor :text
+	def move_me(newx=@x,newy=@y)
+	  @x=newx
+	  @y=newy
+	  parent.move(self)
+	end
+	def modify_font(new_font)
+	  super(new_font)
+	  @myobject.modify_font(new_font)
+	  self
+	end
+	def set_text(newtext=@text)
+	  @text=newtext
+	  @myobject.text=@text
+	  self
+	end
+end
+