Lastest docs updated
travis build: 28
commit: 1fec2983bd
auto-pushed to gh-pages
This commit is contained in:
travis-ci
@@ -54,55 +54,58 @@
|
||||
<a name="line-45"></a><a name="createMyGUI"></a><span class='hs-comment'>-- |Set up the GUI. This only creates the permanent widgets.</span>
|
||||
<a name="line-46"></a><span class='hs-definition'>createMyGUI</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>MyGUI</span>
|
||||
<a name="line-47"></a><span class='hs-definition'>createMyGUI</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
|
||||
<a name="line-48"></a>
|
||||
<a name="line-49"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>settings'</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkFMSettings</span> <span class='hs-conid'>False</span> <span class='hs-conid'>True</span> <span class='hs-num'>24</span>
|
||||
<a name="line-50"></a> <span class='hs-varid'>settings</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newTVarIO</span> <span class='hs-varid'>settings'</span>
|
||||
<a name="line-51"></a> <span class='hs-varid'>operationBuffer</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newTVarIO</span> <span class='hs-conid'>None</span>
|
||||
<a name="line-52"></a>
|
||||
<a name="line-53"></a> <span class='hs-varid'>builder</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderNew</span>
|
||||
<a name="line-54"></a> <span class='hs-varid'>builderAddFromFile</span> <span class='hs-varid'>builder</span> <span class='hs-varop'>=<<</span> <span class='hs-varid'>getDataFileName</span> <span class='hs-str'>"data/Gtk/builder.xml"</span>
|
||||
<a name="line-55"></a>
|
||||
<a name="line-56"></a> <span class='hs-comment'>-- get the pre-defined gui widgets</span>
|
||||
<a name="line-57"></a> <span class='hs-varid'>rootWin</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToWindow</span>
|
||||
<a name="line-58"></a> <span class='hs-str'>"rootWin"</span>
|
||||
<a name="line-59"></a> <span class='hs-varid'>menubarFileQuit</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToImageMenuItem</span>
|
||||
<a name="line-60"></a> <span class='hs-str'>"menubarFileQuit"</span>
|
||||
<a name="line-61"></a> <span class='hs-varid'>menubarHelpAbout</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToImageMenuItem</span>
|
||||
<a name="line-62"></a> <span class='hs-str'>"menubarHelpAbout"</span>
|
||||
<a name="line-63"></a> <span class='hs-varid'>statusBar</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToStatusbar</span>
|
||||
<a name="line-64"></a> <span class='hs-str'>"statusBar"</span>
|
||||
<a name="line-65"></a> <span class='hs-varid'>clearStatusBar</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToButton</span>
|
||||
<a name="line-66"></a> <span class='hs-str'>"clearStatusBar"</span>
|
||||
<a name="line-67"></a> <span class='hs-varid'>fpropGrid</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToGrid</span>
|
||||
<a name="line-68"></a> <span class='hs-str'>"fpropGrid"</span>
|
||||
<a name="line-69"></a> <span class='hs-varid'>fpropFnEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-70"></a> <span class='hs-str'>"fpropFnEntry"</span>
|
||||
<a name="line-71"></a> <span class='hs-varid'>fpropLocEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-72"></a> <span class='hs-str'>"fpropLocEntry"</span>
|
||||
<a name="line-73"></a> <span class='hs-varid'>fpropTsEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-74"></a> <span class='hs-str'>"fpropTsEntry"</span>
|
||||
<a name="line-75"></a> <span class='hs-varid'>fpropModEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-76"></a> <span class='hs-str'>"fpropModEntry"</span>
|
||||
<a name="line-77"></a> <span class='hs-varid'>fpropAcEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-78"></a> <span class='hs-str'>"fpropAcEntry"</span>
|
||||
<a name="line-79"></a> <span class='hs-varid'>fpropFTEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-80"></a> <span class='hs-str'>"fpropFTEntry"</span>
|
||||
<a name="line-81"></a> <span class='hs-varid'>fpropPermEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-82"></a> <span class='hs-str'>"fpropPermEntry"</span>
|
||||
<a name="line-83"></a> <span class='hs-varid'>fpropLDEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-84"></a> <span class='hs-str'>"fpropLDEntry"</span>
|
||||
<a name="line-85"></a> <span class='hs-varid'>notebook</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToNotebook</span>
|
||||
<a name="line-86"></a> <span class='hs-str'>"notebook"</span>
|
||||
<a name="line-87"></a>
|
||||
<a name="line-88"></a> <span class='hs-comment'>-- construct the gui object</span>
|
||||
<a name="line-89"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>menubar</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkMenuBar</span> <span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span>
|
||||
<a name="line-90"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>fprop</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkFilePropertyGrid</span> <span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span>
|
||||
<a name="line-91"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>mygui</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkMyGUI</span> <span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span>
|
||||
<a name="line-92"></a>
|
||||
<a name="line-93"></a> <span class='hs-comment'>-- sets the default icon</span>
|
||||
<a name="line-94"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>windowSetDefaultIconFromFile</span>
|
||||
<a name="line-95"></a> <span class='hs-varop'>=<<</span> <span class='hs-varid'>getDataFileName</span> <span class='hs-str'>"data/Gtk/icons/hsfm.png"</span>
|
||||
<a name="line-96"></a>
|
||||
<a name="line-97"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>mygui</span>
|
||||
<a name="line-48"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>settings'</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkFMSettings</span> <span class='hs-conid'>False</span> <span class='hs-conid'>True</span> <span class='hs-num'>24</span>
|
||||
<a name="line-49"></a> <span class='hs-varid'>settings</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newTVarIO</span> <span class='hs-varid'>settings'</span>
|
||||
<a name="line-50"></a> <span class='hs-varid'>operationBuffer</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newTVarIO</span> <span class='hs-conid'>None</span>
|
||||
<a name="line-51"></a>
|
||||
<a name="line-52"></a> <span class='hs-varid'>builder</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderNew</span>
|
||||
<a name="line-53"></a> <span class='hs-varid'>builderAddFromFile</span> <span class='hs-varid'>builder</span> <span class='hs-varop'>=<<</span> <span class='hs-varid'>getDataFileName</span> <span class='hs-str'>"data/Gtk/builder.xml"</span>
|
||||
<a name="line-54"></a>
|
||||
<a name="line-55"></a> <span class='hs-comment'>-- get the pre-defined gui widgets</span>
|
||||
<a name="line-56"></a> <span class='hs-varid'>rootWin</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToWindow</span>
|
||||
<a name="line-57"></a> <span class='hs-str'>"rootWin"</span>
|
||||
<a name="line-58"></a> <span class='hs-varid'>menubarFileQuit</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToImageMenuItem</span>
|
||||
<a name="line-59"></a> <span class='hs-str'>"menubarFileQuit"</span>
|
||||
<a name="line-60"></a> <span class='hs-varid'>menubarHelpAbout</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToImageMenuItem</span>
|
||||
<a name="line-61"></a> <span class='hs-str'>"menubarHelpAbout"</span>
|
||||
<a name="line-62"></a> <span class='hs-varid'>statusBar</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToStatusbar</span>
|
||||
<a name="line-63"></a> <span class='hs-str'>"statusBar"</span>
|
||||
<a name="line-64"></a> <span class='hs-varid'>clearStatusBar</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToButton</span>
|
||||
<a name="line-65"></a> <span class='hs-str'>"clearStatusBar"</span>
|
||||
<a name="line-66"></a> <span class='hs-varid'>fpropGrid</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToGrid</span>
|
||||
<a name="line-67"></a> <span class='hs-str'>"fpropGrid"</span>
|
||||
<a name="line-68"></a> <span class='hs-varid'>fpropFnEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-69"></a> <span class='hs-str'>"fpropFnEntry"</span>
|
||||
<a name="line-70"></a> <span class='hs-varid'>fpropLocEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-71"></a> <span class='hs-str'>"fpropLocEntry"</span>
|
||||
<a name="line-72"></a> <span class='hs-varid'>fpropTsEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-73"></a> <span class='hs-str'>"fpropTsEntry"</span>
|
||||
<a name="line-74"></a> <span class='hs-varid'>fpropModEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-75"></a> <span class='hs-str'>"fpropModEntry"</span>
|
||||
<a name="line-76"></a> <span class='hs-varid'>fpropAcEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-77"></a> <span class='hs-str'>"fpropAcEntry"</span>
|
||||
<a name="line-78"></a> <span class='hs-varid'>fpropFTEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-79"></a> <span class='hs-str'>"fpropFTEntry"</span>
|
||||
<a name="line-80"></a> <span class='hs-varid'>fpropPermEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-81"></a> <span class='hs-str'>"fpropPermEntry"</span>
|
||||
<a name="line-82"></a> <span class='hs-varid'>fpropLDEntry</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToEntry</span>
|
||||
<a name="line-83"></a> <span class='hs-str'>"fpropLDEntry"</span>
|
||||
<a name="line-84"></a> <span class='hs-varid'>notebook</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builderGetObject</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>castToNotebook</span>
|
||||
<a name="line-85"></a> <span class='hs-str'>"notebook"</span>
|
||||
<a name="line-86"></a>
|
||||
<a name="line-87"></a> <span class='hs-comment'>-- this is required so that hotkeys work as expected, because</span>
|
||||
<a name="line-88"></a> <span class='hs-comment'>-- we then can connect to signals from `viewBox` more reliably</span>
|
||||
<a name="line-89"></a> <span class='hs-varid'>widgetSetCanFocus</span> <span class='hs-varid'>notebook</span> <span class='hs-conid'>False</span>
|
||||
<a name="line-90"></a>
|
||||
<a name="line-91"></a> <span class='hs-comment'>-- construct the gui object</span>
|
||||
<a name="line-92"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>menubar</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkMenuBar</span> <span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span>
|
||||
<a name="line-93"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>fprop</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkFilePropertyGrid</span> <span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span>
|
||||
<a name="line-94"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>mygui</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MkMyGUI</span> <span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span>
|
||||
<a name="line-95"></a>
|
||||
<a name="line-96"></a> <span class='hs-comment'>-- sets the default icon</span>
|
||||
<a name="line-97"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>windowSetDefaultIconFromFile</span>
|
||||
<a name="line-98"></a> <span class='hs-varop'>=<<</span> <span class='hs-varid'>getDataFileName</span> <span class='hs-str'>"data/Gtk/icons/hsfm.png"</span>
|
||||
<a name="line-99"></a>
|
||||
<a name="line-100"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>mygui</span>
|
||||
</pre></body>
|
||||
</html>
|
||||
|
||||
Reference in New Issue
Block a user