rwdfoldeditor 0.05 → 0.07

data/code/01rwdcore/01rwdcore.rb

@@ -1,8 +1,5 @@
 # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
-# This application is a framework for writing programs from RubyWebDialogs
-# http://www.erikveen.dds.nl/rubywebdialogs/index.html 
-# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
-# This class is the top class for the RwdTinker application 
+
 
 $DEBUG=false
 $VERBOSE=false
@@ -27,3 +24,7 @@ class RwdTinker  < RWDialog
 		"#{$rwdapplicationidentity}" 
 	end
 
+
+# for original RWD work see: http://www.erikveen.dds.nl/rubywebdialogs/index.html 
+# For more information about RwdTinker see http://www.rubyforge.net/projects/rwdapplications
+# This class is the top class for the RwdTinker application 

data/code/01rwdcore/02helptexthashbegin.rb

@@ -1,4 +1,16 @@
-  
+  # Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 
- Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Identificador de mensaje desconocido: #{kk.inspect}."; hh[kk] }
+ Helptext = Hash.new { |hh, kk| hh[kk] = "ERROR: Message-ID Unknown: #{kk.inspect}."; hh[kk] }
     helpmessage = {
+    :tinker_help          => "rwdtinker is the core application for the
+                       rwdapplications. "
+      
+    }
+    helpmessage.each { |kk, vv| Helptext[kk] = vv }
+    
+
+=begin
+    this is to set up the help  buttons 
+    this uses a hash
+=end
+    

data/code/01rwdcore/03helptexthash.rb

@@ -1,23 +1,21 @@
- # Help files for RwdTinker core
+ # this code loads the help text
 
-   
-      :general_help          => "You can work with Applets:  go to 'Selection tab', <br>
-                                  On that back screen you will find:<br>
-                                  List Applets:  you can see and delete installed applets<br>
-                                  List Zips: you can see lists of applets that you can install<br>
-                                  Edit Configuration: You can view the rwdtinker configuration and change it<br>
-                                  Diagnostic Tab: You can view the environments variables that rwdtinker is running with<br>
-      ",
-      :network_help  => "Using over a Network: To serve the application over your local LAN,change the last line in the<br>
-init.rb file to something like:\n<br>
-RwdTinker.file(RWDFile).serve(8080, '-r' ? '.rwduids' : nil)\n<br>
-Then you should be able to login at: http://yourhostname:8080",
+                  
+               tmphelpfilename = "Tinkerhelptexthash.txt" 
+               tmphelpdir = "rwd_files"
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = File.join(tmphelpdir ,tmphelpfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      tmphelptext =        fd.read
+             fd.close
+	     eval  tmphelptext
+        rescue SystemCallError, StandardError
+	    $rwdtinkerlog.error  "Tinkerbell help file load: system call error: "
+        end # exception rescue
 
-          
-  :documents_rwdtinker => "<b>Documents:
-  <p>
   
-  when you click on a document name, the document should pop up in a <br>
-  browser window, or in another browser tab.</b>
-  "
-      

data/code/01rwdcore/jumplinkcommand.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # Bind message passing socket to rwdtinker application
 
     locationlink = {

data/code/01rwdcore/openhelpwindow.rb

@@ -1,4 +1,7 @@
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to call the help window
+# for RwdTinker core
+
 def runhelpwindow
 	$helptopicsarray = $helptopicsarray | ["applet_installation","applet_viewing","applet_tinkerbackeditconfiguration"]
 
@@ -29,3 +32,7 @@ def choosenewhelptopic(inffile)
 end
 
 
+
+#  Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# this code is to call the help window
+# for RwdTinker core

data/code/01rwdcore/runhelpabout.rb

@@ -7,4 +7,9 @@
    @rwd_window = "rwdtinkerhelpwindow"
   
    end 
-   
+
+=begin
+This def runtinkerhelpabout
+is to call the rwdtinkerhelpwindow
+=end
+

data/code/01rwdcore/runopentinkerdocument.rb

@@ -1,7 +1,7 @@
 # open document for rwdtinker application
 def runopentinkerdocument
 
-tinkerdocumenturl = "http://localhost:7705/" + @a_tinkerdocumentinput
+tinkerdocumenturl = "http://localhost:#{$port}/" + @a_tinkerdocumentinput
     Thread.new( tinkerdocumenturl){ |t|  `#{Browser_Exe} #{tinkerdocumenturl}`  }
  end
    

data/code/01rwdcore/selectiontab.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # this code is to return to the window back from the help window
+
 def runselectiontab
 
 	

data/code/01rwdcore/setuphelpaboutoptions.rb

@@ -1,4 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # help about option setup for rwdtinker application
+
 def setuphelpaboutoptions 
 
   @rwd_window = "tinkerhelpabout"

data/code/01rwdcore/setuptinkerdocuments.rb

@@ -1,3 +1,4 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
 # Bind document names  to rwdtinker document tab
 def setuptinkerdocuments 
 

data/code/01rwdcore/uploadreturns.rb

@@ -1,3 +1,6 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+# return information to the author
+
 def uploadreturnsfile
 	require 'net/ftp'
 	BasicSocket.do_not_reverse_lookup = true 

data/code/dd0viewphoto/dd0viewphoto.rb

@@ -1,3 +1,5 @@
+# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
+
 def viewphoto
 	@rwd_window = "photo"
 end

data/code/superant.com.foldeditor/0uninstallapplet.rb

@@ -5,7 +5,14 @@ $tinkerhelpaboutarray.delete_if {|x| x == "RwdFoldEditor"}
 Helptext.delete_if {|key, value| key == :rwdfoldeditor_generalhelp}
 Helptext.delete_if {|key, value| key == :foldlinkview_help }
 Helptext.delete_if {|key, value| key == :foldlinkutility_help }
+Helptext.delete_if {|key, value| key == :foldzipfile_help }
 $rwdjumplink.delete_if {|x| x == "RwdFoldEditor"}
-$rwdjumplink.delete_if {|x| x == "FoldBackWindow"}
+
+  if DeleteFoldEditorConfig
+
+                 fileName =  File.join("configuration","rwdwfoldeditor.cnf")
+                 File.delete(fileName)
+    end
+    return true
 
 end

data/code/superant.com.foldeditor/addzipfiles.rb

@@ -0,0 +1,45 @@
+#  info
+def zipfoldeditorfile
+	require 'fileutils'
+	require 'lib/zip/zip'
+	begin # exception trapped block
+	nametext = "%s" % [File.basename(@a_viewfoldlinkfile,".fld")]
+
+	
+		fullname =  nametext +"-" + Time.now.localtime.strftime("%Y-%m-%d")+".zip"
+		  fileName = @a_viewfoldlinkfile
+		foldfilename = File.join($rwdfoldeditor_directory, fileName)
+         
+	   foldfilehandle = File.open(foldfilename,"r")
+		tempfilecontents = " "
+		
+		Zip::ZipOutputStream.open(fullname ) {
+  |zos|
+  zos.put_next_entry( nametext)
+  zos.puts "the fold file name is: #{@a_viewfoldlinkfile}"
+  zos.close
+}
+
+  zipfilehandle = Zip::ZipFile.open(fullname) 
+ foldfilehandle.each {|line|
+  if FileTest.exist?(line.strip)
+		             		zipfilehandle.add(File.basename(line).strip,line.strip)
+	end
+                 }		
+ 
+
+ zipfilehandle.close
+
+	              
+         		foldfilehandle.close 
+		
+@a_zipfoldeditorlinkfile = fullname 
+
+	rescue
+	  $rwdtinkerlog.error "zipfoldeditorfile:  error - #{$!}"
+		
+	end # exception rescue
+
+end
+
+

data/code/superant.com.foldeditor/helptexthashload.rb

@@ -0,0 +1,22 @@
+   # this code loads the help text
+
+                 
+               tmphelpfilename = "rwdfoldeditorhelpfiles.txt" 
+               tmphelpdir = "rwd_files"
+	      
+        begin # exception trapped block
+       
+       
+	      fileName = File.join(tmphelpdir ,tmphelpfilename )
+        
+        
+	      fd = File.open(fileName,"r")
+	      tmphelptext =        fd.read
+             fd.close
+	     eval  tmphelptext
+	     
+        rescue SystemCallError, StandardError
+	    $rwdtinkerlog.error  "foldeditor help file load: system call error: "
+        end # exception rescue
+
+  

data/code/superant.com.foldeditor/launchfoldeditorurl.rb

@@ -1,8 +1,10 @@
 # launch the browser with a url
 def foldeditorlaunchurl
 
-url = "file://" + @a_viewfoldlink.to_s.strip
-
+ url1 = File.expand_path(  @a_viewfoldlink.to_s.strip )
+ 
 url = "file://#{url1}" 
+
+
 `#{$foldeditorbrowser}  "#{url}"`
 
 end
@@ -11,7 +13,7 @@ def foldeditorlaunchhttp
 
 url =  @a_viewfoldlink.to_s.strip
 
-$stderr.puts url
+
 `#{$foldeditorbrowser}  "#{url}"`
 
 end

data/code/superant.com.foldeditor/openhelpwindowrwdhyernote.rb

@@ -15,8 +15,12 @@ def runhelpwindowrwdfoldeditor
     $help_topic = "rwdfoldeditor_generalhelp"
    end 
    
-    
-   $helptopicsarray =  $helptopicsarray | ["rwdfoldeditor_generalhelp","foldlinkview_help","foldlinkutility_help"]
+     if @rwd_tab == "foldeditorzipslister" 
+      
+    $help_topic = "foldzipfile_help"
+   end 
+   
+   $helptopicsarray =  $helptopicsarray | ["rwdfoldeditor_generalhelp","foldlinkview_help","foldlinkutility_help","foldzipfile_help"]
   
    
   

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

@@ -1,4 +1,3 @@
-
 #***********************************************************************
 #* Rwd/Tinker -- A Ruby program for the RudyWebDialog.
 #* Copyright (c) 2004 - 2005 by Steven Gibson. All Rights Reserved.
@@ -30,8 +29,6 @@ def initiateapplet(nametextlocal)
 	
 	$rwdtinkerlog.info  "initiateapplet: starting config load with: #{nametextlocal}"
 
-
-
   Dir.chdir($progdir )    #changes the current working directory
 	  
   @confignew =  "configuration/" + "#{nametextlocal}.cnf"
@@ -44,13 +41,10 @@ begin
 	 
        eval configfileload  #load  config file
        
-    
-	
 	 rescue
 	 
    $rwdtinkerlog.error  "initiateapplet: error in initiateapplets - config load"
         
-  
         debuginitiate += 1
 end
 $tempdoc = " "
@@ -58,80 +52,24 @@ $tempdoc = " "
   Dir.chdir($progdir) # change back to top program directory
 
   # build the English Language hash file from the parts
-  languagehashvariable = 'Message.update('
-  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
-  end
-
+  require 'lib/rwdtinker/rwdlangdir'
+  
+  tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,"en")
 
   #writes the contents of doc into the  languagehashvariable 
-
   
-  languagehashvariable  =  languagehashvariable + $tempdoc + ' :rwdtinker => "Rwdtinker" ) ;'
+  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
-  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
+  tempdoc  = RwdtinkerTools.findlanguagefiles(LangDir,$lang)
 
+   #writes the contents of doc into the variable
 
-  #writes the contents of doc into the variable
-
- languagehashvariable =  languagehashvariable  + "  Message.update(" + $tempdoc + ' :rwdtinker => "Rwdtinker" ) '
- 
-  
-    
-  $tempdoc = " "
+ languagehashvariable =  languagehashvariable + tempdoc 
 
   Dir.chdir($progdir) # change back to top program directory
 
@@ -142,44 +80,18 @@ $tempdoc = " "
   begin # error trap
   
 	# 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
-
-$rwd_gui_tinker = $tempdoc
-
+  tempdoc = " "
+  
+   require 'lib/rwdtinker/rwdguidir'
+   
+  tempdoc = RwdtinkerTools.findguifiles(GuiDir)
+  
+ $rwd_gui_tinker = tempdoc
   
  rescue
     $rwd_gui_tinker = tempguistorage # restore old gui
     
     $rwdtinkerlog.error  "error in initiateapplets - gui building"
-     
 
         debuginitiate += 1
 end
@@ -237,5 +149,21 @@ begin # error trap
 end
 
 
+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
+