[PD-cvs] pd/src desire.tk,1.1.2.600.2.20,1.1.2.600.2.21

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
use new titlebar icon


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.20
retrieving revision 1.1.2.600.2.21
diff -C2 -d -r1.1.2.600.2.20 -r1.1.2.600.2.21
*** desire.tk	5 Dec 2006 17:01:11 -0000	1.1.2.600.2.20
--- desire.tk	5 Dec 2006 17:41:35 -0000	1.1.2.600.2.21
***************
*** 711,714 ****
--- 711,715 ----
      . configure -menu .mbar
      wm title . "DesireData"
+     wm iconphoto . icon_pd
      post "DesireData 0.39.A, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel
  }
***************
*** 1598,1601 ****
--- 1599,1603 ----
      set c [$self widget]
      toplevel $win -menu $win.m
+     wm iconphoto $win icon_pd
      set butts [[ButtonBar new $self] widget]
      # turn buttonbar on/off
***************
*** 5670,5693 ****
  }
  
! proc load_button_bar {} {
! 	global butt cmdline
! 	set dir $cmdline(icons)
! 	foreach icon {mode_edit mode_run} {
! 		image create photo icon_$icon -file $dir/$icon.gif
! 	}
! 	foreach b $butt {
! 		mset {icon name cmd} $b
! 		image create photo icon_$icon -file $dir/$icon.gif
! 	}
  }
  
- set buttons_loaded 0
  class_new ButtonBar {Thing}
  
  def ButtonBar init {canvas} {
! 	global buttons_loaded butt
  	set @canvas $canvas
  	set bb .$@canvas.bbar
- 	if {!$buttons_loaded} {load_button_bar}
  	frame $bb
  	pack [button $bb.edit -image icon_mode_edit -border 1 -command "$@canvas editmodeswitch"] -side left
--- 5672,5690 ----
  }
  
! set dir $cmdline(icons)
! foreach icon {mode_edit mode_run pd} {
! 	image create photo icon_$icon -file $dir/$icon.gif
! }
! foreach b $butt {
! 	mset {icon name cmd} $b
! 	image create photo icon_$icon -file $dir/$icon.gif
  }
  
  class_new ButtonBar {Thing}
  
  def ButtonBar init {canvas} {
! 	global butt
  	set @canvas $canvas
  	set bb .$@canvas.bbar
  	frame $bb
  	pack [button $bb.edit -image icon_mode_edit -border 1 -command "$@canvas editmodeswitch"] -side left