[PD-cvs] SF.net SVN: pure-data:[10553] branches/pd-devel/0.41.4/src/pd_menucommands. tcl
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Wed Jan 14 16:32:48 CET 2009
Revision: 10553
http://pure-data.svn.sourceforge.net/pure-data/?rev=10553&view=rev
Author: eighthave
Date: 2009-01-14 15:32:47 +0000 (Wed, 14 Jan 2009)
Log Message:
-----------
added menu_raise_pdwindow proc and put platform-specific procs at the end
Modified Paths:
--------------
branches/pd-devel/0.41.4/src/pd_menucommands.tcl
Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-14 14:36:28 UTC (rev 10552)
+++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-14 15:32:47 UTC (rev 10553)
@@ -12,22 +12,6 @@
}
# ------------------------------------------------------------------------------
-# Mac OS X specific functions
-
-proc ::pd_menucommands::menu_bringalltofront {} {
- #use [winfo children .] here to get windows that are minimized
- foreach item [winfo children .] {
- #get all toplevel windows, exclude menubar windows
- if { [string equal [winfo toplevel $item] $item] && [catch {$item cget -tearoff}]} {
- wm deiconify $item
- }
- }
- #be sure to deiconify ., since the above command only gets the child toplevels
- wm deiconify .
-}
-
-
-# ------------------------------------------------------------------------------
# functions called from File menu
proc ::pd_menucommands::menu_new {} {
@@ -109,7 +93,6 @@
# ------------------------------------------------------------------------------
# window management functions
-
proc ::pd_menucommands::menu_minimize {} {
set windowlist [wm stackorder .]
if {$windowlist != {}} {
@@ -122,3 +105,28 @@
wm state $mytoplevel zoomed
}
+proc menu_raise_pdwindow {} {
+ set pd_window .
+ set top_window [lindex [wm stackorder $pd_window] end]
+ if {$pd_window eq $top_window} {
+ lower $pd_window
+ } else {
+ wm deiconify $pd_window
+ raise $pd_window
+ }
+}
+
+# ------------------------------------------------------------------------------
+# Mac OS X specific functions
+
+proc ::pd_menucommands::menu_bringalltofront {} {
+ #use [winfo children .] here to get windows that are minimized
+ foreach item [winfo children .] {
+ #get all toplevel windows, exclude menubar windows
+ if { [string equal [winfo toplevel $item] $item] && [catch {$item cget -tearoff}]} {
+ wm deiconify $item
+ }
+ }
+ #be sure to deiconify ., since the above command only gets the child toplevels
+ wm deiconify .
+}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list