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} ""}