[PD-cvs] pd/src desire.tk,1.1.2.404,1.1.2.405

chunlee chunlee at users.sourceforge.net
Fri Aug 25 15:46:35 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
some tidy up


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.404
retrieving revision 1.1.2.405
diff -C2 -d -r1.1.2.404 -r1.1.2.405
*** desire.tk	24 Aug 2006 17:14:00 -0000	1.1.2.404
--- desire.tk	25 Aug 2006 13:46:32 -0000	1.1.2.405
***************
*** 507,589 ****
    default {error huh??? unknown lang (locale)}
  }
- 
  #-----------------------------------------------------------------------------------#
! #set key(Object) "Ctrl+1"
! #set key(Message) "Ctrl+2"
! #set key(Number) "Ctrl+3"
! #set key(Symbol) "Ctrl+4"
! #set key(Comment) "Ctrl+5"
! #set key(Bang) "Alt+b"
! #set key(Toggle) "Alt+t"
! #set key(Number2) "Alt+n"
! #set key(Vslider) "Alt+v"
! #set key(Hslider) "Alt+h"
! #set key(Vradio) "Alt+d"
! #set key(Hradio) "Alt+i"
! #set key(VU) "Alt+u"
! #set key(dropper) "Alt+x"
! #set key(Canvas) "Alt+c"
! #set key(Graph) ""
! #set key(Array) ""
! #set key(parentwindow) ""
! #set key(Pdwindow) ""
! #set key(new_file) "Ctrl+n"
! #set key(open_file) "Ctrl+o"
! #set key(pdrc_editor) "Ctrl+p"
! #set key(ddrc_editor) "Ctrl+l"
! #set key(send_message) "Ctrl+m"
! #set key(paths) ""
! #set key(quit) "Ctrl+q"
! #set key(find) "Ctrl+f"
! #set key(find_again) "Ctrl+g"
! #set key(find_last_error) ""
! #set key(audio_on) "Ctrl+slash"
! #set key(audio_off) "Ctrl+period"
! #set key(audio_settings) ""
! #set key(midi_settings) ""
! #set key(test_audio_and_midi) ""
! #set key(load_meter) ""
! #set key(latency_meter) ""
! #set key(about) ""
! #set key(class_browser) ""
! #set key(quit) "Ctrl+q"
! #set key(close) "Ctrl+w"
! #set key(save) "Ctrl+s"
! #set key(save_as) "Ctrl+S"
! #set key(cut) "Ctrl+x"
! #set key(copy) "Ctrl+c"
! #set key(print) "Ctrl+p"
! #set key(undo) "Ctrl+z"
! #set key(redo) "Ctrl+Z"
! #set key(paste) "Ctrl+v"
! #set key(duplicate) "Ctrl+d"
! #set key(select_all) "Ctrl+a"
! #set key(text_editor) "Ctrl+t"
! #set key(font_bomb) ""
! #set key(tidy_up) ""
! #set key(reload) "Ctrl+r"
! #set key(redraw) ""
! #set key(crosshair) ""
! #set key(editmodeswitch) "Ctrl+e"
! #set key(popup_properties) ""
! #set key(popup_help) ""
! #set key(popup_open) ""
! #set key(client_class_tree) "Ctrl+grave"
! #set key(key_nav_up) "Ctrl+up"
! #set key(key_nav_down) "Ctrl+down"
! #set key(key_nav_right) "Ctrl+right"
! #set key(key_nav_left) "Ctrl+left"
! #set key(key_nav_up_shift) "Ctrl+UP"
! #set key(key_nav_down_shift) "Ctrl+DOWN"
! #set key(key_nav_right_shift) "Ctrl+RIGHT"
! #set key(key_nav_left_shift) "Ctrl+LEFT"
! #set key(key_nav_ioselect) "Ctrl+tab"
! #set key(incr_zoom) "Ctrl+equal"
! #set key(decr_zoom) "Ctrl+minus"
! ##set accels {}
! ##foreach k [array names key] {dict set accels $key($k) $k}
  
! set key(Client:Canvas) "Alt+c"
  
  set key(Canvas:Object) "Ctrl+1"
  set key(Canvas:Message) "Ctrl+2"
--- 507,561 ----
    default {error huh??? unknown lang (locale)}
  }
  #-----------------------------------------------------------------------------------#
! set font(size) 12
! set font(str2) "-*-courier-medium--normal--%d-*"
! set font(str) [format -*-courier-medium--normal--%d-* $font(size)]
! set font(width)  [font measure $font(str) W]
! set font(height) [font metrics $font(str) -linespace]
! set font(pady) 3
! set font(padx) 5
! #-----------------------------------------------------------------------------------#
! set look(extrapix) [switch $OS {
!         osx     {concat 2}
!         default {concat 1}}]
  
! set look(View:tooltip) 1
! set look(View:iowidth) 7
! set look(View:minobjwidth) 21
! set look(View:iopos) 0
! set look(View:inletfg) #ff0000
! set look(View:outletfg) #ff0000
! set look(View:selectframe) #0080ff
! set look(View:fg) #000000
! set look(View:bg) #ffffff
! set look(View:frame1) #99cccc
! set look(View:frame2) #668888
! set look(View:frame3) #000000
! set look(Comment:fg) #000000
! set look(Comment:bg) #cccccc
! set look(Comment:frame1) #ffffff
! set look(Comment:frame2) #888888
! set look(Comment:frame3) #cccccc
! set look(Canvas:bgrun) #ffffff
! set look(Canvas:bgedit) #dddddd
! set look(Canvas:crosshair) #ff14ff
! set look(Canvas:buttonbar) 1
! set look(Canvas:statusbar) 1
! set look(Canvas:hairstate) 1
! set look(Canvas:hairsnap) 1
! set look(SelRect:rect) #ff12ff
! set look(Wire:fg) #888888
! set look(Wire:fg2) #ee0000
! set look(Wire:thick) 1
! set look(FutureWire:dash) #ee0012
! set look(Slider:bg) #ccebff
! set look(Completion:showcomp) 10
! set look(Completion:fg) #000000
! set look(Completion:bg) #ffffff
! set look(Completion:selectbg) #000000
! set look(Completion:selectfg) #ffffff
  
+ set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400]
+ #-----------------------------------------------------------------------------------#
  set key(Canvas:Object) "Ctrl+1"
  set key(Canvas:Message) "Ctrl+2"
***************
*** 674,677 ****
--- 646,650 ----
  set key(Client:font_bomb) ""
  set key(Client:client_class_tree) "Ctrl+grave"
+ set key(Client:Canvas) "Alt+c"
  
  set accels {}
***************
*** 1037,1155 ****
  }
  
- #-----------------------------------------------------------------------------------#
- set font(size) 12
- set font(str2) "-*-courier-medium--normal--%d-*"
- set font(str) [format -*-courier-medium--normal--%d-* $font(size)]
- set font(width)  [font measure $font(str) W]
- set font(height) [font metrics $font(str) -linespace]
- set font(pady) 3
- set font(padx) 5
- #-----------------------------------------------------------------------------------#
- set look(iowidth) 7
- set look(iopos) 0
- set look(inletfg) #ff0000
- set look(outletfg) #ff0000
- set look(objectfg) #000000
- set look(objectbg) #ffffff
- set look(objectframe1) #99cccc
- set look(objectframe2) #668888
- set look(objectframe3) #000000
- set look(selectframe) #0080ff
- set look(commentfg) #000000
- set look(commentbg) #cccccc
- set look(commentframe1) #ffffff
- set look(commentframe2) #888888
- set look(commentframe3) #cccccc
- set look(canvasbgrun) #ffffff
- set look(canvasbgedit) #dddddd
- set look(selrect) #ff12ff
- set look(wirefg) #888888
- set look(wirefg2) #ee0000
- set look(wirethick) 1
- set look(wiredash) #ee0012
- set look(sliderbg) #ccebff
- #set look(sliderbg) #ffeedd
- set bar(buttonbar) 1
- set bar(statusbar) 1
- set look(showcomp) 10
- set look(tooltip) 1
- 
- set look(extrapix) [switch $OS {
-         osx     {concat 2}
-         default {concat 1}}]
- set look(minobjwidth) 21
- 
- set look(View:tooltip) 1
- set look(View:iowidth) 7
- set look(View:minobjwidth) 21
- set look(View:iopos) 0
- set look(View:inletfg) #ff0000
- set look(View:outletfg) #ff0000
- set look(View:selectframe) #0080ff
- set look(View:fg) #000000
- set look(View:bg) #ffffff
- set look(View:frame1) #99cccc
- set look(View:frame2) #668888
- set look(View:frame3) #000000
- set look(Comment:fg) #000000
- set look(Comment:bg) #cccccc
- set look(Comment:frame1) #ffffff
- set look(Comment:frame2) #888888
- set look(Comment:frame3) #cccccc
- set look(Canvas:bgrun) #ffffff
- set look(Canvas:bgedit) #dddddd
- set look(Canvas:crosshair) #ff14ff
- set look(Canvas:buttonbar) 1
- set look(Canvas:statusbar) 1
- set look(Canvas:hairstate) 1
- set look(Canvas:hairsnap) 1
- set look(SelRect:rect) #ff12ff
- set look(Wire:fg) #888888
- set look(Wire:fg2) #ee0000
- set look(Wire:thick) 1
- set look(FutureWire:dash) #ee0012
- set look(Slider:bg) #ccebff
- set look(Completion:showcomp) 10
- set look(Completion:fg) #000000
- set look(Completion:bg) #ffffff
- set look(Completion:selectbg) #000000
- set look(Completion:selectfg) #ffffff
- 
- 
- 
- set scale(canned) [list 25 33 50 75 100 125 150 200 250 300 400]
- set crosshair(hairstate) 1
- set crosshair(hairsnap) 1
  
  #-----------------------------------------------------------------------------------#
  proc read_ddrc {} {
! 	global look crosshair bar
! 	set file [open "~/.ddrc" "RDONLY CREAT"]
! 	set dd_config [read $file]
! 	close $file
! 	foreach line [split $dd_config "\n"] {
! 		if {[regexp {^#} $line comment]} {continue} ;# skip comments
! 		foreach {word1 word2 word3} $line {
! 		  #set word1 [string replace $word1 0 0]
! 		  switch $word1 {
! 		    color {
! 		      set look($word2) $word3
! 		      #puts "look($word2) $word3"
! 		    }
! 		    crosshair {
! 		      set crosshair($word2) $word3
! 		    }
! 		    bar {
! 		      set bar($word2) $word3
! 		    }
! 		    font {
! 		      #puts "settings for font"
! 		    }
! 		    default {
! 		      #puts "settings for something"
! 		    }
! 	          }
  		}
  	}
  }
  read_ddrc
--- 1010,1038 ----
  }
  
  
  #-----------------------------------------------------------------------------------#
  proc read_ddrc {} {
! 	global ddrc_options cmdline look key
! 	set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"]
! 	set contents [read $fd]
! 	close $fd
! 
! 	foreach category_pair $contents {
! 		#puts "reading category ---> [lindex $category 0]"
! 		set category [lindex $category_pair 0]
! 		foreach class_pair [lindex $category_pair 1] {
! 			#puts "	reading class ---> [lindex $class 0]"
! 			set class [lindex $class_pair 0]
! 			foreach var_pair [lindex $class_pair 1] {
! 				set var [lindex $var_pair 0]
! 				set val [lindex $var_pair 1]
! 				#puts "$category ($class:$var) ::: $val"
! 				set ${category}($class:$var) $val
! 			}
  		}
  	}
+ 
+ 
+ 	#if {[regexp {^#} $line comment]} {continue} ;# skip comments
  }
  read_ddrc
***************
*** 1440,1444 ****
      global crosshair
      set @editmode [expr !$@editmode]
!     if {$crosshair(hairstate) && !$@editmode} {$self hide_crosshair}
      pd .$self editmode $@editmode
  }
--- 1323,1327 ----
      global crosshair
      set @editmode [expr !$@editmode]
!     if {[$self look hairstate] && !$@editmode} {$self hide_crosshair}
      pd .$self editmode $@editmode
  }
***************
*** 1523,1527 ****
  def Canvas init_window {} {
      global bar
-     puts "	--- butt:: $bar(buttonbar) status::: $bar(statusbar)"
      set win .$self
      set c .$self.c
--- 1406,1409 ----
***************
*** 4597,4601 ****
  	set vy2 [expr ($y1+($y2-$y1)*$vy2)/$@scale]
  	mset {type id detail} $target
! 	if {$crosshair(hairsnap)} {
  	  switch -regexp -- $type {
  	    ^object|outlet|inlet$ {
--- 4479,4483 ----
  	set vy2 [expr ($y1+($y2-$y1)*$vy2)/$@scale]
  	mset {type id detail} $target
! 	if {[$self look hairsnap]} {
  	  switch -regexp -- $type {
  	    ^object|outlet|inlet$ {
***************
*** 4634,4638 ****
  	set vy2 [expr ($y1+($y2-$y1)*$vy2)/$@scale]
  	mset {type id detail} $target
! 	if {$crosshair(hairsnap)} {
  	  switch -regexp -- $type {
  	    ^object|outlet|inlet$ {
--- 4516,4520 ----
  	set vy2 [expr ($y1+($y2-$y1)*$vy2)/$@scale]
  	mset {type id detail} $target
! 	if {[$self look hairsnap])} {
  	  switch -regexp -- $type {
  	    ^object|outlet|inlet$ {
***************
*** 5578,5649 ****
  
  #################### ClientPrefsDialog
- 
- set ddrc_options2 {
- section section_color
-  subsection canvas_color
-   color canvasbgedit
-   color canvasbgrun
-  subsection object_color
-   color objectbg
-   color objectfg
-   color objectframe1
-   color objectframe2
-   color objectframe3
-   color commentbg
-   color commentfg
-   color commentframe1
-   color commentframe2
-   color commentframe3
-   color selectframe
-  subsection wire_color
-   color wirefg
-   color wirefg2
-   color wiredash
-  subsection others_color
-   color inletfg
-   color outletfg
-   color selrect
- section keys
-  subsection put
-   key Object
-   key Message
-   key Number
-   key Symbol
-   key Comment
-   key Bang
-   key Toggle
-   key Number2
-   key {Vslider Hslider}
-   key {Vradio Hradio}
-   key Canvas
-   key Array
-  subsection edit
-   key {cut copy}
-   key {undo redo}
-   key paste
-   key select_all
-   key {reload redraw}
-   key editmodeswitch
-  subsection general
-   key Pdwindow 
-   key new_file
-   key open_file
-   key {save save_as}
-   key {pdrc_editor ddrc_editor}
-   key paths
-   key {close quit}
-   key {find find_again}
-   key {audio_on audio_off}
-   key {audio_settings midi_settings}
-   key test_audio_and_midi
-   key {load_meter latency_meter}
-   key about
- section others
-   crosshair hairstate
-   crosshair hairsnap
-   bar buttonbar
-   bar statusbar
- }
- 
  set ddrc_options {
  section Client section_color
--- 5460,5463 ----
***************
*** 5694,5702 ****
   subsection Client general
    key Canvas Pdwindow 
!   key Canvas new_file
!   key Canvas open_file
    key Canvas {save save_as}
    key Client {pdrc_editor ddrc_editor}
-   key Client paths
    key Canvas {close quit}
    key Canvas {find find_again}
--- 5508,5514 ----
   subsection Client general
    key Canvas Pdwindow 
!   key Canvas {new_file open_file}
    key Canvas {save save_as}
    key Client {pdrc_editor ddrc_editor}
    key Canvas {close quit}
    key Canvas {find find_again}
***************
*** 5808,5811 ****
--- 5620,5625 ----
  				if {[info exists $str]} {
  				lappend tmp2 [list $y [set [set str]]]
+ 				#lappend tmp2 $y
+ 				#lappend tmp2 [set [set str]]
  				}
  			}
***************
*** 5934,5942 ****
  	    set label ""
  	    if {[llength $names] > 1} {
! 		foreach name $names {append label " [say $name]"}
  	    } else {
! 		set label [say $names]
  	    }
! 	    if {[string length $label] > $@max_label} {set @max_label [expr [string length $label]+20]}
  	}
  	
--- 5748,5757 ----
  	    set label ""
  	    if {[llength $names] > 1} {
! 		foreach name $names {set str [string tolower $class$name]; append label " [say $str]"}
  	    } else {
! 	    	set str [string tolower $class$names]
! 		set label [say $str]
  	    }
! 	    if {[string length $label] > $@max_label} {set @max_label [expr [string length $label]+20]; puts "$label"}
  	}
  	





More information about the Pd-cvs mailing list