[PD-cvs] pd/src desire.tk,1.1.2.14,1.1.2.15

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24936

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
start to work on loading file, for debuging purpose only


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.14
retrieving revision 1.1.2.15
diff -C2 -d -r1.1.2.14 -r1.1.2.15
*** desire.tk	26 Aug 2005 04:46:41 -0000	1.1.2.14
--- desire.tk	28 Aug 2005 03:40:36 -0000	1.1.2.15
***************
*** 337,341 ****
  
  proc open_file {filename} {
!     puts "open_file $filename""
  
      global pd_opendir
--- 337,341 ----
  
  proc open_file {filename} {
!     puts "open_file $filename"
  
      global pd_opendir
***************
*** 344,348 ****
      set basename [string range $filename [expr [string last / $filename] + 1] end]
      if {[string last .pd $filename] >= 0} {
!         pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
      }
  }
--- 344,396 ----
      set basename [string range $filename [expr [string last / $filename] + 1] end]
      if {[string last .pd $filename] >= 0} {
!         #pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
! 	set fl [open $filename r]
! 	set data [read $fl]
! 	close $fl
! 	set lines [split $data \n]
! 	set no_lines [llength $lines]
! 	
! 	#puts "fl -> $fl"
! 	puts "$data"
! 	puts "read $no_lines lines"
! 	
! 	
! 	foreach line $lines {
! 	
! 		#puts "[lindex $line 0]"
! 		
! 		set type [lindex $line 0]
! 		
! 			if {$type == "#N"} {
! 		
! 				puts "creates canvas"
! 		
! 			} else {
! 		
! 		
! 				#puts "creates obj or wire"
! 		
! 				set ow [lindex $line 1]
! 		
! 					if {$ow != "connect"} {
! 		
! 						puts "create obj"
! 		
! 					} else {
! 		
! 						puts "create wires"
! 		
! 						}	
! 		
! 				}
! 		
! 	}
! 	
! 	#foreach item [lindex $lines 0] {
! 	#
! 	#	puts "$item"
! 	#
! 	#}
! 	
      }
  }
***************
*** 440,445 ****
  
  populate_menu .mbar.file {} {
! 	{"New" {foo menu_new} "Ctrl+n"}
! 	{"Open" {foo menu_open} "Ctrl+o"}
  	{}
  	{"Class List" {foo show_class_list} ""}
--- 488,493 ----
  
  populate_menu .mbar.file {} {
! 	{"New" {menu_new} "Ctrl+n"}
! 	{"Open" {menu_open} "Ctrl+o"}
  	{}
  	{"Class List" {foo show_class_list} ""}