pd/src desire.tk,1.1.2.600.2.20,1.1.2.600.2.21 - Pd-cvs

5 Dec 2006


      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