rwdfoldeditor 0.05 → 0.07

data/code/superant.com.rwdtinkerbackwindow/installgemapplet.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # install rwdtinker applet from a long directory location 
+
 def installgemapplet
 	require 'fileutils'
 	require 'lib/zip/zip'

data/code/superant.com.rwdtinkerbackwindow/listgemzips.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to list the zips
+
 def fillzipappletname(inffile)
 	applet                = inffile.gsub(/\.zip$/, "")
 	@a_installapplet = applet

data/code/superant.com.rwdtinkerbackwindow/listinstalledfiles.rb

@@ -1,4 +1,6 @@
-# this code is to list the applets that are installed
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to list the applets that are installed
+
 def listinstalledfiles
 	fileList      = Dir.new("installed").entries.sort.reverse.delete_if { |x| ! (x =~ /inf$/) }
 	@filesresult  = fileList.rwd_method("fillappletname")

data/code/superant.com.rwdtinkerbackwindow/listzips.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to list the zipped applets that can be installed
+
 def fillziptoinstallname(inffile)
 	applet                = inffile.gsub(/\.zip$/, "")
 	@a_installapplet        = applet

data/code/superant.com.rwdtinkerbackwindow/loadconfigurationrecord.rb

@@ -1,4 +1,6 @@
-# this method puts the configuration rexord on the screen
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this method puts the configuration rexord on the screen
+
 def loadconfigurationrecord
 
 	require 'fileutils'

data/code/superant.com.rwdtinkerbackwindow/viewappletcontents.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
 #view contents of a tinker applet
 def viewappletcontents
 	require 'fileutils'

data/code/superant.com.rwdtinkerbackwindow/viewlogfile.rb

@@ -1,13 +1,16 @@
+#view the log on the tab
+
 def rwdtinkerrunviewlog
 	   require 'lib/rwdtinker/rwdtinkertools'
 	   
+                  logfilelocation = File.join(LogDirectory, 'rwdtinker.log')      
            if @a_rwdtinkerlognumber == nil
 		        @a_rwdtinkerlognumber = 11
-	                 @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
+		        
+	    end
+		        
+	         @returnlogdisplay = RwdtinkerTools.tail(logfilelocation , @a_rwdtinkerlognumber.to_i)
 			 
-	   else
-		         @returnlogdisplay = RwdtinkerTools.tail("rwd_files/log/rwdtinker.log",@a_rwdtinkerlognumber.to_i)
-
-           end
+	   
 end
 

data/code/zz0applicationend/zz0end.rb

@@ -1,4 +1,5 @@
-
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL.
+# end of rwdtinker class
 
 end # end of rwdtinker class
 	

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.80)
+##VERSION: (1.83)
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -10,5 +10,6 @@ LangDir = "lang"
     $prevouswindow ="main" 
    $rwdcontrolports =["13713","13714","13715","13716"]   # remote control code not actived 2007
  $port = 7705
-RwdTinkerVersion = "1.80"
+##NAME: (RwdTinkerVersion):(1.83)
+RwdTinkerVersion = "1.83"
 

data/configuration/rwdwfoldeditor.dist

@@ -1,4 +1,4 @@
-##VERSION: (0.05)
+##VERSION: (0.07)
 ##NAME: ($rwdfoldeditor_directory):(0.04)
 $rwdfoldeditor_directory = "rwd_files"
 ##NAME: ($foldeditorbrowser):(0.04)
@@ -7,8 +7,10 @@ $testharnessarray  << "rwdfoldeditor_all_tests"
 $tinkerhelpaboutarray  << "RwdFoldEditor" 
 $tinkerdocumentsarray  << "HowTo_FoldEditor.txt"
 ##NAME: (JumpLink.update):(0.04)
-JumpLink.update(:RwdFoldEditor=>"runrwdfoldeditorwindow", :FoldBackWindow=> "rwdfoldbackwindow")
-$rwdjumplink  << "RwdFoldEditor" << "FoldBackWindow"
-##NAME: (RwdFoldEditorVersion):(0.05)
-RwdFoldEditorVersion = "0.05"
+JumpLink.update(:RwdFoldEditor=>"runrwdfoldeditorwindow")
+$rwdjumplink  << "RwdFoldEditor" 
+##NAME: (DeleteFoldEditorConfig):(0.06)
+DeleteFoldEditorConfig = true
+##NAME: (RwdFoldEditorVersion):(0.07)
+RwdFoldEditorVersion = "0.07"
 

data/configuration/tinkerwin2variables.dist

@@ -1,4 +1,4 @@
-##VERSION: (1.80)
+##VERSION: (1.82)
 TinkerWin2ConfigurationFileName = "tinkerwin2variables.cnf" # this file name - do not change
 ##NAME: ($zipslocation):(1.78)
 $zipslocation = "zips" # location of applets to add
@@ -14,14 +14,10 @@ $zipslocation = "zips" # location of applets to add
 # $geminstalled_directory = "/ruby/lib/ruby/gems/1.8/gems" # XP machine
  $geminstalled_directory = "/var/lib/gems/1.8/gems" # Debian Linux
 
-$rwdapplicationidentity = "RwdFoldeditor main application"
+$rwdapplicationidentity = "rwdtinker main application"
 
-RwdTinkerWin2Version = "1.80"
+RwdTinkerWin2Version = "1.81"
 Browser_Exe = 'mozilla '
 #language selection file
-##NAME: ($lang):(1.78)
-#$lang = "jp"
-$lang= "en"
-#$lang= "nl"
-#$lang= "es"
-#$lang= "fr"
+##NAME: ($langarray):(1.82)
+$langarray = [ "en","ja", "nl","es", "fr","hi"]

data/gui/tinkerbackwindows/superant.com.foldeditor/60zipfoldfiles.rwd

@@ -0,0 +1,31 @@
+$rwdguivar=
+"
+	<tab name=\"foldeditorzipslister\" caption=#{Message[:zipfoldfile_tab]}>
+
+    <table>
+      <row> <p align=\"right\">#{Message[:foldfile_name]}</p>  <text size=50 name=\"a_viewfoldlinkfile\"/> </row>
+
+    </table>
+     
+<table>
+      <horizontal>
+
+  <button caption=#{Message[:viewfoldfile_contents]} action=\"loadrwdfoldeditlinkfile\"/>
+<button caption=#{Message[:zipfold_file]} action=\"zipfoldeditorfile\"/>
+      <button caption=#{Message[:help]} action=\"runhelpwindowrwdfoldeditor\"/>
+          </horizontal> 
+	  </table>
+	  </table>
+	  <row> <p align=\"left\">  %a_zipfoldeditorlinkfile% </p></row>
+</table>
+     
+ 
+    <p>%a_foldeditorlinkfile%</p>
+
+
+	
+
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.slideshow/10appletbegin.rwd

@@ -0,0 +1,4 @@
+$rwdguivar=
+"<application>
+  <window name=\"rwdslideshowwindow\" title=\"RwdSlideShow RwdTinker\">
+<tabs>"

data/gui/tinkerbackwindows/superant.com.slideshow/11viewnamedata.rwd

@@ -0,0 +1,19 @@
+$rwdguivar=
+"  
+ <tab name=\"Viewnamedata\" caption=\"View Contact\">
+
+    <table>
+      <row> <p align=\"right\">Contact Name:</p>  <text name=\"a_viewnamedata\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Open\" action=\"viewnamedata\"/>
+      <button caption=\"View Photo\" action=\"viewcontactphoto\"/>
+      <button caption=\"Help\" action=\"runhelpwindowrwdaddresses\"/>
+      
+    </horizontal>
+
+    "
+
+	

data/gui/tinkerbackwindows/superant.com.slideshow/13listnamerecordfiles.rwd

@@ -0,0 +1,21 @@
+$rwdguivar=
+"
+    <table>
+     
+      
+    
+    <p>%viewnamedatadisplay%</p>
+    </table>
+         <table>
+    <image src=\"contacttmp.jpg\"></image>
+    </table>
+    <table>
+    <horizontal>
+       <button caption=\"List Contacts\" action=\"listnamerecordfiles\"/>
+    </horizontal>
+ <p>%%listnamerecordfilesresult%%</p>
+ </table>
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.slideshow/16editrecord.rwd

@@ -0,0 +1,39 @@
+$rwdguivar=
+"
+	<tab name=\"editnamerecordfile\" caption=\"Edit Contact\">
+ <table>
+ <row> <p> </row>
+ <row> <p align=\"right\">You can create a new record here or edit one</row>
+ <row> <p> </row>
+ <horizontal>
+      <button caption=\"Fill Record\" action=\"loadnamerecord\"/>
+      <button caption=\"Save Changes\" action=\"createnewnamerecord\"/>
+      <button caption=\"Clear\" action=\"clearnamescreendisplay\"/>
+       <button caption=\"Help\" action=\"runhelpwindowrwdaddresses\"/>
+      
+
+
+    
+    </horizontal>
+    <table>
+      <row> <p align=\"right\">FileName:</p>  <text size=50 name=\"a_filename\"/> </row>
+      <row> <p align=\"right\">Contact Name:</p>  <text size=70 name=\"a_name\"/> </row>
+      <row> <p align=\"right\">Address:</p>  <text size=70 name=\"a_address\"/> </row>
+      <row> <p align=\"right\">CityStateZip:</p>  <text size=70  name=\"a_citystatezip\"/> </row>
+      <row> <p align=\"right\">Phone:</p>  <text size=70 name=\"a_phone\"/> </row>
+      <row> <p align=\"right\">Email:</p>  <text size=70 name=\"a_email\"/> </row>
+      <row> <p align=\"right\">Comment1:</p>  <text size=70 name=\"a_comment1\"/> </row>
+      <row> <p align=\"right\">Comment2:</p>  <text size=70 name=\"a_comment2\"/> </row>
+      <row> <p align=\"right\">Comment3:</p>  <text size=70 name=\"a_comment3\"/> </row>
+
+    </table>
+   <horizontal>
+ <button caption=\"Export vCard\" action=\"savevcardrecord\"/>
+      
+   
+    </horizontal>
+    <p>%extranamedatadisplay%</p>
+    <p>
+    <p>%createnewnamerecorddisplay%</p>
+     	</tab>"
+

data/gui/tinkerbackwindows/superant.com.slideshow/17viewvcardrecord.rwd

@@ -0,0 +1,32 @@
+$rwdguivar=
+"  
+ <tab name=\"Viewvcardrecord\" caption=\"View vCard Record\">
+
+    <table>
+      <row> <p align=\"right\">Contact Name:</p>  <text name=\"a_viewvcarddata\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Open\" action=\"viewvcarddata\"/>
+      <button caption=\"Help\" action=\"runhelpwindowrwdaddresses\"/>
+      
+    </horizontal>
+
+	
+    <table>
+     
+       
+    <p>%viewvcarddatadisplay%</p>
+    
+      
+    </table>
+    <horizontal>
+       <button caption=\"List vCard Records\" action=\"listvcardrecordfiles\"/>
+    </horizontal>
+ <p>%%listvcardrecordfilesresult%%</p>
+ 
+	</tab>"
+
+
+

data/gui/tinkerbackwindows/superant.com.slideshow/18contactutilities.rwd

@@ -0,0 +1,34 @@
+$rwdguivar=
+"  
+ <tab name=\"contactutilitiesrwdaddresses\" caption=\"Contact Utilities\">
+
+    <table>
+      <row> <p align=\"right\">Contact Name:</p>  <text name=\"a_viewnamedata\"/> </row>
+      <row> <p align=\"right\">New Name:</p>  <text name=\"a_changenamedata\"/> </row>
+
+    </table>
+   
+      <horizontal>
+      <button caption=\"Rename Record\" action=\"changenamedata\"/>
+      <button caption=\"Delete Record\" action=\"deletecontactrecord\"/>
+          </horizontal>
+    <table>
+
+ <row> <p align=\"right\">Photo Name:</p>  <text name=\"a_tmpphotoname\"/> </row>
+    </table>
+
+ <horizontal>	  
+      	  <button caption=\"Attach Photo\" action=\"attachtmpcontactphoto\"/>
+           <button caption=\"Help\" action=\"runhelpwindowrwdaddresses\"/>
+	  </horizontal>	 
+
+          <horizontal>
+      <button caption=\"List Contacts\" action=\"listnamerecordfiles\"/>
+         
+
+	  <button caption=\"List Photos\" action=\"viewtmpcontactphoto\"/>
+ </horizontal>
+
+ <p>%%listnamerecordfilesresult%%</p>
+ <p>%%listphotosfromtmp%%</p>
+	</tab>"

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

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

data/init.rb

@@ -23,47 +23,22 @@
 
 require 'logger'
 
-$rwdtinkerlog = Logger.new( 'rwd_files/log/rwdtinker.log', 'weekly' )
+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'
 
-$progdir = File::expand_path( File.dirname(__FILE__))
-
-$tempdoc = " "
+$KCODE = 'u'
+require 'jcode'
 
-def findfiles(d)
-	a = Array.new(Dir[d].entries.sort)
-	#loop through and get the files names
-	a.each do |x|
-		#adjust the filters to the files you want to see...
-		if(!test(?d,x))
-			# only rwd files
-			if x =~ /rb|rwd|txt/
-				fileA=File.open("#{x}","r")        #opens the file thats in fileName as read only
-				$tempdoc+=fileA.read    #reads the file into the doc string
-				fileA.close    
-			end
-		end
-	end
-end
-def loadguifile(d)
-	a = Array.new(Dir[d].entries.sort)
-	#loop through and get the files names
-	a.each do |x|
-		#adjust the filters to the files you want to see...
-		if(!test(?d,x))
-			# only rwd files
-			if x =~ /rb|rwd|txt/
+$progdir = File::expand_path( File.dirname(__FILE__))
 
-				load x      #opens the file thats in fileName and reads it
-				$tempdoc += $rwdguivar # adds the file into the doc string
-			end
-		end
-	end
-end 
+tempdoc = " "
 
 # integrate the new configuration files
 MAINconfignew =  "rwdconfig.cnf"
@@ -99,148 +74,70 @@ Rconftool::install(configdist,confignew)     #integrates new file with old
 
   Dir.chdir($progdir) # change back to top program directory
 
+
   # build the English Language hash file from the parts
-  languagehashvariable = 'Message = Hash.new { |hh, kk| hh[kk] = "ERROR: Message not found: #{kk.inspect}."; hh[kk] }
-  langmessage = {' + "\n"
-  startlangdir = File.join(LangDir,"en")
-  #get a list of the files and subdirectories on the starting directory only
-  alanghash = Array.new(Dir[startlangdir].entries.sort)
-  #loop through the list, ignore the files and add all new directories found
-  alanghash.each do |x|
-	  #if a directory...
-	  if(test(?d,x))
-		  # add to the original list of directories
-		  @@tmproot = x + "/**"
-		  #adds the new ones to the array
-		  blanghash = Dir[@@tmproot].entries.sort
-		  blanghash.each do |x|
-			  if(test(?d,x))
-				  alanghash.push(x)  #appends to the end of the array...
-			  end
-		  end
-	  end
-  end
-  alanghash.each do |x|
-	  #if it is a file...
-	  if(!test(?d,x))
-		  alanghash.delete(x)
-	  else              #it is a directory...
-		  findfiles(x + "/**")
-	  end
+  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  =  languagehashvariable + $tempdoc + "}  ; langmessage.each { |kk, vv| Message[kk] = vv }"
+  languagehashvariable  =  tempdoc 
 
   # END of en Lang building
-  $tempdoc = " "
+  tempdoc = " "
   Dir.chdir($progdir) # change back to top program directory
 
   # build the local Language hash file from the parts
-  startlangdir = File.join(LangDir,$lang)
-  #get a list of the files and subdirectories on the starting directory only
-  alanghash = Array.new(Dir[startlangdir].entries.sort)
-  #loop through the list, ignore the files and add all new directories found
-  alanghash.each do |x|
-	  #if a directory...
-	  if(test(?d,x))
-		  # add to the original list of directories
-		  @@tmproot = x + "/**"
-		  #adds the new ones to the array
-		  blanghash = Dir[@@tmproot].entries.sort
-		  blanghash.each do |x|
-			  if(test(?d,x))
-				  alanghash.push(x)  #appends to the end of the array...
-			  end
-		  end
-	  end
-  end
-  alanghash.each do |x|
-	  #if it is a file...
-	  if(!test(?d,x))
-		  alanghash.delete(x)
-	  else              #it is a directory...
-		  findfiles(x + "/**")
-	  end
-  end
-
-
-  #writes the contents of doc into the variable
-  languagehashvariable =  languagehashvariable  + " ; Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
-
-
-  $tempdoc = " "
-
-  Dir.chdir($progdir) # change back to top program directory
+    
+    $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 
 
-  temp = eval(   languagehashvariable )
+    Dir.chdir($progdir) # change back to top program directory
+    
+    # lets read those po files, first english then the chosen language
+    temp = eval(   languagehashvariable )
 
-  $tempdoc = " "
+  
 
   # build the actual program from the code parts
-  #get a list of the files and subdirectories on the starting directory only
-  a = Array.new(Dir[CodeDir].entries.sort)
-  #loop through the list, ignore the files and add all new directories found
-  a.each do |x|
-	  #if a directory...
-	  if(test(?d,x))
-		  # add to the original list of directories
-		  @@root = x + "/**"
-		  #adds the new ones to the array
-		  b = Dir[@@root].entries.sort
-		  b.each do |x|
-			  if(test(?d,x))
-				  a.push(x)  #appends to the end of the array...
-			  end
-		  end
-	  end
-  end
-  a.each do |x|
-	  #if it is a file...
-	  if(!test(?d,x))
-		  a.delete(x)
-	  else              #it is a directory...
-		  findfiles(x + "/**")
-	  end
-  end
-
+  require 'lib/rwdtinker/rwdcodedir'
+  
+  tempdoc =  RwdtinkerTools.findprogramfiles(CodeDir)
 
   # load the program file
-  tempcoderesult = eval( $tempdoc )
+ 
+  tempcoderesult = eval( tempdoc )
 
   # build the actual GUI from the gui parts
-  $tempdoc = " "
-  #get a list of the files and subdirectories on the starting directory only
-  a = Array.new(Dir[GuiDir].entries.sort)
-  #loop through the list, ignore the files and add all new directories found
-  a.each do |x|
-	  #if a directory...
-	  if(test(?d,x))
-		  #use this new dir find to add to the original list of directories
-		  @@root = x + "/**"
-		  #adds the new ones to the array
-		  b = Dir[@@root].entries.sort
-		  b.each do |x|
-			  if(test(?d,x))
-				  a.push(x)  #appends to the end of the array...
-			  end
-		  end
-	  end
-  end
-  a.each do |x|
-	  #if it is a file...
-	  if(!test(?d,x)) 
-		  a.delete(x)
-
-	  else #it is a directory...
-		  loadguifile(x + "/**")
-	  end
-  end
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
 
   # gui variable is done
   guiRWD = ""
-  $rwd_gui_tinker = $tempdoc
+  $rwd_gui_tinker =  tempdoc
   require 'socket'		# Network stuff
   host = "127.0.0.1"
   port = $port
@@ -255,27 +152,27 @@ Rconftool::install(configdist,confignew)     #integrates new file with old
 		  $port = port
 		  # Rescue the "Address in use" error
 	  rescue Errno::EADDRINUSE
-		  puts "RWD Startup: Port #{port} on host #{host} is already in use."
+		  $rwdtinkerlog.warn "RWD Startup: Port #{port} on host #{host} is already in use."
 		  port=port +1
-		  puts "trying port: #{port}"
+		  $rwdtinkerlog.warn "trying port: #{port}"
 		  # Rescue the "Address not available' error
 	  rescue Errno::EADDRNOTAVAIL
-		  puts "RWD Startup: Address #{host} is not available to bind."
+		  $rwdtinkerlog.warn "RWD Startup: Address #{host} is not available to bind."
 		  port =port + 1
-		  puts "trying port: #{port}"
+		  $rwdtinkerlog.warn "trying port: #{port}"
 		  # Rescue "permission denied errors
 	  rescue Errno::EACCES
-		  puts "RWD Startup: Access denied when binding interface addresses. ?"
+		  $rwdtinkerlog.warn "RWD Startup: Access denied when binding interface addresses. ?"
 		  port =port + 1
-		  puts "trying port: #{port}"
+		  $rwdtinkerlog.warn "trying port: #{port}"
 		  # Rescue all other errors
 	  rescue
-		  puts "RWD Startup: An error occured."
+		  $rwdtinkerlog.warn "RWD Startup: An error occured."
 		  port =port + 1
-		  puts "trying port: #{port}"
+		  $rwdtinkerlog.warn "trying port: #{port}"
 		  # Rescue all other errors
 	  end
-
+  $port = port
   end