Ruiby 3.23.0

data/samples/gol.rb

@@ -0,0 +1,64 @@
+# encoding: utf-8
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+require_relative  '../lib/Ruiby'
+
+Ruiby.app width: 400, height: 300, title: "Game of Life" do
+  def freemap() l=[]; MAXC.times { l << [[false]*MAXL] } ; l end
+  MAXC=MAXL=100
+  PASX=default_width/MAXC
+  PASY=(default_width)/MAXL
+  @oldmat=freemap()
+  @mat=freemap()
+  @run=false
+  
+  stack do
+    @formula = " old ?  (nb_neighboring == 2 || nb_neighboring == 3) : ( nb_neighboring == 3 )"
+    flowi {
+      labeli "Life Formula : "
+      @edit=entry(@formula) 
+      buttoni("enter")  { instance_eval "def formula(old,nb_neighboring) ; #{@edit.text} ; end" }
+    }
+    @cv=canvas(self.default_width,self.default_height) {
+          on_canvas_button_press { |w,e|    
+            no= [e.x/PASX,e.y/PASY] ;  @mat[no.first][no.last]=! @mat[no.first][no.last]; no    
+          }
+          on_canvas_draw { |w,ctx|  
+            ctx.set_source_rgba(0,0.5,0.5)
+            MAXC.times { |col| MAXL.times { |li| (ctx.rectangle(col*PASX,li*PASY,PASX,PASY); ctx.fill())  if @mat[col][li] }}
+          }
+    }
+    
+    flowi do
+      button " clear " do @mat=freemap() ; @cv.redraw end
+      tooltip("Hello <b>en gras</b> !")
+      button " random " do 
+        rand(MAXC*MAXL/10).times {  @mat[rand(MAXC)][rand(MAXL)]=true }
+        @cv.redraw
+      end
+      button " start  " do @run=true ;end
+      tooltip("Hello <b>en gras</b> !")
+      button " stop   " do  @run=false ; end
+    end    
+  end
+  
+  anim 50 do  game() if @run ; @cv.redraw  end
+  def game()
+    mat2=@oldmat
+    MAXC.times do |col| MAXL.times do |li|
+          nb_neighboring= 0
+          [-1, 0, 1].each { |col_off| [-1, 0, 1].each { |li_off|
+              next if col_off == 0 && li_off == 0
+              next if col+col_off < 0 || li+li_off < 0
+              next if col+col_off >= MAXC || li+li_off >= MAXL
+              nb_neighboring += 1 if @mat[col + col_off][li + li_off]
+          } }          
+          mat2[col][li]= formula(@mat[col][li],nb_neighboring)          
+    end  end
+    @oldmat,@mat=@mat,mat2 if @run    # seem that GTK:Timer use threading...?
+  end
+  def formula(old,nb_neighboring)
+     old ?  (nb_neighboring == 2 || nb_neighboring == 3) : ( nb_neighboring == 3 )
+  end
+end

data/samples/gol2.rb

@@ -0,0 +1,119 @@
+# encoding: utf-8
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+require_relative  '../lib/Ruiby'
+require  'pp'
+
+Ruiby.app width: 1000, height: 700, title: "Game of Analogic Life" do
+  def freemap()  l=[]; MAXC.times { l << [0]*MAXL } ; l end
+  MAXC=MAXL=120
+  PASX=default_width/MAXC
+  PASY=(default_width)/MAXL
+  @oldmat=freemap()
+  @mat=freemap()
+  @run=false
+  
+  stack do
+    def formula(opoids,poids)
+         #--#
+     opoids>30 ?  (opoids<82 ? (poids*1.0003) : poids*0.99 ) : ((opoids<10 && opoids>1) ? (100-poids/2) : (poids*0.93))
+         #--#
+    end
+    @formula = File.read(__FILE__).split("#-"+"-#")[1].strip
+    flowi {
+      labeli "Life Formula : "
+      @edit=entry(@formula) 
+      buttoni("enter")  { instance_eval "  def formula(opoids,poids)  #{@edit.text} ; end" }
+    }
+    @cv=canvas(self.default_width,self.default_height) do
+      on_canvas_draw { |w,cr|  
+            MAXC.times { |col| MAXL.times { |li| 
+               coul=1.0-(@mat[col][li] / 100.0)
+               r,g,b=coul,coul,coul
+               r=coul*2 if coul<0.4
+               g*=2 if coul>0.8
+               b*=2 if coul>0.4
+               cr.set_source_rgba(r,g,b)
+               cr.rectangle(col*PASX,li*PASY,PASX,PASY)
+               cr.fill()  
+           }}
+      }
+      on_canvas_button_press{ |w,e|   
+            no= [e.x/PASX,e.y/PASY] ;  
+            c=(@mat[no.first][no.last]>50 ? 0 : 100)            
+            [-2,-1, 0, 1,+2].each { |col_off| [-2,-1, 0, 1,2].each { |li_off| @mat[no.first+col_off][no.last+li_off]=  c}}
+            no    
+      }
+    end
+    flowi do
+      button " clear " do @mat=freemap() ; @cv.redraw end
+      button " random " do 
+        rand(MAXC*MAXL/10).times {  @mat[rand(MAXC)][rand(MAXL)]=rand(10..90) }
+        @cv.redraw
+      end
+      button " start  " do @run=true ;end
+      button " stop   " do  @run=false ; end
+      button " 3D   " do do_timeline(@mat) end
+    end    
+  end
+  
+  anim 200 do  game() if @run ; @cv.redraw  ; (make_curve() ; @ccc.redraw) if @ccc  end
+  
+  def game()
+    mat2=@oldmat
+    MAXC.times do |col| MAXL.times do |li|
+          poids= 0; n=0
+          [-1, 0, 1].each { |col_off| [-1, 0, 1].each { |li_off|
+              next if col_off == 0 && li_off == 0
+              next if col+col_off < 0 || li+li_off < 0
+              next if col+col_off >= MAXC || li+li_off >= MAXL
+              poids +=  @mat[col + col_off][li + li_off]
+              n+=1
+          } }          
+          c=formula(@mat[col][li],poids/n)
+          mat2[col][li] = ((c<0) ? 0 : (c>100 ? 100 : c))
+    end  end
+    @oldmat,@mat=@mat,mat2 if @run    # seem that GTK:Timer use threading...?
+  end
+  # end component()
+  
+  def do_timeline(mat)
+    return unless mat
+    dialog_async("3D view",response: proc  { |w,e| @ccc=false ; false }) do
+      make_curve()
+      @ccc=canvas(1000,800) do
+          on_canvas_draw do |w,cr|  
+            color=Ruiby_dsl.html_color("#774433")
+            color1=Ruiby_dsl.html_color("#334477")
+            cr.set_line_width(2)
+            @ll.reverse.each_with_index do |line,i|
+              cr.set_source_rgba((color.red-i*200)/65000.0, (color.green+i*200)/65000.0, color.blue/65000.0, 1)
+              pt0,*poly=*line
+              cr.move_to(*pt0)
+              poly.each {|px| cr.line_to(*px) } 
+              cr.fill 
+              cr.set_source_rgba((color1.red)/65000.0, (color1.green+i)/65000.0, (color1.blue-i*200)/65000.0, 1)
+              pt0,*poly=*line
+              cr.move_to(*pt0)
+              poly.each {|px| cr.line_to(*px) } 
+              cr.stroke 
+            end
+          end
+      end
+    end
+  end
+  def make_curve()
+       mat=@mat
+       @ll=[]
+       0.step(MAXL-1,5).each_with_index do |l,ic| 
+        lline=[]
+        0.step(MAXC-1,1).each do |c|
+           value=mat[c][l]
+           lline << [(c+ic*3)*5,400+(400-value*4-ic*10)] 
+        end
+        @ll << [lline[0].tap {|pt| pt[1]=800}]+lline+[lline[-1].tap {|pt| pt[1]=800}]
+      end
+  end
+end
+

data/samples/hello.rb

@@ -0,0 +1,48 @@
+require_relative '../lib/Ruiby'
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+
+class RubyApp1 < Ruiby_gtk
+	def component() label("Hello, world!")   end
+end
+
+class RubyApp2 < Ruiby_gtk
+	def component()  
+		ed =source_editor(width: 300, height: 100) 
+		ed.editor.buffer.text="\ninclude Hello 'world' !"  
+	end
+end
+
+class RubyApp3 < Ruiby_gtk
+	def component() button("Hello, ") { log(ask "world !") }  end
+end
+
+class RubyApp4 < Ruiby_gtk
+	def component() button("Hello, ") { 
+		w=RubyApp1.new("hx",200,200) 
+		w.rposition(1,1) 
+	  }
+	end
+end
+
+class RubyApp0 < Ruiby_gtk
+	def component() 
+		lc=File.read(__FILE__).split(/cl[a]ss/)
+		lcode=lc[1..-2].map { |code| "cla"+"ss "+ code }
+		democode= "cla"+"ss "+ lc.last
+		stack do
+			label("\n\n\n\tPlease, Choose one of this hello-world version... \n\n",:font=> "Verdana 12") 
+			lcode.each_with_index { |code,i| button(code) { system("ruby",$0,(i+1).to_s) } }
+			button("What's that ?") {
+				Editor.new(self,democode)
+			}
+		end
+		rposition(300,300)
+	end
+end
+
+
+
+window = eval("RubyApp"+(ARGV[0]||'0')).new("Hw",200,100)
+Gtk.main

data/samples/icones.rb

@@ -0,0 +1,70 @@
+#!/usr/bin/ruby
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+#####################################################################
+#  icones.rb : Stock icones list
+#
+#    echo @start /B @rubyw d:/dsl-gtk/samples/icones.rb  > c:/bin/ico.bat
+#####################################################################
+# encoding: utf-8
+require_relative '../lib/Ruiby.rb'
+
+Ruiby.app width: 300, height: 120, title: "Predefined icones (Stock GTK)" do
+  def ent(name)    
+     flow { 
+        spacei ; labeli "#"+name.to_s ; spacei ;
+        labeli(name.to_s)  
+     } rescue nil
+  end
+  def do_dialog() 
+    l=@licones_name.grep(/#{@e.text}/) 
+    if l.size==0
+      alert("no found *#{@e.text}*")
+      return
+    end
+    if l.size > 500
+      alert("Sory too many choice *#{l.size} !!!")
+      return
+    end
+    if l.size < 500
+       clear_append_to(@data) {
+          l.sort.map { |name|  
+            (flow { labeli "#"+name ; entry(name)  } rescue nil) 
+          }         
+       }
+       return
+    end
+    dialog {
+      stack {
+        scrolled(300,500) do
+          l.sort.map { |name|  
+            (flow { labeli "#"+name ; entry(name)  } rescue nil) 
+          } 
+        end
+      }
+    }
+  end
+  stack do
+    flowi { 
+      space(2)
+      labeli("\n  This icones can be use with '#' prefixe in label,button... commandes:\n Exemple: label('#close')  \n",font: "Arial bold 12")
+      space(2) 
+    }
+    separator
+    @licones_name=[]
+    flowi do
+      spacei(2); labeli("#famfamfam/find") 
+      @st=Time.now.to_s
+      @e=entry(ARGV.first||"",40) { |t|  do_dialog if t==@st; @st=t} 
+      buttoni("#famfamfam/bullet_go") { do_dialog() }
+      (after(10) { do_dialog() } )  if ARGV.size>0 
+    end
+    limg=Dir.glob("#{Ruiby::MEDIA}/**/*.png").map {|f| f.gsub("#{Ruiby::MEDIA}/","").split(".").first }
+    @licones_name = (Gtk::IconTheme.default.icons + limg).sort
+    limg= limg.each_slice(limg.size/2).to_a
+    scrolled(400,500) do
+       @data=get_current_container
+    end 
+  end
+end

data/samples/images.rb

@@ -0,0 +1,25 @@
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+# show all raster file which names are in  ARGV
+# First example of a Ruiby.app
+require_relative '../lib/Ruiby'
+
+if ARGV.size==0
+	Message.alert("Usage\n>ruby   images.rb    raster.png   raster.gif ....")
+	exit
+end
+
+Ruiby.app(:width=> 800, :height=>800) do
+	vbox_scrolled(800,800) do 
+		table(3,ARGV.size) do
+			ARGV.each { |fn| 
+				row { 
+					cell( w=image( fn ) )
+					#cell(box { properties(fn,get_config(w.pixbuf))  if w.pixbuf })
+					cell(box { properties(fn,get_config(w),{:scroll => [300,100]})})
+				}
+			}
+		end
+	end
+end

data/samples/issue_gtk3_event.rb

@@ -0,0 +1,25 @@
+require "gtk3"
+
+include Gtk
+
+window = Window.new
+
+cv=DrawingArea.new()
+cv.width_request=400
+cv.height_request=100
+cv.events |= ( Gdk::Event::Mask::LEAVE_NOTIFY_MASK |
+    Gdk::Event::Mask::BUTTON_PRESS_MASK |
+    Gdk::Event::Mask::POINTER_MOTION_MASK |
+    Gdk::Event::Mask::POINTER_MOTION_HINT_MASK)
+    
+cv.signal_connect("button_press_event")   { |w,e| 
+          puts "button: #{ '%16X' % e.button} #{e.class}"
+          puts "======================="
+          e.methods.select {|m| m.to_s=~/=$/ }.each {|m| 
+              name=m.to_s[0..-2]
+              puts "e.#{name} => #{e.send(name)}" rescue nil 
+         }
+}
+
+window.add(cv).show_all
+Gtk.main

data/samples/log.rb

@@ -0,0 +1,23 @@
+require_relative '../lib/Ruiby' 
+# encoding: utf-8
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+Ruiby.app width: 200,height: 100 do
+  stack do
+    label "  Testing log scrolling",font: "Arial bold 16  "
+	space
+    buttoni("go 1  ...") {  log('Hello') }
+    buttoni("go 10  ...") { 10.times {|i| log('*'*i%100) } }
+    buttoni("go 1000...") { 1000.times {|i| log((0..i%30).map {|i| i.to_s}.join('') ) } }
+	space
+    buttoni("methods") { show_methods "ee",/a/ }
+	space
+    label "  Testing window icon setting",font: "Arial bold 16  "
+	space
+    buttoni("set icon 1") { set_icon "media/angel.png" }
+    buttoni("set icon 2") { set_icon "media/face_crying.png" }
+    buttoni("anim") { anim(500) { set_icon "media/"+ %w{angel.png face_crying.png}[(Time.now.to_f*10).round%2] } }
+  end
+  log( "" )
+end

data/samples/lstock.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/ruby
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+require 'Ruiby'
+Ruiby.app width: 500, height: 400, title: "Gtk Stock icon" do
+  stack do
+    scrolled(400,500) { 
+      li=Gtk::IconTheme.default.icons.sort
+      li2=li.partition {|a| a.to_s=~/-symbolic$/} 
+      (li2[1]+li2[0]).map { |name|  
+      flow { labeli "##{name}" ; entry("  "+name.to_s,20,font: "courier 14") } 
+      }
+    }
+    buttoni("Exit") { exit! }
+  end
+end

data/samples/make_doc.rb

@@ -0,0 +1,256 @@
+#!/usr/bin/ruby
+# Creative Commons BY-SA :  Regis d'Aubarede <regis.aubarede@gmail.com>
+# LGPL
+
+### make_doc : extract api from soure DSL code file and
+### make html documentation
+require 'base64'
+
+
+html=<<EEND
+<?DOCTYPE html>
+<html>
+<head>
+<title>Ruiby DSL doc</title>
+<style>
+  body { margin: 0px;}
+  .title {font-size:33;color:white; padding:10px 100px 10px 100px;margin-bottom:20px;
+  background: #5e8077;background: linear-gradient(to bottom, #606060 0%%,#808080 100%%);   
+  box-shadow: 0px 2px 11px 2px #000; }
+  .title2 {font-size:16;color:white; padding:10px 100px 10px 100px;margin-bottom:20px;
+  background: #5e8077;background: linear-gradient(to bottom, #606060 0%%,#808080 100%%);   
+  box-shadow: 0px 2px 11px 2px #000; }
+  .atitle {
+    font: 17px arial,sans-serif;         
+    background: #5e8077;
+    color:white; padding:5px 10px 4px 5px;margin-bottom:20px;
+    background: linear-gradient(to right, #606060 0%%,#808080 100%%);   
+    border-radius: 1px 1px ;
+    box-shadow: 2px 2px 6px 1px #000; 
+    margin-left:3px;margin-right:70px;
+    padding-left: 30px
+  }
+  .api    {font: 18px courier; background: #F0F0A0; color: black;margin-left:3px;margin-right:50px;padding:4px}
+  .code    {font: 18px courier; background: #FFFFFF; color: black;margin-left:3px;margin-right:50px;padding:4px}
+  .descr  {
+    font: 15px arial,sans-serif; background: #FFF; color: black;margin: 10px 0 30px 3px;
+    padding: 5px;
+  }
+  a.l { color: #303030 ;  text-decoration:none ;}
+  a:link { }     
+  a:visited {}
+  a:hover {text-decoration: underline ;}
+  a:active {color: #0000FF}
+  .a {float: left;	width: 150px;}
+  #popup-div {
+    border-radius: 5px 5px ;
+    position: absolute;
+    visibility:hidden;
+    border : 2px solid black;
+    background: #FFFFF0;
+  }
+</style>
+
+<script>
+function doSearch(text) {
+    if (window.find && window.getSelection) {
+        document.designMode = "on";
+        var sel = window.getSelection();
+        sel.collapse(document.body, 0);
+        while (window.find(text)) {
+            document.execCommand("HiliteColor", false, "pink");
+        }
+        sel.collapse(document.body, 0);
+        window.find(text)
+        document.designMode = "off";
+    } else if (document.body.createTextRange) {
+        var textRange = document.body.createTextRange();
+        while (textRange.findText(text)) {
+            textRange.execCommand("BackColor", false, "pink");
+            textRange.collapse(false);
+        }
+        document.body.createTextRange().findText(text)
+    }
+}
+//================== popup data
+var hdoc={};
+
+%s
+
+//================ popup code
+
+function popup(word) {
+ if (! hdoc[word]) return;
+   
+ var node=document.getElementById('popup-txt');
+ node.innerHTML= hdoc[word];
+ node=document.getElementById('popup-div');
+ node.style.position ='fixed';
+ node.style.visibility ='visible';
+ node.style.left='25%%';
+ node.style.bottom='25%%';
+ node.style.width='50%%';
+ node.style.height='50%%';
+}
+
+</script>
+ </head>
+<body>
+<div class='title'>Ruiby DSL Documentation</div>
+Ruiby Version: %s<br>
+Generated at : %s<br>
+<a href="#code">See code example</a>
+<hr>
+<center>Search : <input type='input' value="" size='80' onchange='doSearch(this.value);'></center>
+<hr>
+<br>
+<ul>
+%s <!-- table des matieres -->
+<div style='clear: both;'> </div>
+</ul>
+<br>
+<br>
+<div style='-moz-column-count:2;-webkit-column-count:2;column-count:2;'>
+%s
+</div>
+<a name="code"></a>
+%s
+</div>
+
+<hr>
+<center>made by samples/make_doc.rb</center>
+
+<div id='popup-div'>
+ <div class='atitle'>
+    <input type='button' onclick="document.getElementById('popup-div').style.visibility='hidden';" value='X'>
+ </div>
+ <div id='popup-txt'></div>
+</div 
+
+</body>
+</html>
+EEND
+
+htable='<span class="a"><a class="l" href="#%s">%s</a></span>'
+
+hitem=<<EEND
+<div class='atitle'><a name='%s'>%s</a></div>
+<div class='api'>%s</div>
+<div class='descr'>%s <a href='#ex_%s'>ex</a></div>
+EEND
+
+
+def extract_doc_dsl() 
+	glob=File.dirname(__FILE__)+"/../lib/ruiby_gtk/**/*.rb"
+  hdoc={}
+  Dir[glob].each do |src| next if src =~ /dsl.rb/
+    content=File.read(src)
+    comment=""
+    hdoc=content.split(/\r?\n\s*/).inject(hdoc) {|h,line|
+      ret=nil
+      if a=/^\s*def\s+([^_][a-zA-Z0-9_]*)/.match(line)
+        name=a[1].split('(')[0]
+        api=line.split(')')[0]+")"
+        descr=comment.gsub('#\s*',"")
+        comment=""
+        h[name]=[name,name,api,descr]
+      elsif a=/^\s*#\s*(.*)/.match(line)
+        comment+=a[1].gsub("#","").gsub(/^\s*\*/,"<li>")+"<br>"
+      elsif /^\s*end\b/.match(line) || /^\s*def\s+(_.*)/.match(line) || /^\s*$/.match(line) || line.size==0
+        comment=""
+      end
+      h
+    }
+  end
+  # make hyperlink cross reference to word definition in each description text
+  hdoc.keys.sort.each {|k|
+    name1,name2,api,descr= hdoc[k]
+    if name1 =~/^aaa/
+        api="" 
+    end
+    d=descr.gsub(/\w+/) { |word| (word!=k && hdoc[word]) ? make_anchor(word) : word}
+    hdoc[k]=[name1,name2,api,d] 
+  }
+  hdoc
+end
+
+def make_anchor(word)
+   ret="<a href='##{word}'>#{word}</a>"
+   ret
+end
+
+$hexample={}
+def make_popup(word)
+   ret="<a href='javascript:popup(\"#{word}\");'>#{word}</a>"
+   unless $hexample[word]
+     ret="<a name='ex_#{word}'></a>"+ret
+   end
+   $hexample[word]=1
+   ret
+end
+
+
+def make_example(hdoc,filename)
+  count= $hexample.size
+  src=File.dirname(__FILE__)+"/"+filename
+  ifn="media/snapshot_#{filename}.png"
+  system('ruby',src,"take-a-snapshot") if ARGV.size==0 || (! File.exists?(ifn))
+  content=File.read(src).gsub('<','&lt;')
+  code= if content =~ /component\(\)/
+    'def component()' + content.split('component()')[1]
+  else
+    content
+  end
+  code=code.gsub(/\w+/) { |word| (hdoc[word]) ? make_popup(word) : word}
+  count-=$hexample.size
+  puts " #{filename} : #{-count}"
+  img=if File.exists?(ifn)
+      system("imagemagick","-crop","200x150")
+      icontent=open(ifn,"rb") do |f|
+        Base64.encode64(f.read(File.size(ifn)))
+      end
+      #File.delete(ifn)
+      '<br/><center><img src="data:image/gif;base64,'+icontent+'"></center><br/>'
+  else
+    puts "no snapshot"
+    ""
+  end
+  '<div class="title2">Code of <a href="https://github.com/raubarede/Ruiby/blob/master/samples/%s">samples/%s</a></div>%s<div class="code"><pre><code>%s</code></pre><br></div><br>' % [filename,filename,img,code]
+end
+
+
+
+
+
+def make_hdoc(hdoc)
+ hdoc.map {|w,v|  "hdoc['%s']= '<div class=\"api\"><br>%s</div><div>%s</div>';"  % [w,v[2],v[3].gsub("'","")]}.join("\n")
+end
+
+########################## M A I N ###############################
+
+hdoc=extract_doc_dsl()
+table=hdoc.keys.sort.select {|a| (a !~ /\./) }.map { |name| htable % [name,name]}.join(" ")
+lapis=hdoc.keys.sort.select {|a| (a !~ /\./) }.map {  |k|  
+  n1,n2,a,d= *hdoc[k]
+  hitem % [n1,n2.gsub(/^aaa/,'').gsub('_',' '),a,d,n1]
+}
+dico_hdoc=make_hdoc(hdoc)
+
+lscript=%w{canvas.rb table2.rb testth.rb animtext.rb  test_systray.rb  multi_window_threading.rb test_include.rb netprog.rb test.rb plot_curve.rb dyn.rb minicalc.rb}
+test=lscript.map { |file| make_example(hdoc,file) }.join("<hr>")
+puts "\n\n no exemples for : #{hdoc.size - $hexample.size} words\n"
+eend="<hr><br><p><b>No example for</b> : %s" % [(hdoc.keys - $hexample.keys- %w{initialize component}).join(', ')]
+
+api1=lapis.join("\n")
+content=html % [
+  dico_hdoc,
+	File.read("#{File.dirname(__FILE__)}/../VERSION"),
+	Time.now.to_s,
+	table,
+	api1,
+  test+eend
+]
+
+output="#{File.dirname(__FILE__)}/../doc.html"
+File.open(output,"wb") { |f| f.write( content ) }
+system("start",output)