[xmonad] Firefox `save as` dialog doesnot appear ?

[z_axis]

%uname -a 
Linux myarch 2.6.31-ARCH #1 SMP PREEMPT Tue Nov 10 19:48:17 CET 2009 i686 AMD Athlon(tm) 64 X2 Dual Core Processor 3600+ AuthenticAMD GNU/Linux 

%xmonad --version 
xmonad 0.9 

In firefox, the `save as` dialog doesnot appear when i want to choose picture to save by right clicking the mouse. 

%cat ~/.xmonad/xmonad.hs 
import XMonad 

import XMonad.Hooks.ManageDocks 
import XMonad.Hooks.EwmhDesktops 
import XMonad.Hooks.DynamicLog 
import XMonad.Hooks.ManageHelpers 

import XMonad.Util.Run(spawnPipe) 

import XMonad.Layout.TwoPane 
import XMonad.Layout.WindowNavigation 

import qualified XMonad.StackSet as W 
import qualified Data.Map as M 

main = do 
    xmonad $ defaultConfig 
            { borderWidth        = 1 
            , focusedBorderColor     = "#ff6666" 
            , normalBorderColor     = "#2222aa" 
            , manageHook       = manageHook defaultConfig <+> myManageHook 
            , workspaces       = map show [1 .. 10 :: Int] 
            , terminal        = "roxterm" 
            , modMask          = mod4Mask 
            , focusFollowsMouse  = True 
            , startupHook      = myStartupHook 
            , logHook = myLogHook 
            , layoutHook      = windowNavigation $ avoidStruts $ (Mirror tall ||| tall ||| Full) 
            --, layoutHook    = ewmhDesktopsLayout $ windowNavigation $ avoidStruts $ (Mirror tall ||| tall ||| Full) 
            , keys             = \c -> myKeys c `M.union` keys defaultConfig c 
            --, mouseBindings = \c -> myMouse c `M.union` mouseBindings defaultConfig c 
            } 
    where 
        tall     = Tall 1 (3/100) (1/2) 
        
        myStartupHook :: X () 
        myStartupHook = do { 
            spawn "fcitx"; 
            spawn "roxterm"; 
            spawn "lxpanel"; 
            spawn "/home/sw2wolf/bin/kvm.sh"; 
        } 
        myLogHook :: X () 
        myLogHook = ewmhDesktopsLogHook 

        myManageHook :: ManageHook 
        myManageHook = composeAll . concat $ 
                        [ [ className =? c --> doFloat | c <- myCFloats] 
                         ,[ resource  =? r --> doFloat | r <- myRFloats] 
                         ,[ title     =? t --> doFloat | t <- myTFloats] 
                         ,[ className =? c --> doIgnore | c <- ignores] 
                         ,[ className =? "Audacious" --> doShift "3" ] 
                         ,[ className =? "Firefox" --> doF W.swapDown] 
                         ,[(role =? "gimp-toolbox" <||> role =? "gimp-image-window") --> (ask >>= doF . W.sink)]] 
                    where myCFloats = ["Thunderbird-bin", "GQview", "MPlayer", "Gimp","Vncviewer","Xmessage"] 
                          myRFloats = ["Dialog", "Download", "Places"] 
                          myTFloats  = ["Firefox Preferences", "Element Properties"] 
                          ignores = ["trayer"] 
                          role = stringProperty "WM_WINDOW_ROLE" 

        myKeys (XConfig {modMask = modm}) = M.fromList $ 
            -- Apps and tools 
            [ ((modm, xK_F2), spawn "gmrun") 
            , ((modm, xK_f), spawn "/home/firefox/firefox") 
            , ((modm, xK_t), spawn "thunderbird") 
            --, ((modm, xK_p), spawn "exe=`dmenu_path | dmenu -b` && eval \"exec $exe\"") 
            , ((modm, xK_F11), spawn "sudo shutdown -r now") 
            , ((modm, xK_F12), spawn "sudo shutdown -h now") 
            , ((modm .|. controlMask, xK_Print), spawn "sleep 0.2; scrot -s") 
            , ((modm, xK_Print), spawn "scrot '/tmp/%Y-%m-%d_%H:%M:%S_$wx$h_scrot.png' -e 'mv $f ~'") 
            , ((modm, xK_c), kill) 
            -- Window Navigation 
            , ((modm, xK_Right), sendMessage $ Go R) 
            , ((modm, xK_Left ), sendMessage $ Go L) 
            , ((modm, xK_Up   ), sendMessage $ Go U) 
            , ((modm, xK_Down ), sendMessage $ Go D) 
            -- swap... 
            , ((modm .|. controlMask, xK_Right), sendMessage $ Swap R) 
            , ((modm .|. controlMask, xK_Left ), sendMessage $ Swap L) 
            , ((modm .|. controlMask, xK_Up   ), sendMessage $ Swap U) 
            , ((modm .|. controlMask, xK_Down ), sendMessage $ Swap D) 
            ]

Sincerely!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/xmonad/attachments/20091116/5ca8fb07/attachment.html