[Fvwm-crystal-commits] SF.net SVN: fvwm-crystal:[63] fvwm/components/functions

[<dom...@us...>]

Revision: 63
          http://fvwm-crystal.svn.sourceforge.net/fvwm-crystal/?rev=63&view=rev
Author:   dominique_libre
Date:     2011-01-29 20:19:04 +0000 (Sat, 29 Jan 2011)

Log Message:
-----------
Fullscreen: Added comment, cleanup

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/Fullscreen

Modified: ChangeLog
===================================================================
--- ChangeLog	2011-01-29 20:13:58 UTC (rev 62)
+++ ChangeLog	2011-01-29 20:19:04 UTC (rev 63)
@@ -8,8 +8,8 @@
   * Developper menu: replaced man system doc browser by support for info browser
     via emacs, pinfo or tkinfo
   * Added support for specific elements of the Amiga Recipe into EWMH-BaseStruts
+  * Fullscreen: Added comment, cleanup
   
-  
 Samedi 1 janvier 2011 Dominique Michel
   * Wimdow-Raise-Move-Lover witll focus on a non overlapped window
     of the current page, if any.

Modified: fvwm/components/functions/Fullscreen
===================================================================
--- fvwm/components/functions/Fullscreen	2011-01-29 20:13:58 UTC (rev 62)
+++ fvwm/components/functions/Fullscreen	2011-01-29 20:19:04 UTC (rev 63)
@@ -15,12 +15,19 @@
 # Key Q A M Fullscreen
 #
 # The other window size functions are into Window-Buttons.
-# 
+#
 # 'Fullscreen-Start' and 'Fullscreen-Stop' functions shouldn't be called
 # directly, use 'Fullscreen' function instead.
 #
 # Recipe : Must be included after the styles otherwise strange results will append
-# when restarting Fvwm.
+# when restarting Fvwm. Not sure if this remark is still valid because I done a lot
+# of styles loading order debugging in the maintime.
+#
+# Todo:
+# - restore the position when restoring the "normal" window
+# - when cycling trough the fullscreened windows, go to the original page
+#   of each window and make it visible here.
+# - possibility to cycle trough the fullsceened windows only in the current page
 
 SetEnv ThumbDirectory "/tmp"
 
@@ -31,7 +38,7 @@
 + I ThisWindow (State 19) Fullscreen-Stop
 + I TestRc (NoMatch) ThisWindow (!State 19) Fullscreen-Start
 
-# State 20 = on => window on screen; State 20 = off => iconified + no icon  
+# State 20 = on => window on screen; State 20 = off => iconified + no icon
 DestroyFunc Fullscreen-Start
 AddToFunc Fullscreen-Start
 + I SetEnv "FSWindowWidth_$[w.id]"  "$[w.width]p"
@@ -48,7 +55,7 @@
 
 DestroyFunc Fullscreen-Stop
 AddToFunc Fullscreen-Stop
-+ I WindowStyle Title, Borders, Iconifiable, !ResizeHintOverride 
++ I WindowStyle Title, Borders, Iconifiable, !ResizeHintOverride
 + I WindowStyle Maximizable, !FixedSize
 + I WindowStyle !State 19
 + I WindowStyle !State 20
@@ -79,8 +86,6 @@
 + I WindowStyle NoIcon
 + I UpdateStyles
 + I Iconify true
-# ? redondant
-#+ I Exec exec touch $[ThumbDirectory]/fullscreen.20.$[w.id].tmp
 
 DestroyFunc Disapear-Off
 AddToFunc Disapear-Off
@@ -88,7 +93,7 @@
 Test (f $[ThumbDirectory]/fullscreen.20.$[w.id].$[page.nx].tmp) PipeRead 'page=`ls $[ThumbDirectory] | grep 20.$[w.id] | awk --field-separator .  "{print 4}"`; echo "+ I GotoPage $page 0"'
 + I Iconify false
 + I WindowStyle State 20
-+ I WindowStyle Icon 
++ I WindowStyle Icon
 + I UpdateStyles
 + I Test (f $[ThumbDirectory]/fullscreen.20.$[w.id].$[page.nx].tmp) Exec exec rm -f $[ThumbDirectory]/fullscreen.20.$[w.id].$[page.nx].tmp
 #+ I Test (f $[ThumbDirectory]/fullscreen.20.$[w.id].tmp) Exec exec rm -f $[ThumbDirectory]/fullscreen.20.$[w.id].tmp
@@ -104,7 +109,6 @@
 
 DestroyFunc Fullscreen-Recover
 AddToFunc Fullscreen-Recover
-+ I Echo "héhé"
 + I WindowStyle !Title, !Borders, Iconifiable, ResizeHintOverride
 + I UpdateStyles
 + I WindowStyle State 19


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.