[PD-cvs] pd/src desire.tk,1.1.2.600.2.165,1.1.2.600.2.166

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed 'raise' in Canvas and moved it to Menuable so that it can apply to Client (main window)


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.165
retrieving revision 1.1.2.600.2.166
diff -C2 -d -r1.1.2.600.2.165 -r1.1.2.600.2.166
*** desire.tk	11 Jan 2007 22:05:00 -0000	1.1.2.600.2.165
--- desire.tk	12 Jan 2007 22:47:13 -0000	1.1.2.600.2.166
***************
*** 911,914 ****
--- 911,916 ----
  
  # a menuable must be a View
+ # and it must have a window so that the Menuable methods work
+ # it could be renamed to Windowed
  class_new Menuable {}
  def Menuable init {args} {
***************
*** 918,921 ****
--- 920,930 ----
  }
  
+ # this doesn't have to do with menus, only with toplevel windows.
+ def Menuable raise {} {
+ 	set w [$self window]
+ 	raise $w
+ 	focus -force $w
+ }
+ 
  set untitled_number 1
  set untitled_folder [pwd]
***************
*** 2391,2401 ****
  def Canvas modified? {} {return 1}
  
- def Canvas raise {} {
- #	set w [$self window]
- #	$w raise
- #	$w focus
- #	$w deiconify
- }
- 
  def Canvas mapped {} {return $@mapped}
  def Canvas mapped= {v} {set @mapped $v}
--- 2400,2403 ----