green_shoes 0.255.0 → 0.263.0

data/README.md

@@ -69,11 +69,15 @@ Except:
 - lib/ext/hpricot/(all) (c) 2008 why the lucky stiff
 - lib/ext/projector/(all).rb (c) 2010 MIZUTANI Tociyuki
 - lib/ext/highlighter/(all) (c) 2008 why the lucky stiff and 2011 Steve Klabnik
+- lib/plugins/(httpd.rb, systray.rb, thread.rb) (c) 2011 Regis d'Aubarede
 - samples/akatsukiface.png (c) 2010 MIZUTANI Tociyuki
 - samples/class-book.yaml (c) 2008 why the lucky stiff
 - samples/splash-hand.png (c) 2008 why the lucky stiff
 - samples/loogink.png (c) 2008 Anita Kuno
 - samples/cy.png (c) 2008 Anita Kuno
+- samples/sample54.rb (c) 2011 Regis d'Aubarede
+- samples/face-crying.png (c) 2011 Regis d'Aubarede
+- samples/face-smile-big.png (c) 2011 Regis d'Aubarede
 - static/Coolvetica.ttf (c) 1999 Ray Larabie
 - static/Lacuna.ttf (c) 2003 Glashaus, designed by Peter Hoffman
 - static/gshoes-icon.png (c) 2010 Zachary Scott

data/VERSION

@@ -1 +1 @@
-0.255.0
+0.263.0

data/lib/green_shoes.rb

@@ -29,6 +29,7 @@ module Shoes
   SPAN_FORM = {emphasis: :style, family: :font_family, weight: :weight, rise: :rise, 
     strikethrough: :strikethrough, strikecolor: :strikethrough_color, underline: :underline, undercolor: :underline_color}
   WRAP = {word: Pango::WRAP_WORD, char: Pango::WRAP_CHAR, trim: Pango::ELLIPSIZE_END}
+  FONT_SIZE = {"xx-small" => 0.57, "x-small" => 0.64, "small" => 0.83, "medium" => 1.0, "large" => 1.2, "x-large" => 1.43, "xx-large" => 1.73}
 end
 
 class Object
@@ -52,6 +53,11 @@ require_relative 'shoes/projector'
 require_relative 'shoes/download'
 require_relative 'shoes/manual'
 
+require_relative 'plugins/systray'
+require_relative 'plugins/thread'
+require_relative 'plugins/httpd'
+require_relative 'plugins/treeview'
+
 autoload :ChipMunk, File.join(Shoes::DIR, 'ext/chipmunk')
 autoload :Bloops, File.join(Shoes::DIR, 'ext/bloops')
 autoload :Projector, File.join(Shoes::DIR, 'ext/projector')

data/lib/plugins/httpd.rb

@@ -0,0 +1,232 @@
+require 'socket'
+require 'thread'
+require 'timeout' 
+
+
+#################### Tiny embeded webserver
+class WebserverAbstract
+  def logg(*args)  @cb_log && @cb_log.call(@name,*args) end
+  def info(txt) ; logg("nw>i>",txt) ;  end
+  def error(txt) ; logg("nw>e>",txt) ; end
+  def unescape(string) ; string.tr('+', ' ').gsub(/((?:%[0-9a-fA-F]{2}))/n) { [$1.delete('%')].pack('H*') } ;  end
+  def escape(string) ; string.gsub(/([^ \/a-zA-Z0-9_.-]+)/) { '%' + $1.unpack('H2' * $1.size).join('%').upcase }.tr(' ', '+');  end
+  def hescape(string) ;  escape(string.gsub("/./","/").gsub("//","/")) ; end
+  def observe(sleeping,delta)
+	@tho=Thread.new do loop do
+	  sleep(sleeping) 
+	  nowDelta=Time.now-delta
+	  l=@th.select { |th,tm| (tm[0]<nowDelta) }
+	  l.each { |th,tm| info("killing thread") ; th.kill; @th.delete(th)  ; tm[1].close rescue nil }
+	end ; end
+  end
+  def initialize(port,root,name,cadence,timeout,options)
+    @cb_log= options["logg"] 
+    @last_mtime=File.mtime(__FILE__)
+	@port=port
+	@root=root
+	@name=name
+	@rootd=root[-1,1]=="/" ? root : root+"/" 
+	@timeout=timeout
+	@th={}
+	@cb={}
+	@redirect={}
+	@server = TCPServer.new('0.0.0.0', @port)
+	@server.setsockopt(Socket::SOL_SOCKET,Socket::SO_REUSEADDR, true)
+	info(" serveur http #{port} on #{@rootd} ready!")
+	observe(cadence,timeout*2)
+	@thm=Thread.new {
+		loop { begin
+		  while (session = @server.accept)
+		     run(session)
+		  end
+		rescue
+		  error($!.to_s)
+		  session.close raise nil
+		end
+		sleep(10); info("restart accept")
+		}
+	}
+  end
+  def run(session)
+	if ! File.exists?(@root)
+	  sendError(session,500,txt="root directory unknown: #{@root}") 
+	else
+		Thread.new(session) do |sess|
+		   @th[Thread.current]=[Time.now,sess]
+		   request(sess) 
+		   @th.delete(Thread.current) 
+		end
+	end
+  end
+  def serve(uri,&blk)
+	@cb[uri] = blk
+  end  
+  def request(session)
+	  request = session.gets
+	  uri = (request.split(/\s+/)+['','',''])[1] 
+	  #info uri
+	  service,param,*bidon=(uri+"?").split(/\?/)
+	  params=Hash[*(param.split(/#/)[0].split(/[=&]/))] rescue {}
+	  params.each { |k,v| params[k]=unescape(v) }
+	  uri=unescape(service)[1..-1].gsub(/\.\./,"")
+	  userpass=nil
+	  if (buri=uri.split(/@/)).size>1
+		uri=buri[1..-1].join("@")
+		userpass=buri[0].split(/:/)
+	  end
+	  do_service(session,request,uri,userpass,params)
+  rescue
+	error("Error Web get on #{request}: \n #{$!.to_s} \n #{$!.backtrace.join("\n     ")}" ) rescue nil
+	session.write "HTTP/1.1 501 NOK\r\nContent-type: text/html\r\n\r\n<html><head><title>WS</title></head><body>Error : #{$!}" rescue nil
+  ensure
+	session.close rescue nil
+  end  
+  def redirect(o,d)
+   @redirect[o]=d
+  end  
+  def do_service(session,request,service,user_passwd,params)
+    logg(session.peeraddr.last,request) 
+	redir=@redirect["/"+service]
+	service=redir.gsub(/^\//,"") if @redirect[redir]
+	aservice=to_absolute(service)
+	if redir &&  ! @redirect[redir] 
+	  do_service(session,request,redir.gsub(/^\//,""),user_passwd,params)
+	elsif @cb["/"+service]
+	  begin
+	   code,type,data= @cb["/"+service].call(params)
+	   if code==0 && data != '/'+service
+		  do_service(session,request,data[1..-1],user_passwd,params)
+	   else
+		 code==200 ?  sendData(session,type,data) : sendError(session,code,data)
+	   end
+	  rescue
+	   logg session.peeraddr.last,"Error in get /#{service} : #{$!}"
+	   sendError(session,501,$!.to_s)
+	  end
+	elsif service =~ /^stop/ 
+	  sendData(session,".html","Stopping...");	   
+	  Thread.new() { sleep(0.1); stop_browser()  }
+	elsif File.directory?(aservice)
+	  sendData(session,".html",makeIndex(aservice))
+	elsif File.exists?(aservice)
+	  sendFile(session,aservice)
+	else
+	  info("unknown request serv=#{service} params=#{params.inspect} #{File.exists?(service)}")
+	  sendError(session,500);
+	end
+  end
+  def stop_browser
+	info "exit on web demand !"
+	@serveur.close rescue nil
+	[@tho,@thm].each { |th| th.kill }
+  end
+  def makeIndex(adir)
+    dir=to_relative(adir)
+	dirs,files=Dir.glob(adir==@rootd ? "#{@rootd}*" : "#{adir}/*").sort.partition { |f| File.directory?(f)}
+	updir = hescape(  dir.split(/\//)[0..-2].join("/")) 
+	updir="/" if updir.length==0
+	up=(dir!="/") ? "<input type='button' onclick='location.href=\"#{updir}\"' value='Parent'>" : ""
+	"<html><head><title>#{dir}</title></head>\n<body><h3><center>#{@name} : #{dir[0..-1]}</center></h3>\n<hr>#{up}<br>#{to_table(dirs.map {|s| " <a href='#{hescape(to_relative(s))}'>"+File.basename(s)+"/"+"</a>\n"})}<hr>#{to_tableb(files) {|f| [" <a href='#{hescape(to_relative(f))}'>"+File.basename(f)+"</a>",n3(File.size(f)),File.mtime(f).strftime("%d/%m/%Y %H:%M:%S")]}}</body></html>"
+  end  
+  def to_relative(f)  f.gsub(/^#{@rootd}/,"/") end
+  def to_absolute(f)  "#{@rootd}#{f.gsub(/^\//,'')}" end
+  def n3(n)
+     u=" B"
+     if n> 10000000
+	    n=n/(1024*1024)
+		u=" MB"
+     elsif n> 100000
+	    n=n/1024
+		u=" KB"
+	 end
+    "<div style='width:100px;text-align:right;'>#{(n.round.to_i.to_s.reverse.gsub(/(\d\d\d)(?=\d)/,'\1 ' ).reverse) +u} | </div>"
+  end
+  def to_table(l)
+	 "<table><tr>#{l.map {|s| "<td>#{s}</td>"}.join("</tr><tr>")}</tr></table>"
+  end 
+  def to_tableb(l,&bl)
+	 "<table><tr>#{l.map {|s| "<td>#{bl.call(s).join("</td><td>")}</td>"}.join("</tr><tr>")}</tr></table>"
+  end 
+  def sendError(sock,no,txt=nil) 
+	 if txt
+	   txt="<html><body><code><pre></pre>#{txt}</code></body></html>"
+	 end
+	sock.write "HTTP/1.0 #{no} NOK\r\nContent-type: #{mime(".html")}\r\n\r\n <html><p>Error #{no} : #{txt}</p></html>"
+  end
+  def sendData(sock,type,content)
+	sock.write "HTTP/1.0 200 OK\r\nContent-type: #{mime(type)}\r\nContent-size: #{content.size}\r\n\r\n"
+	sock.write(content)
+  end
+  def sendFile(sock,filename)
+  	s=File.size(filename)
+  	if s < 0 || File.extname(filename).downcase==".lnk"
+  		sendError(sock,500,"Error reading file #{filename} : (size=#{s})" )
+  		return
+  	end
+	sock.write "HTTP/1.0 200 OK\r\nContent-type: #{mime(filename)}\r\nContent-size: #{File.size(filename)}\r\nLast-Modified: #{httpdate(File.mtime(filename))}\r\nDate: #{httpdate(Time.now)}\r\n\r\n"
+	File.open(filename,"rb") do |f| 
+	  f.binmode; sock.binmode; 
+	  ( sock.write(f.read(32000)) while (! f.eof? && ! sock.closed?) ) rescue nil
+	end
+  end
+  def httpdate( aTime ); (aTime||Time.now).gmtime.strftime( "%a, %d %b %Y %H:%M:%S GMT" ); end
+  def mime(string)
+	 MIME[string.split(/\./).last] || "application/octet-stream"
+  end
+  LICON="&#9728;&#9731;&#9742;&#9745;&#9745;&#9760;&#9763;&#9774;&#9786;&#9730;".split(/;/).map {|c| c+";"}
+  MIME={"png" => "image/png", "gif" => "image/gif", "html" => "text/html","htm" => "text/html",
+	"js" => "text/javascript" ,"css" => "text/css","jpeg" => "image/jpeg" ,"jpg" => "image/jpeg" ,
+	"pdf"=> "application/pdf"   , "svg" => "image/svg+xml","svgz" => "image/svg+xml",
+	"xml" => "text/xml"   ,"xsl" => "text/xml"   ,"bmp" => "image/bmp"  ,"txt" => "text/plain" ,
+	"rb"  => "text/plain" ,"pas" => "text/plain" ,"tcl" => "text/plain" ,"java" => "text/plain" ,
+	"c" => "text/plain" ,"h" => "text/plain" ,"cpp" => "text/plain", "xul" => "application/vnd.mozilla.xul+xml",
+	"doc" => "application/msword", "docx" => "application/msword","dot"=> "application/msword",
+	"xls" => "application/vnd.ms-excel","xla" => "application/vnd.ms-excel","xlt" => "application/vnd.ms-excel","xlsx" => "application/vnd.ms-excel",
+	"ppt" => "application/vnd.ms-powerpoint",	"pptx" => "application/vnd.ms-powerpoint"
+  } 
+end # 161 loc webserver :)
+
+class Webserver < WebserverAbstract
+  def initialize(port=7080,cadence=10,timeout=120)
+    super(port,Dir.getwd(),"",cadence,timeout)
+  end
+end 
+class WebserverRoot < WebserverAbstract
+  def initialize(port=7080,root=".",name="wwww",cadence=10,timeout=120,options={})
+    super(port,root,name,cadence,timeout,options)
+  end
+end 
+
+
+class Shoes
+  class App
+	def web_server(port=9908,config={}) 
+		@ws=WebserverRoot.new(port,"/","green-shoes",10,300, {})
+		@html_menu="<div>"+config.map {|label,proc| "<a href='%s'>%s</a>" % [label,label.size>1 ? label[1..-1].capitalize : "Home"] }.join(" ")+"</div>"
+		lm=[]
+		config.each { |key,proc| 
+			case key
+				when String
+				lm << [key,key.gsub(/\//,"")]
+				@ws.serve(key) {
+				   [200,".html",@template_proc.call(proc.call(self))]
+				}
+				when :template
+				   @template_proc=proc
+				when :menu
+				   @html_menu="<div>"+proc.map {|label,href| "[<a href='%s'>%s</a>]" % [href,label] }.join(" ")+"</div>"
+				else
+				  raise("option web serveur unknown : <#{key}>")
+			end
+		}
+		if ! config[:menu]
+			@html_menu="<hr><div>"+lm.map {|href,label| "<a href='%s'>%s</a>" % [href,label.size>1 ? label[1..-1].capitalize : "Home"] }.join(" ")+"</div>"
+		end
+		if ! config[:template]
+			@template_proc= proc {|body| "<html><body><center><h2> #{Time.now}</h2></center>"+@html_menu+"<hr>"+body+"<hr></body></html>"}
+		end
+		puts "  WebServer ready on http://host:#{port}/"
+		@ws
+	end
+  end
+end

data/lib/plugins/systray.rb

@@ -0,0 +1,91 @@
+require 'gtk2'
+
+
+
+############################ SysTray ###############################
+
+
+module Gtk
+	class SysTray < StatusIcon 
+	  def initialize(window,title="title?",config)
+		$statusIcon=self
+		@popup_tray=Menu.new
+		@checkMenu={}
+		file= (config[:icon] && File.exist?(config[:icon])) ? config[:icon] : nil
+		alert("No icon defined for systray (or unknown file)") if ! file 
+		config.each do |label,proc|
+			if Proc === proc 
+			  case label
+			  when  /^\+/
+			    bshow = CheckMenuItem.new(label[1..-1])
+				@checkMenu[bshow]=bshow
+			    bshow.signal_connect("toggled") { |w|	
+				   proc.call(! w.active?) 
+				}  
+				#TODO : get checkButton state to application closure, set state with closure return value
+			  when  /^-+/
+   			    bshow = SeparatorMenuItem.new
+			  else
+   			    bshow = MenuItem.new(label)
+			    bshow.signal_connect("activate") { proc.call(window.visible?) }  
+				#TODO : icon in face of button
+			  end
+			  @popup_tray.append(bshow) 
+			end
+		end
+		if config[:quit]
+			@bquit_tray=ImageMenuItem.new(Stock::QUIT)
+			@bquit_tray.signal_connect("activate"){window.main_quit}
+			@popup_tray.append(SeparatorMenuItem.new)
+			@popup_tray.append(@bquit_tray)
+		end
+		@popup_tray.show_all
+		
+		super()
+		self.pixbuf=if file then  Gdk::Pixbuf.new(file) ;else nil ; end
+		self.tooltip=title||""
+		self.signal_connect('activate'){ window.visible? ? window.hide : window.show }
+		self.signal_connect('popup-menu'){|tray, button, time|
+		  @popup_tray.popup(nil, nil, button, time)
+		}
+	  end
+	end
+end
+=begin
+    syst_icon  HAPPY_ICON,
+    syst_add_button "Edit configuration"  {|state| edit_conf() } ,
+	syst_add_button "Execute Test"        {|state| $win.show; update(true) },
+	syst_add_sepratator
+	syst_add_check "Option"               {|state|  },
+	syst_quit_button true
+=end
+class Shoes
+	class App
+		def systray 
+		    @systray_config={}
+			yield
+			@systray=::Gtk::SysTray.new(self.win,@owner.instance_variable_get('@title'),@systray_config)
+		end 
+		def syst_icon(file)		         @systray_config[:icon]=file     ; end
+		def syst_add_button(label,&prc)  @systray_config[label]=prc     ; end
+		def syst_add_sepratator()        @systray_config["--#{@systray_config.size}"]= proc {} ; end
+		def syst_add_check(label,&prc)   @systray_config["+"+label]=prc ; end
+		def syst_quit_button(yes)       @systray_config[:quit]=yes       ; end
+		def systray_setup(config)
+			@systray=::Gtk::SysTray.new(self.win,@owner.instance_variable_get('@title'),config)
+		end 
+		def show_app()
+			win.deiconify	
+			win.show 
+		end
+		def hide_app
+			win.iconify
+			win.hide
+		end
+
+		def close_dialog
+			win.destroy
+			Shoes.APPS.delete app
+		end 
+	end
+end

data/lib/plugins/thread.rb

@@ -0,0 +1,63 @@
+require 'thread'
+
+class Object
+  def invoke_in_shoes_mainloop(&blk)
+    return unless defined?($__shoes_app__)
+    return unless Shoes::App===$__shoes_app__
+	$__shoes_app__.get_queue().push( blk )
+  end
+end
+
+class Shoes
+ class App
+	def get_queue()
+	   @queue=Queue.new if ! defined?(@queue)
+	   @queue
+	end
+	def define_async_thread_invoker(period=0.1)
+	   $__shoes_app__=self
+	   @queue=Queue.new if ! defined?(@queue)
+	   every(period) do
+	      while @queue.size>0
+		    instance_eval  &@queue.pop
+		  end
+	   end
+	end 
+  end
+end
+
+
+if defined?(WebserverRoot)
+	class Shoes
+	 class App
+		def web_server(port=9908,config={}) 
+			@ws=WebserverRoot.new(port,"/","green-shoes",10,300, {})
+			@html_menu="<div>"+config.map {|label,proc| "<a href='%s'>%s</a>" % [label,label.size>1 ? label[1..-1].capitalize : "Home"] }.join(" ")+"</div>"
+			lm=[]
+			config.each { |key,proc| 
+				case key
+					when String
+					lm << [key,key.gsub(/\//,"")]
+					@ws.serve(key) {
+					   [200,".html",@template_proc.call(proc.call(self))]
+					}
+					when :template
+					   @template_proc=proc
+					when :menu
+					   @html_menu="<div>"+proc.map {|label,href| "[<a href='%s'>%s</a>]" % [href,label] }.join(" ")+"</div>"
+					else
+					  raise("option web serveur unknown : <#{key}>")
+				end
+			}
+			if ! config[:menu]
+				@html_menu="<hr><div>"+lm.map {|href,label| "<a href='%s'>%s</a>" % [href,label.size>1 ? label[1..-1].capitalize : "Home"] }.join(" ")+"</div>"
+			end
+			if ! config[:template]
+				@template_proc= proc {|body| "<html><body><center><h2> #{Time.now}</h2></center>"+@html_menu+"<hr>"+body+"<hr></body></html>"}
+			end
+			puts "  WebServer ready on http://host:#{port}/"
+			@ws
+		end
+	 end
+	end
+end

data/lib/plugins/treeview.rb

@@ -0,0 +1,66 @@
+class Shoes
+  class App
+    def tree_view titles, tables
+      @tree_view_methods = titles.map{|s| s.downcase.gsub(' ', '_').to_sym}
+      @tree_view_row = Struct.new *@tree_view_methods
+      tree = mk_tree tables
+      @tree_view_paths, @tree_view_rows = [], {}
+      mk_path tree
+      tmp = tree.flatten
+      @tree_view_paths.each_with_index do |path, i|
+        @tree_view_rows[path] = tmp[i]
+      end
+      
+      titles.each_with_index do |name, i|
+        canvas.append_column Gtk::TreeViewColumn.new(name, Gtk::CellRendererText.new, "text" => i)
+      end
+      @tree_view_store = Gtk::TreeStore.new *Array.new(@tree_view_methods.length){String}
+      
+      mk_column tree
+      canvas.model = @tree_view_store
+      
+      canvas.signal_connect("cursor-changed") do |s|
+        yield @tree_view_rows[s.cursor[0].to_str]
+      end if block_given?
+    end
+    
+    def mk_column vals, parent = nil
+      vals.each_with_index do |v, i|
+        if v.is_a? Array
+          mk_column v, parent
+        else
+          if i.zero?
+            parent = @tree_view_store.append parent
+            @tree_view_methods.each_with_index{|e, i| parent[i] = eval("v.#{e}").to_s}
+          else
+            child = @tree_view_store.append parent
+            @tree_view_methods.each_with_index{|e, i| child[i] = eval("v.#{e}").to_s}
+          end
+        end
+      end
+    end
+
+    def mk_tree tables
+      tables.map do |table|
+        if table.is_a? Array
+          mk_tree table
+        else
+          return @tree_view_row.new( *tables )
+        end
+      end
+    end
+    
+    def mk_path tree, path = []
+      tree.each_with_index do |t, i|
+        if t.is_a? Array
+          path.push(path.empty? ? i : (i.zero? ? i : i-1))
+          mk_path t, path
+          path.pop
+        else
+          tmp = i.zero? ? path : [path, i-1]
+          @tree_view_paths << tmp.flatten.join(':')
+        end
+      end
+    end
+  end
+end

data/lib/shoes/app.rb

@@ -122,6 +122,7 @@ class Shoes
       SPAN_FORM.keys.+([:stroke, :fill]).each{|k| args.delete k}
       text, attr_list = make_pango_attr args[:markup]
       args[:size] ||= font_size
+      (args[:size] = font_size * FONT_SIZE[args[:size]]) if FONT_SIZE[args[:size]]
       args[:font] ||= (@font_family or 'sans')
       args[:align] ||= 'left'
       line_height =  args[:size] * 2
@@ -271,6 +272,7 @@ class Shoes
       tv = Gtk::TextView.new
       tv.wrap_mode = Gtk::TextTag::WRAP_WORD
       tv.buffer.text = args[:text].to_s
+      tv.modify_font(Pango::FontDescription.new(args[:font])) if args[:font]
 
       eb = Gtk::ScrolledWindow.new
       eb.set_size_request args[:width], args[:height]

data/lib/shoes/basic.rb

@@ -327,6 +327,7 @@ class Shoes
     end
 
     def items= items
+      @items.length.times{real.remove_text 0}
       @items = items
       items.each{|item| real.append_text item.to_s}
     end

data/lib/shoes/help.rb

@@ -180,7 +180,7 @@ class Manual < Shoes
       stack width: 80 do
         inscription file[0...-3]
         img = image File.join(DIR, "../snapshots/#{file[0..-3]}png"), width: 50, height: 50
-        img.click{Dir.chdir(File.join DIR, '../samples'){instance_eval IO.read(file)}}
+        img.click{Dir.chdir(File.join DIR, '../samples'){instance_eval(IO.read(file),file,0)}}
         para
       end
     end

data/lib/shoes/slot.rb

@@ -19,8 +19,10 @@ class Shoes
       @app.cslot = self
       @contents = []
       (@parent.contents << self) unless @nocontrol
+      @shows = true
       if block_given?
         if args[:hidden]
+          @shows = false
           BASIC_ATTRIBUTES_DEFAULT.merge! hidden: true
           SLOT_ATTRIBUTES_DEFAULT.merge! hidden: true
           @hidden_flag = true unless @parent.instance_variable_get '@hidden'
@@ -120,11 +122,18 @@ class Shoes
 
     def show
       @contents.each &:show
+      @shows = true
       self
     end
 
     def hide
       @contents.each &:hide
+      @shows = false
+      self
+    end
+
+    def toggle
+      @shows ? hide : show
       self
     end
   end

data/samples/sample53.rb

@@ -1,10 +1,20 @@
 require '../lib/green_shoes'
 
+titles = ['True or False', 'Count', 'bla bla bla']
+tables = [[[true, 4, 'Cleaning Supplies'], [true, 1, 'Paper Towels'], [true, 3, 'Toilet Paper']],
+          [[true, 7, 'Food'], [true, 2, 'Bread'], 
+           [[false, 1, 'Butter'], [[true, 2, 'Color'], [false, 1, 'red'], [true, 1, 'blue']], [false, 1, 'Shop'], [true, 1, 'City']], 
+           [true, 1, 'Milk'], [false, 3, 'Chips'], [true, 4, 'Soda']],
+          [[true, 40, 'Cleaning Supplies'], [true, 10, 'Paper Towels'], [true, 30, 'Toilet Paper']]]
+
 Shoes.app do
   button 'Open TreeView Window' do
-    Shoes.app width: 275, height: 300, treeview: true do
-      $app = app
-      load './treeview.rb'
+    window width: 300, height: 400, treeview: true do
+      tree_view titles, tables do |tv|
+        owner.append do
+          owner.para [tv.true_or_false, tv.count, tv.bla_bla_bla]
+        end
+      end
     end
   end
 end

data/samples/sample54.rb

@@ -0,0 +1,227 @@
+#####################################################################################
+#          S U R V E I L L A N C E / ruby-shoes tools for watching home servers
+#####################################################################################
+
+$PERIODE=10
+$config=[
+ ["Serveur Search","geturl","http://localhost:8080"],
+ ["Shares"        ,"dir"   ,"D:/"],
+ ["Codeur"        ,"tcpping","10.177.235.202:80"],
+ ["Proxy"         ,"geturl","http://10.153.32.75:80"],
+]
+ENV.delete('proxy_http')
+
+##__EEND__##################################################################################
+require '../lib/green_shoes'
+#require 'green_shoes' 
+
+require 'tmpdir'
+require 'open-uri' 
+
+
+dsrc=File.dirname(__FILE__)
+HAPPY_ICON   ="#{dsrc}/face-smile-big.png"
+UNHAPPY_ICON ="#{dsrc}/face-crying.png"
+ 
+
+$CONFIG_FILE="#{Dir.tmpdir}/surv_config.rb"
+$toBeFirstEdit=false
+unless File.exist?($CONFIG_FILE) 
+ content=File.read(__FILE__).split(/##__EEND__/).first
+ File.open($CONFIG_FILE,"w") { |f| f.write(content)}
+ puts "configuration file #{$CONFIG_FILE} created !"
+ $toBeFirstEdit=true
+end
+
+
+
+
+$errorDetected=true
+
+################## Dialog for edit configuration ####################
+class ::Shoes
+	class App
+		def edit_conf()
+		 ::Shoes.app({:title=> "Config",:width=>600,:height=>650}) do
+			t= File.read($CONFIG_FILE)
+			stack do
+				flow :width=>1.0 do
+				    background "#C0C0C0".."#A0A0A0"
+					para "This application do periodique request on LAN. You can: "
+					para "<b>*</b> specifies in $config the list of request : name,method, parameters."
+					para "<b>*</b> define periode in $periode (warning of memory leaks)"
+					para "This data are saved in file \n '#{$CONFIG_FILE}'."
+					para
+				end
+				@edit_box=edit_box( {:width=>1.0,:height=>370, :scroll=> true, :text=>t, :font => "Courier"} )
+				flow :width=> 400 do
+					button "Save",:width => 200 do
+					begin
+					  eval @edit_box.text 
+					  $app.update(true)
+					  File.open($CONFIG_FILE,"w") { |f| f.write(@edit_box.text)}			
+					  alert("Tested and saved!")
+					rescue Exception=> e
+					 alert  "Syntaxe Error : #{$!}"
+					end
+					end
+					button "Quit",:width => 200 do
+					  self.close_dialog
+					end
+				end
+			end
+		 end
+		end
+		p 2
+		#-----------------  Surveillances  actions --------------------------------
+		# do_<ACTIONNAME>() >> raise Exception if NOK
+
+		def do_geturl(param)
+			open(param).close
+		end
+		def do_dir(param)
+			raise "not found" if ! File.directory?(param)
+		end
+		def do_snmp(param)
+			  raise("not implemnted!")
+		end
+		def do_tcpping(param)
+			  ip,port=param.split(/:/)
+			  raise("ping") unless tping(ip,port.to_i,0.5)
+		end
+
+		def tping(host,port, timeout=5)
+		   s=nil
+		   begin
+				s = TCPSocket.new(host, port.to_s)
+				return(true)
+		   rescue Exception => e
+			   return false
+		   ensure
+				(s.close if s ) rescue nil
+		   end
+		end
+		#--------------------------- Surveillance Engine ---------------------------
+		# actions runs in paralleles, result is sorted by config order
+		# a queue is used for collect actions results (array are not thread-safe)
+		p 3
+		def do_surveillance(expand)
+			no0=0
+			lth=[]
+			queue=Queue.new
+			$config.each do |text0,comm0,param0|
+			  lth<<Thread.new(text0,comm0,param0,no0) do |text,comm,param,no|
+				begin
+					send("do_#{comm}",param)
+					queue.push([no,false,text])
+				rescue				
+					queue.push([no,true,text])
+					puts $!.to_s + " " + $!.backtrace.join("\n    ")
+				end
+			  end
+			  no0+=1
+			end
+			lth.map(&:join)
+			r=[]
+			while queue.size>0 && (m=queue.pop)
+				r << m 
+			end
+			return ( r.sort { |a,b| a[0]<=>b[0] } )
+		end
+
+
+
+		def update(expand) 
+			Thread.new {
+			  now=Time.now.to_f
+			  r=do_surveillance(expand) rescue p($!) ;
+			  invoke_in_shoes_mainloop { do_raffraichissement(r,expand,now) }
+			 }
+		end
+		def do_raffraichissement(r,expand,now)
+			nbError=0
+		    app.clear do 
+				border "#000000"
+				r.each do |mess|
+				    no,err=*mess
+					flow {
+						background( !err ?  ("#40A0A0".."#70C0C0") : ("#F0A0A0".."#F0C0C0") )
+						para"  "+$config[no][0] + (err ? " : NOK" : " : ok")
+						nbError+=1 if err
+					} if err or expand
+				end
+				flow {
+					background  "#B0F0F0".."#A0F0F0" 
+					para  "  "+Time.now.to_s.split(/ /)[1] + "  ("+((Time.now.to_f-now)*1000).round.to_s+" ms)"
+				}
+			end
+			# mettre en avant-plan la fenetre si detection d'apparition d'erreur(s)
+			if nbError>0	
+				if ! $errorDetected
+					$statusIcon.blinking=true
+					$statusIcon.visible=true
+					$statusIcon.file=UNHAPPY_ICON
+					$win.show
+					$win.iconify
+					$win.deiconify
+					$errorDetected=true
+				end
+			else
+				if  $errorDetected
+					$statusIcon.blinking=false
+					$errorDetected=false
+					$statusIcon.file=HAPPY_ICON
+				end
+				$win.hide if ! expand
+			end
+			h=24*(1+(expand ? $config.size : nbError))
+		    $win.default_height=h
+		    #$win.move(1080,960-h) : TODO: get screen-size...
+		    $win.move(20,20)
+		end   		
+	end
+end
+
+$statusIcon=nil
+$win=nil 
+$p={}
+$h=(($config.size+1)*24)
+::Shoes.app :title=>"Surveillance", :left=>-1, :top=>-1, :width => 200, :height => $h  do
+  $app=self
+  define_async_thread_invoker()
+
+  font "Arial"
+  $win=win
+  background  "#40A0A0".."#A0F0F0" 
+  border black
+  @st=stack(:width=> 1.0 , :height => 1.0) { border black }
+  every($PERIODE) { update(false)  }
+  click    { @st.clear ;  timer(0.01) { update(true) } }  
+  win.set_decorated(false)
+  #win.move(1080,960-$h)
+  win.move(20,20)
+
+  systray do
+    syst_icon  HAPPY_ICON
+    syst_add_button "Edit configuration"  do |state| edit_conf() end
+	syst_add_button "Execute Test"        do |state| $win.show; update(true) end
+	syst_add_sepratator
+	syst_add_check "Option"               do |state| alert("Test checkButon: " +state.to_s)  end
+	syst_quit_button true
+  end
+
+  web_server(9990,{
+       "/"        => proc {|app| 	
+					   ret=do_surveillance(true).map { |mess| no,err,text=*mess ; text.split(/\b*:\b*/) }
+					   @ws.to_tableb(ret) { |a| [a[0]," : ",a[1]] }
+       },
+       "/config"  => proc {|app| @ws.to_tableb($config) { |a| a  }},
+       "/stop"    => proc {|app| Thread.new { sleep(1) ; exit!} ; "..."},
+       "/show"   => proc {|app| Thread.new { break ; $win.show ; $win.deiconify ; } ; "ok"},# break!!! :  don't gtk/shoes stuff in none main thread...
+	   :template  => proc { |body| "<html><head></head><body><h2><center>Surveillance @ "+Time.now.to_s+"</center></h2><hr>"+@html_menu+"<hr>"+body + "<hr></body></html>" },
+	   :menu      => { "Status"=> "/" , "Config" => "/config" , "Exit" => "/stop", "Home" => "http://localhost"}
+  })
+
+  edit_conf if $toBeFirstEdit
+  update(true)
+end

data/static/manual-en.txt

@@ -1518,7 +1518,7 @@ asterisk) is show for each letter typed.
 
 === :size » a number ===
 
-For: ''banner, caption, inscription, para, subtitle, tagline, title''.
+For: ''banner, caption, inscription, para, span, subtitle, tagline, title''.
 
 Sets the pixel size for the font used inside this text block.
 
@@ -1532,8 +1532,6 @@ Font size may also be augmented, through use of the following strings:
  * "x-large" - 143% of present size.
  * "xx-large" - 173% of present size.
 
-'''Note:''' Green Shoes doesn't support as the above string style settings.
-
 === :state » a string ===
 
 For: ''button, check, edit_box, edit_line, list_box, radio''.
@@ -2607,8 +2605,6 @@ slot, you'll need to use `scroll_height()` to get the full size of the slot.
 
 Hides the slot, so that it can't be seen.  See also [[Position.show]] and [[Position.toggle]].
 
-'''Note:''' Green Shoes doesn't support `hide` method.
-
 === left() » a number ===
 
 The left pixel location of the slot.  Also known as the x-axis coordinate.
@@ -2618,7 +2614,7 @@ The left pixel location of the slot.  Also known as the x-axis coordinate.
 Moves the slot to specific coordinates, the (left, top) being the upper left
 hand corner of the slot.
 
-'''Note:''' Green Shoes doesn't support `gutter` method.
+'''Note:''' Green Shoes doesn't support `move` method.
 
 === remove() » self ===
 
@@ -2672,8 +2668,6 @@ Scrolls the slot to a certain coordinate.  This must be between zero and
 Reveals the slot, if it is hidden.  See also [[Position.hide]] and
 [[Position.toggle]].
 
-'''Note:''' Green Shoes doesn't support `show` method.
-
 === style() » styles ===
 
 Calling the `style` method with no arguments returns a hash of the styles
@@ -2713,8 +2707,6 @@ example, there is a `width` method, thus there is also a `width` style.
 
 Hides the slot, if it is shown.  Or shows the slot, if it is hidden.
 
-'''Note:''' Green Shoes doesn't support `toggle` method.
-
 === top() » a number ===
 
 The top pixel location of the slot.  Also known as the y-axis coordinate.

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: green_shoes
 version: !ruby/object:Gem::Version
-  version: 0.255.0
+  version: 0.263.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2011-07-23 00:00:00.000000000Z
+date: 2011-08-02 00:00:00.000000000Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: gtk2
-  requirement: &14643048 !ruby/object:Gem::Requirement
+  requirement: &15873072 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,7 +21,7 @@ dependencies:
         version: '0'
   type: :runtime
   prerelease: false
-  version_requirements: *14643048
+  version_requirements: *15873072
 description: Green Shoes is one of colorful Shoes, written in pure Ruby with Ruby/GTK2.
 email: ashbbb@gmail.com
 executables: []
@@ -61,6 +61,10 @@ files:
 - lib/ext/projector/matrix3d.rb
 - lib/ext/projector/projector.rb
 - lib/green_shoes.rb
+- lib/plugins/httpd.rb
+- lib/plugins/systray.rb
+- lib/plugins/thread.rb
+- lib/plugins/treeview.rb
 - lib/shoes/anim.rb
 - lib/shoes/app.rb
 - lib/shoes/basic.rb
@@ -81,6 +85,8 @@ files:
 - samples/akatsukiface.png
 - samples/class-book.yaml
 - samples/cy.png
+- samples/face-crying.png
+- samples/face-smile-big.png
 - samples/loogink.png
 - samples/potato_chopping/1258_s001.gif
 - samples/potato_chopping/1258_s002.gif
@@ -192,6 +198,7 @@ files:
 - samples/sample51.rb
 - samples/sample52.rb
 - samples/sample53.rb
+- samples/sample54.rb
 - samples/sample6.rb
 - samples/sample7.rb
 - samples/sample8.rb
@@ -199,7 +206,6 @@ files:
 - samples/sample99.rb
 - samples/shell.png
 - samples/splash-hand.png
-- samples/treeview.rb
 - snapshots/helloworld.png
 - snapshots/mini-hh.png
 - snapshots/sample1.png
@@ -254,6 +260,7 @@ files:
 - snapshots/sample51.png
 - snapshots/sample52.png
 - snapshots/sample53.png
+- snapshots/sample54.png
 - snapshots/sample6.png
 - snapshots/sample7.png
 - snapshots/sample8.png

data/samples/treeview.rb

@@ -1,60 +0,0 @@
-# The following code was quoted from http://ruby-gnome2.sourceforge.jp/hiki.cgi?tut-gtk2-treev-trees
-# and edited a little bit for Green Shoes
-
-def setup_tree_view(treeview)
-  renderer = Gtk::CellRendererText.new
-  column = Gtk::TreeViewColumn.new("Buy", renderer, "text" => $buy_index)
-  treeview.append_column(column)
-  renderer = Gtk::CellRendererText.new
-  column = Gtk::TreeViewColumn.new("Count", renderer, "text" => $qty_index)
-  treeview.append_column(column) 
-  renderer = Gtk::CellRendererText.new
-  column = Gtk::TreeViewColumn.new("Product", renderer, "text" => $prod_index)
-  treeview.append_column(column)
-end
-
-class GroceryItem
-  attr_accessor :product_type, :buy, :quantity, :product
-  def initialize(t,b,q,p)
-    @product_type, @buy, @quantity, @product = t, b, q, p
-  end
-end
-$buy_index = 0; $qty_index = 1; $prod_index = 2
-$p_category = 0; $p_child = 1
-
-list = Array.new
-list[0] = GroceryItem.new($p_category, true,  0, "Cleaning Supplies")
-list[1] = GroceryItem.new($p_child,    true,  1, "Paper Towels")
-list[2] = GroceryItem.new($p_child,    true,  3, "Toilet Paper")
-list[3] = GroceryItem.new($p_category, true,  0, "Food")
-list[4] = GroceryItem.new($p_child,    true,  2, "Bread")
-list[5] = GroceryItem.new($p_child,    false, 1, "Butter")
-list[6] = GroceryItem.new($p_child,    true,  1, "Milk")
-list[7] = GroceryItem.new($p_child,    false, 3, "Chips")
-list[8] = GroceryItem.new($p_child,    true,  4, "Soda")
-
-setup_tree_view($app.canvas)
-
-store = Gtk::TreeStore.new(TrueClass, Integer, String)
-parent = child = nil
-
-list.each_with_index do |e, i|
-  if (e.product_type == $p_category)
-    j = i + 1
-    while j < list.size && list[j].product_type != $p_category
-      list[i].quantity += list[j].quantity if list[j].buy
-      j += 1
-    end
-    parent = store.append(nil)
-    parent[$buy_index]  = list[i].buy
-    parent[$qty_index]  = list[i].quantity
-    parent[$prod_index] = list[i].product
-  else
-    child = store.append(parent)
-    child[$buy_index]  = list[i].buy
-    child[$qty_index]  = list[i].quantity
-    child[$prod_index] = list[i].product
-  end
-end
-
-$app.canvas.model = store