rwdlanguage 0.01

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/50rwdlistapplets.rwd

@@ -0,0 +1,44 @@
+$rwdguivar=
+"
+	<tab name=\"filelister\" caption=#{Message[:list_applets]}>
+
+
+    <table>
+      <row> <p align=\"right\">#{Message[:file_name]}</p>  <text name=\"a_installlist\"/> </row>
+
+    </table>
+
+      <horizontal>
+       <button caption=#{Message[:viewinstalled_text]} action=\"openappletname\"/>
+        <button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+    </horizontal>
+          <p>%displaytext%</p>
+
+    <table>
+      <row> <p align=\"right\">#{Message[:file_name]}</p>  <text name=\"a_removeapplet\"/> </row>
+
+    </table>
+
+    <p>%removeapplettext%</p>
+      <horizontal>
+       <button caption=#{Message[:remove_applet]} action=\"removeapplet\"/>
+      <button caption=#{Message[:cancel]} action=\"main\"/>
+      
+    </horizontal>
+    <table>
+      <row> <p> </row>
+      <row> <p align=\"right\">#{Message[:viewlistinstall_files]} </row>
+      
+    </table>
+    <horizontal>
+      
+      <button caption=#{Message[:list_files]} action=\"listinstalledfiles\"/>
+      
+    </horizontal>
+
+    <p>%%filesresult%%</p>
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/60editconfiguration.rwd

@@ -0,0 +1,30 @@
+$rwdguivar=
+"
+	<tab name=\"editconfigurationfile\" caption=\"Edit Configuration\">
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can view or edit the rwdtinker applet confiruration file here</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Load Record\" action=\"loadconfigurationrecord\"/>
+      <button caption=#{Message[:save_changes]} action=\"saveconfigurationrecord\"/>
+      <button caption=\"Reload Variables\" action=\"loadconfigurationvariables\"/>
+       <button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+      
+
+
+    
+    </horizontal>
+    <table>
+        <textarea name=\"a_configurationfile\"/>
+       
+
+    </table>
+    <p>%extraconfigdatadisplay%</p>
+    <p>
+    <p>%newconfigurationresult%</p>
+     
+      
+
+	</tab>"
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/70rwddiagnostics.rwd

@@ -0,0 +1,29 @@
+$rwdguivar=
+"
+	<tab name=\"diagnostictab\" caption=#{Message[:diagnostic_tab]}>
+      <horizontal>
+       <button caption=#{Message[:viewplatform_information]} action=\"runviewplatform\"/>
+    
+      
+    </horizontal>
+
+    <p>%platformdisplay%</p>
+    <horizontal>
+       
+           
+    </horizontal>
+   <horizontal>  
+<button caption=\"upload this page of information to the Program Author\" action=\"uploadreturnsfile\"/>
+     </horizontal>    
+ <horizontal>      
+     <p align=\"right\">Email:(optional)</p>  <text size=50  name=\"a_emailupload\"/> 
+       
+    </horizontal> 
+      <p align=\"center\">Comment/Suggestion/Feature Request or Bug Report:(optional)</p>  <textarea  name=\"a_commentupload\"/> 
+    
+    <p>%returnsftpdisplay%</p>
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/75rwdlogfile.rwd

@@ -0,0 +1,20 @@
+$rwdguivar=
+"
+	<tab name=\"rwdlogfiletab\" caption=\"RWD Log Files\">
+             <table>   
+                      <horizontal>
+  
+  
+                             <p align=\"left\">Number of lines to display</p>  <text size=11  name=\"a_rwdtinkerlognumber\"/> 
+
+                           <button caption=#{Message[:viewlogger_information]} action=\"rwdtinkerrunviewlog\"/>
+                      </horizontal>
+        
+                </table>    
+
+                <p>%returnlogdisplay%</p>
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/80localechanger.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=localechangertab caption=#{Message[:localechangertablabel]}>
+<horizontal>
+<button caption=#{Message[:tinkercoreshowlocale_choices]} action=\"showlocalechoicesoptions\"/>
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+</horizontal>
+ <table>
+      <select name=\"a_localechooseinput\">  %%localechooseoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:tinkercorechangelocale]} action=\"runlocalechangercommand\"/>
+    </horizontal>
+    </tab>
+"

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/81jumplinkcommands.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=selectiontab caption=#{Message[:selection_tab]}>
+<horizontal>
+<button caption=#{Message[:showjump_links]} action=\"showjumplinkoptions\"/>
+<button caption=#{Message[:help]} action=\"runhelpwindowtinkerwin2\"/>
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:jumptoapplication_location]} action=\"runjumplinkcommand\"/>
+    </horizontal>
+    </tab>
+"

data/gui/tinkerbackwindows/superant.com.tinkerbackwindow/9backend.rwd

@@ -0,0 +1,6 @@
+$rwdguivar=
+"    
+</tabs>
+</window>"
+
+

data/gui/tinkerbackwindows/superant.com.tinkerhelpwindow/1appname.rwd

@@ -0,0 +1,31 @@
+$rwdguivar=
+"
+<window name = \"rwdtinkerhelpwindow\" title=#{Message[:rwdtinker_help]}>
+<horizontal>
+%rwdhelptopic%
+</horizontal>
+
+<table>
+ <row> <p></row>
+ 
+ </table>
+<horizontal> 
+%%rwdhelpdataoutput%%
+</horizontal>
+<row> <p></row>
+<table>
+
+
+ <row> <p></row>
+</table>
+<horizontal>
+
+<button caption=\"Return\" action=\"rwdwindowreturn\"/>
+</horizontal>
+<table>
+ <row> <p></row>
+ 
+ </table>
+ 
+%%rwdhelpsubchoicesoutput%%
+"

data/gui/tinkerbackwindows/superant.com.tinkerhelpwindow/9end.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"</window>"
+
+

data/gui/tinkerbackwindows/superant.com.versionwindow/1appname.rwd

@@ -0,0 +1,19 @@
+$rwdguivar=
+"
+<window name = \"applicationversion\" title=#{Message[:application_version]}>
+
+ <row> <p></row>
+          <p>%versionappnamedisplay%</p>
+ <row> <p></row>
+<p>%versioncopyrightdisplay%</p>
+
+ <row> <p></row>
+<p>%versionnumberdisplay%</p>
+
+      <horizontal>
+<button caption=#{Message[:return]} action=returntomain/>
+    </horizontal>
+
+</window>"
+
+

data/gui/tinkerbackwindows/superant.com.versionwindow/helpaboutwindow.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<window name=tinkerhelpabout title=#{Message[:help_about]}>
+<horizontal>
+<button caption=#{Message[:showhelpabout_links]} action=\"setuphelpaboutoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_helpaboutinput\">  %%helpaboutoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=#{Message[:openselectedhelp_about]} action=\"runrwdtinkerversion\"/>
+    </horizontal>
+    </window>
+"

data/gui/tinkerbackwindows/superant.com.words/1appname.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"
+<window name = \"rwdwordsbackwindow\" title=\"rwdwords - \">
+<tabs>"

data/gui/tinkerbackwindows/superant.com.words/1dictionary.rwd

@@ -0,0 +1,19 @@
+$rwdguivar=
+"
+<tab name=\"sagdictlookup\" caption=\"Dictionary Lookup\">  
+	
+	
+	    <table>
+      <row> <p align=\"right\">Word:</p>  <text name=\"a_dictionaryinput\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Lookup\" action=\"dictlookup\"/>
+      <button caption=\"Cancel\" action=\"main\"/>
+       <button caption=\"Help\" action=\"runhelpwindowrwdlanguage\"/>
+    </horizontal>
+ <p>%dictionary_display%</p>
+ </tab>
+ "
+	

data/gui/tinkerbackwindows/superant.com.words/4thesaurus.rwd

@@ -0,0 +1,36 @@
+$rwdguivar=  
+	"
+		<tab name=\"superantcomthesaurus\" caption=\"Thesaurus View\">
+
+    <table>
+  
+       <table>
+      <row> <p align=\"right\">Word:</p>  <text name=\"a_thesaurusinput\"/> </row>
+
+ 
+   
+     <row> <p> </row> 
+      
+    </table>
+      <horizontal>
+          <button caption=\"Display word results\" action=\"listwordresults\"/>
+      
+       <button caption=\"Clear file list\" action=\"clearthesaurus\"/>
+   
+           <button caption=\"Help\" action=\"runhelpwindowrwdlanguage\"/>
+      
+    </horizontal>
+
+       
+      
+          
+   
+
+      
+  
+    <table>
+<p>%%a_thesaurusdata%%</p>
+
+   
+     </table>
+	</tab>"

data/gui/tinkerbackwindows/superant.com.words/77jumplinkcommands.rwd

@@ -0,0 +1,17 @@
+$rwdguivar=
+"
+<tab name=RwdwordsMenu caption=Menu>
+<horizontal>
+<button caption=\"Show Jump Links\" action=\"showjumplinkoptions\"/>
+
+</horizontal>
+ <table>
+      <select name=\"a_jumplinkinput\">  %%jumplinkoptions%% </select>
+
+   </table>
+
+      <horizontal>
+      <button caption=\"Jump to Application Location\" action=\"runjumplinkcommand\"/>
+    </horizontal>
+    </tab>
+"

data/gui/tinkerbackwindows/superant.com.words/z9end.rwd

@@ -0,0 +1,6 @@
+$rwdguivar=
+"
+</tabs>
+</window>"
+
+

data/gui/zzcoreguiend/yy9rwdend.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"
+</application>"
+

data/init.rb

@@ -0,0 +1,179 @@
+
+#***********************************************************************
+#* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
+#* Copyright (c) 2004, 2005 by Steven Gibson. All Rights Reserved.
+#*
+#* This library is free software; you can redistribute it and/or
+#* modify it under the terms of the GNU General Public
+#* License as published by the Free Software Foundation; either
+#* .
+#*
+#* These files are distributed in the hope that they will be useful,
+#* but WITHOUT ANY WARRANTY; without even the implied warranty of
+#* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#* General Public License for more details.
+#*
+#* You should have received a copy of the GNU General Public
+#* License along with these files; if not, write to the Free Software
+#* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#*
+#* For further information please contact the author by e-mail
+#* at "smalllinux@gmail.com".
+#***********************************************************************/
+
+require 'logger'
+
+LogDirectory = 'rwd_files/log/'
+logfilelocation = File.join(LogDirectory, 'rwdtinker.log')
+
+$rwdtinkerlog = Logger.new( logfilelocation , 'weekly' )
+$rwdtinkerlog.level = Logger::INFO
+
+require "lib/rwd/rwd"
+require 'fileutils'
+require 'lib/rconftool'
+
+$KCODE = 'u'
+require 'jcode'
+
+$progdir = File::expand_path( File.dirname(__FILE__))
+
+tempdoc = " "
+
+# integrate the new configuration files
+MAINconfignew =  "rwdconfig.cnf"
+MAINconfigdist = "rwdconfig.dist"
+Rconftool::install(MAINconfigdist,MAINconfignew)
+
+#load main config file
+load 'rwdconfig.cnf'
+
+Dir.chdir("configuration")    #changes the current working directory
+
+fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n
+@doc = ""
+fileList.length.times{               #opening of a block
+configdist =fileList.pop                #pops the first item out of the Array
+tempconfigfile = configdist.gsub(/\.dist$/, "")
+confignew = tempconfigfile + ".cnf"
+Rconftool::install(configdist,confignew)     #integrates new file with old 
+  }       #closing block
+  # END of configuration integration 
+  Dir.chdir($progdir)
+
+  # Read in the configuration files
+  Dir.chdir("configuration")    #changes the current working directory
+
+  fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /cnf$/) } #creates an Array separated with \n
+  @doc = ""
+  fileList.length.times{               #opening of a block
+  fileName=fileList.pop                #pops the first item out of the Array
+  load fileName     #loads the the config file thats in fileName 
+  }       #closing block
+  # END of configuration reading 
+
+  Dir.chdir($progdir) # change back to top program directory
+
+
+  # build the English Language hash file from the parts
+  Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
+  langmessage = { :clear => "Clear", :rwdtinker => "Rwdtinker" }  ; langmessage.each { |kk, vv| Message[kk] = vv }
+  
+    def msgid(programkey)
+	  $programkey = programkey
+  end
+  
+  def msgstr(programmsg)
+	  if programmsg == ""
+		  $rwdtinkerlog.info "msgstr: no translation for #{$programkey}"
+	 else
+                 Message.update( $programkey.to_sym => programmsg ) 
+        end
+end
+ 
+  require 'lib/rwdtinker/rwdlangdir'
+ 
+  tempdoc = " "
+  #go get all the po language file files in english
+    tempdoc = RwdtinkerTools.findlanguagefiles(LangDir,"en")
+
+  #writes the contents of doc into the  languagehashvariable 
+  languagehashvariable  =  tempdoc 
+
+  # END of en Lang building
+  tempdoc = " "
+  Dir.chdir($progdir) # change back to top program directory
+
+  # build the local Language hash file from the parts
+    
+    $lang = $langarray[0]  # pick the language of choice
+  
+   # Go get all the po files for the language of choice
+    tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
+    # the contents of doc into the variable
+    languagehashvariable =  languagehashvariable   + tempdoc 
+
+    Dir.chdir($progdir) # change back to top program directory
+    
+    # lets read those po files, first english then the chosen language
+    temp = eval(   languagehashvariable )
+
+  
+
+  # build the actual program from the code parts
+  require 'lib/rwdtinker/rwdcodedir'
+  
+  tempdoc =  RwdtinkerTools.findprogramfiles(CodeDir)
+
+  # load the program file
+ 
+  tempcoderesult = eval( tempdoc )
+
+  # build the actual GUI from the gui parts
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+
+  # gui variable is done
+  guiRWD = ""
+  $rwd_gui_tinker =  tempdoc
+  require 'socket'		# Network stuff
+  host = "127.0.0.1"
+  port = $port
+
+  # Create a socket to listen on and bind it to the host and port 
+  freeportfound = false
+  until freeportfound
+	  begin
+		  @socket = UDPSocket::new()
+		  @socket.bind(host, port)
+		  freeportfound = true
+		  $port = port
+		  # Rescue the "Address in use" error
+	  rescue Errno::EADDRINUSE
+		  $rwdtinkerlog.warn "RWD Startup: Port #{port} on host #{host} is already in use."
+		  port=port +1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue the "Address not available' error
+	  rescue Errno::EADDRNOTAVAIL
+		  $rwdtinkerlog.warn "RWD Startup: Address #{host} is not available to bind."
+		  port =port + 1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue "permission denied errors
+	  rescue Errno::EACCES
+		  $rwdtinkerlog.warn "RWD Startup: Access denied when binding interface addresses. ?"
+		  port =port + 1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue all other errors
+	  rescue
+		  $rwdtinkerlog.warn "RWD Startup: An error occured."
+		  port =port + 1
+		  $rwdtinkerlog.warn "trying port: #{port}"
+		  # Rescue all other errors
+	  end
+  $port = port
+  end
+
+  
+  RwdTinker.new(  $rwd_gui_tinker ).serve(port) # start the main class and program