1 {-| Module : PDDefaults
2 Author : Arjan van IJzendoorn
3 License : do whatever you like with this
5 Maintainer : afie@cs.uu.nl
7 Some defaults for the field of the persistent document
8 record. For example, the default undo update function
9 changes the text of a menu item to reflect what will be
10 undo and disables it if there is nothing to be undone.
11 You might want more than the defaults if you have a
12 more advanced GUI. Let's say you also have a button
13 in a toolbar to undo, then you might want to gray out
14 that button, too, if there is nothing to be undone.
17 module PDDefaults where
20 import Graphics.UI.WXCore(wxID_CANCEL)
22 type Extensions = [(String, [String])]
24 -- Update the menu item "Undo" to show which
25 -- action will be undone. If there is nothing
26 -- to undo the corresponding menu item is disabled
27 defaultUpdateUndo :: MenuItem () -> Bool -> String -> IO ()
28 defaultUpdateUndo undoItem enable message =
30 [ text := "Undo " ++ message ++ "\tCtrl+Z"
34 defaultUpdateRedo :: MenuItem () -> Bool -> String -> IO ()
35 defaultUpdateRedo redoItem enable message =
37 [ text := "Redo " ++ message ++ "\tCtrl+Y"
41 -- Enable the save item only if the document is dirty
42 defaultUpdateSave :: MenuItem () -> Bool -> IO ()
43 defaultUpdateSave saveItem enable =
44 set saveItem [ enabled := enable ]
46 -- Update the title bar: program name - document name followed by "(modified)" if
47 -- the document is dirty
48 defaultUpdateTitlebar :: Frame () -> String -> Maybe String -> Bool -> IO ()
49 defaultUpdateTitlebar theFrame programName theFileName modified =
50 let newTitle = programName
52 ++ (case theFileName of Nothing -> "untitled"; Just name -> name)
53 ++ (if modified then " (modified)" else "")
54 in set theFrame [ text := newTitle ]
56 -- | defaultSaveChangesDialog shows a dialog with three buttons with corresponding
57 -- return values: Don't Save -> Just False, Save -> Just True
59 defaultSaveChangesDialog :: Frame () -> String -> IO (Maybe Bool)
60 defaultSaveChangesDialog parentWindow theProgramName =
61 do{ d <- dialog parentWindow [text := theProgramName]
63 ; msg <- staticText p [text := "Do you want to save the changes?"]
64 ; dontsaveB <- button p [text := "Don't Save"]
65 ; saveB <- button p [text := "Save"]
66 ; cancelB <- button p [text := "Cancel", identity := wxID_CANCEL ]
67 ; set d [layout := margin 10 $ container p $
68 column 10 [ hfill $ widget msg
69 , row 50 [ floatBottomLeft $ widget dontsaveB
70 , floatBottomRight $ row 5 [ widget saveB, widget cancelB]
74 ; set p [ defaultButton := saveB ]
75 ; showModal d $ \stop ->
76 do set dontsaveB [on command := stop (Just False) ]
77 set saveB [on command := stop (Just True) ]
78 set cancelB [on command := stop Nothing ]
81 defaultSaveAsDialog :: Frame () -> Extensions -> Maybe String -> IO (Maybe String)
82 defaultSaveAsDialog theFrame extensions theFileName =
85 False -- remember current directory
86 True -- overwrite prompt
90 (case theFileName of Nothing -> ""; Just name -> name) -- initial file name