pd/src desire.tk,1.1.2.600.2.165,1.1.2.600.2.166 - Pd-cvs

12 Jan 2007


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