2016-06-01 17:32:51 +00:00
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
< html >
< head >
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
< title > src/HSFM/GUI/Gtk/Callbacks.hs< / title >
< link type = 'text/css' rel = 'stylesheet' href = 'hscolour.css' / >
< / head >
< body >
< pre > < a name = "line-1" > < / a > < span class = 'hs-comment' > {--
< a name = "line-2" > < / a > HSFM, a filemanager written in Haskell.
< a name = "line-3" > < / a > Copyright (C) 2016 Julian Ospald
< a name = "line-4" > < / a >
< a name = "line-5" > < / a > This program is free software; you can redistribute it and/or
< a name = "line-6" > < / a > modify it under the terms of the GNU General Public License
< a name = "line-7" > < / a > version 2 as published by the Free Software Foundation.
< a name = "line-8" > < / a >
< a name = "line-9" > < / a > This program is distributed in the hope that it will be useful,
< a name = "line-10" > < / a > but WITHOUT ANY WARRANTY; without even the implied warranty of
< a name = "line-11" > < / a > MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
< a name = "line-12" > < / a > GNU General Public License for more details.
< a name = "line-13" > < / a >
< a name = "line-14" > < / a > You should have received a copy of the GNU General Public License
< a name = "line-15" > < / a > along with this program; if not, write to the Free Software
< a name = "line-16" > < / a > Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
< a name = "line-17" > < / a > --}< / span >
< a name = "line-18" > < / a >
< a name = "line-19" > < / a > < span class = 'hs-comment' > {-# LANGUAGE OverloadedStrings #-}< / span >
< a name = "line-20" > < / a > < span class = 'hs-comment' > {-# OPTIONS_HADDOCK ignore-exports #-}< / span >
< a name = "line-21" > < / a >
< a name = "line-22" > < / a > < span class = 'hs-keyword' > module< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > GUI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Callbacks< / span > < span class = 'hs-keyword' > where< / span >
< a name = "line-23" > < / a >
< a name = "line-24" > < / a >
2016-06-01 18:06:00 +00:00
< a name = "line-25" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Concurrent< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > STM< / span >
2016-06-01 17:32:51 +00:00
< a name = "line-26" > < / a > < span class = 'hs-layout' > (< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-27" > < / a > < span class = 'hs-varid' > readTVarIO< / span >
2016-06-01 17:32:51 +00:00
< a name = "line-28" > < / a > < span class = 'hs-layout' > )< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-29" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Exception< / span >
2016-06-01 17:32:51 +00:00
< a name = "line-30" > < / a > < span class = 'hs-layout' > (< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-31" > < / a > < span class = 'hs-varid' > throwIO< / span >
2016-06-01 17:32:51 +00:00
< a name = "line-32" > < / a > < span class = 'hs-layout' > )< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-33" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Monad< / span >
2016-06-01 17:32:51 +00:00
< a name = "line-34" > < / a > < span class = 'hs-layout' > (< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-35" > < / a > < span class = 'hs-varid' > forM_< / span >
2016-06-01 20:24:25 +00:00
< a name = "line-36" > < / a > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > forM< / span >
< a name = "line-37" > < / a > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > join< / span >
< a name = "line-38" > < / a > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > void< / span >
< a name = "line-39" > < / a > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > when< / span >
< a name = "line-40" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-41" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Monad< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Class< / span >
< a name = "line-42" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-43" > < / a > < span class = 'hs-varid' > liftIO< / span >
< a name = "line-44" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-45" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Data< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > ByteString< / span >
< a name = "line-46" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-47" > < / a > < span class = 'hs-conid' > ByteString< / span >
< a name = "line-48" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-49" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Data< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > ByteString< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > UTF8< / span >
< a name = "line-50" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-51" > < / a > < span class = 'hs-varid' > fromString< / span >
< a name = "line-52" > < / a > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > toString< / span >
< a name = "line-53" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-54" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Data< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Foldable< / span >
< a name = "line-55" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-56" > < / a > < span class = 'hs-varid' > for_< / span >
< a name = "line-57" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-58" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Graphics< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > UI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span >
< a name = "line-59" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-keyword' > qualified< / span > < span class = 'hs-conid' > HPath< / span > < span class = 'hs-keyword' > as< / span > < span class = 'hs-conid' > P< / span >
< a name = "line-60" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HPath< / span >
< a name = "line-61" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-62" > < / a > < span class = 'hs-conid' > Abs< / span >
< a name = "line-63" > < / a > < span class = 'hs-layout' > ,< / span > < span class = 'hs-conid' > Path< / span >
< a name = "line-64" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-65" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HPath< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > IO< / span >
< a name = "line-66" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HPath< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Errors< / span >
< a name = "line-67" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HPath< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Utils< / span >
< a name = "line-68" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > FileSystem< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > FileType< / span >
< a name = "line-69" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > FileSystem< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > UtilTypes< / span >
< a name = "line-70" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > GUI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Callbacks< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Utils< / span >
< a name = "line-71" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > GUI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Data< / span >
< a name = "line-72" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > GUI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Dialogs< / span >
< a name = "line-73" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > GUI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > MyView< / span >
< a name = "line-74" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > GUI< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Gtk< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Utils< / span >
< a name = "line-75" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > HSFM< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Utils< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > IO< / span >
< a name = "line-76" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > Prelude< / span > < span class = 'hs-varid' > hiding< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > readFile< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-77" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > System< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Glib< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > UTFString< / span >
< a name = "line-78" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-79" > < / a > < span class = 'hs-varid' > glibToString< / span >
< a name = "line-80" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-81" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > System< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Posix< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Env< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > ByteString< / span >
< a name = "line-82" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-83" > < / a > < span class = 'hs-varid' > getEnv< / span >
< a name = "line-84" > < / a > < span class = 'hs-layout' > )< / span >
< a name = "line-85" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-keyword' > qualified< / span > < span class = 'hs-conid' > System< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Posix< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Process< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > ByteString< / span > < span class = 'hs-keyword' > as< / span > < span class = 'hs-conid' > SPP< / span >
< a name = "line-86" > < / a > < span class = 'hs-keyword' > import< / span > < span class = 'hs-conid' > System< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Posix< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > Types< / span >
< a name = "line-87" > < / a > < span class = 'hs-layout' > (< / span >
< a name = "line-88" > < / a > < span class = 'hs-conid' > ProcessID< / span >
< a name = "line-89" > < / a > < span class = 'hs-layout' > )< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-90" > < / a >
< a name = "line-91" > < / a >
2016-06-01 17:32:51 +00:00
< a name = "line-92" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-93" > < / a >
< a name = "line-94" > < / a >
2016-06-01 18:06:00 +00:00
< a name = "line-95" > < / a > < span class = 'hs-comment' > -----------------< / span >
2016-06-01 20:24:25 +00:00
< a name = "line-96" > < / a > < span class = 'hs-comment' > --[ Callbacks ]--< / span >
< a name = "line-97" > < / a > < span class = 'hs-comment' > -----------------< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-98" > < / a >
< a name = "line-99" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-100" > < / a >
2016-06-01 17:32:51 +00:00
< a name = "line-101" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-102" > < / a > < span class = 'hs-comment' > ---- MAIN CALLBACK ENTRYPOINT ----< / span >
< a name = "line-103" > < / a >
< a name = "line-104" > < / a >
< a name = "line-105" > < / a > < a name = "setGUICallbacks" > < / a > < span class = 'hs-comment' > -- |Set callbacks for the whole gui, on hotkeys, events and stuff.< / span >
< a name = "line-106" > < / a > < span class = 'hs-definition' > setGUICallbacks< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-107" > < / a > < span class = 'hs-definition' > setGUICallbacks< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-108" > < / a >
< a name = "line-109" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > clearStatusBar< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > buttonActivated< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-110" > < / a > < span class = 'hs-varid' > popStatusbar< / span > < span class = 'hs-varid' > mygui< / span >
< a name = "line-111" > < / a > < span class = 'hs-varid' > writeTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > operationBuffer< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-conid' > None< / span >
< a name = "line-112" > < / a >
< a name = "line-113" > < / a > < span class = 'hs-comment' > -- menubar-file< / span >
< a name = "line-114" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > menubarFileQuit< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > menubar< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-115" > < / a > < span class = 'hs-varid' > mainQuit< / span >
< a name = "line-116" > < / a >
< a name = "line-117" > < / a > < span class = 'hs-comment' > -- menubar-help< / span >
< a name = "line-118" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > menubarHelpAbout< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > menubar< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-119" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varid' > showAboutDialog< / span >
< a name = "line-120" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-121" > < / a >
< a name = "line-122" > < / a > < span class = 'hs-comment' > -- key events< / span >
< a name = "line-123" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > rootWin< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-124" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-125" > < / a > < span class = 'hs-str' > "q"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-126" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varid' > mainQuit< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-127" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-128" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-129" > < / a >
< a name = "line-130" > < / a >
< a name = "line-131" > < / a > < a name = "setViewCallbacks" > < / a > < span class = 'hs-comment' > -- |Set callbacks specific to a given view, on hotkeys, events and stuff.< / span >
< a name = "line-132" > < / a > < span class = 'hs-definition' > setViewCallbacks< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-133" > < / a > < span class = 'hs-definition' > setViewCallbacks< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-134" > < / a > < span class = 'hs-varid' > view'< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readTVarIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-135" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > view'< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-136" > < / a > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-keyglyph' > @< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FMTreeView< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-137" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > rowActivated< / span >
< a name = "line-138" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > open< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-139" > < / a >
< a name = "line-140" > < / a > < span class = 'hs-comment' > -- drag events< / span >
< a name = "line-141" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > dragBegin< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-142" > < / a > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > moveInit< / span >
< a name = "line-143" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > dragDrop< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-144" > < / a > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > dc< / span > < span class = 'hs-varid' > p< / span > < span class = 'hs-varid' > ts< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-145" > < / a > < span class = 'hs-varid' > p'< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeViewConvertWidgetToTreeCoords< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varid' > p< / span >
< a name = "line-146" > < / a > < span class = 'hs-varid' > mpath< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeViewGetPathAtPos< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varid' > p'< / span >
< a name = "line-147" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > mpath< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-148" > < / a > < span class = 'hs-conid' > Nothing< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-149" > < / a > < span class = 'hs-varid' > dragFinish< / span > < span class = 'hs-varid' > dc< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-varid' > ts< / span >
< a name = "line-150" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > False< / span >
< a name = "line-151" > < / a > < span class = 'hs-conid' > Just< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-152" > < / a > < span class = 'hs-varid' > atom< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > atomNew< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-str' > "HSFM"< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > String< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-153" > < / a > < span class = 'hs-varid' > dragGetData< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varid' > dc< / span > < span class = 'hs-varid' > atom< / span > < span class = 'hs-varid' > ts< / span >
< a name = "line-154" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > True< / span >
< a name = "line-155" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > dragDataReceived< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-156" > < / a > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > dc< / span > < span class = 'hs-varid' > p< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-varid' > ts< / span > < span class = 'hs-keyglyph' > -> < / span >
< a name = "line-157" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-158" > < / a > < span class = 'hs-varid' > signalStopEmission< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-str' > "drag_data_received"< / span >
< a name = "line-159" > < / a > < span class = 'hs-varid' > p'< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeViewConvertWidgetToTreeCoords< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varid' > p< / span >
< a name = "line-160" > < / a > < span class = 'hs-varid' > mpath< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeViewGetPathAtPos< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-varid' > p'< / span >
< a name = "line-161" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > mpath< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-162" > < / a > < span class = 'hs-conid' > Nothing< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > dragFinish< / span > < span class = 'hs-varid' > dc< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-varid' > ts< / span >
< a name = "line-163" > < / a > < span class = 'hs-conid' > Just< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > tp< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-164" > < / a > < span class = 'hs-varid' > mitem< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > rawPathToItem< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > tp< / span >
< a name = "line-165" > < / a > < span class = 'hs-varid' > forM_< / span > < span class = 'hs-varid' > mitem< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > -> < / span >
< a name = "line-166" > < / a > < span class = 'hs-varid' > operationFinal< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > Just< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-167" > < / a > < span class = 'hs-varid' > dragFinish< / span > < span class = 'hs-varid' > dc< / span > < span class = 'hs-conid' > True< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-varid' > ts< / span >
< a name = "line-168" > < / a >
< a name = "line-169" > < / a > < span class = 'hs-varid' > commonGuiEvents< / span > < span class = 'hs-varid' > fmv< / span >
< a name = "line-170" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-171" > < / a > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-keyglyph' > @< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FMIconView< / span > < span class = 'hs-varid' > iconView< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-172" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > iconView< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > itemActivated< / span >
< a name = "line-173" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > open< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-174" > < / a > < span class = 'hs-varid' > commonGuiEvents< / span > < span class = 'hs-varid' > fmv< / span >
< a name = "line-175" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-176" > < / a > < span class = 'hs-keyword' > where< / span >
< a name = "line-177" > < / a > < span class = 'hs-varid' > commonGuiEvents< / span > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-178" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > fmViewToContainer< / span > < span class = 'hs-varid' > fmv< / span >
< a name = "line-179" > < / a >
< a name = "line-180" > < / a > < span class = 'hs-comment' > -- GUI events< / span >
< a name = "line-181" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > urlBar< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > entryActivated< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > urlGoTo< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-182" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > upViewB< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > buttonActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-183" > < / a > < span class = 'hs-varid' > upDir< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-184" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > homeViewB< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > buttonActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-185" > < / a > < span class = 'hs-varid' > goHome< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-186" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > refreshViewB< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > buttonActivated< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-187" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-188" > < / a > < span class = 'hs-varid' > refreshView'< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > cdir< / span >
< a name = "line-189" > < / a >
< a name = "line-190" > < / a > < span class = 'hs-comment' > -- key events< / span >
< a name = "line-191" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-192" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-193" > < / a > < span class = 'hs-str' > "h"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-194" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-195" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > modifyTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > settings< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-196" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > {< / span > < span class = 'hs-varid' > showHidden< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > not< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > showHidden< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > }< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-197" > < / a > < span class = 'hs-varop' > > > < / span > < span class = 'hs-varid' > refreshView'< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > cdir< / span >
< a name = "line-198" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-199" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Alt< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-200" > < / a > < span class = 'hs-str' > "Up"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-201" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > upDir< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-202" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-203" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Alt< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-204" > < / a > < span class = 'hs-str' > "Left"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-205" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > goHistoryPrev< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-206" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-207" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Alt< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-208" > < / a > < span class = 'hs-str' > "Right"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-209" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > goHistoryNext< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-210" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-211" > < / a > < span class = 'hs-str' > "Delete"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-212" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > del< / span >
< a name = "line-213" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-214" > < / a > < span class = 'hs-conid' > []< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-215" > < / a > < span class = 'hs-str' > "Return"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-216" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > open< / span >
< a name = "line-217" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-218" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-219" > < / a > < span class = 'hs-str' > "c"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-220" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > copyInit< / span >
< a name = "line-221" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-222" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-223" > < / a > < span class = 'hs-str' > "x"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-224" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > moveInit< / span >
< a name = "line-225" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-226" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-227" > < / a > < span class = 'hs-str' > "v"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-228" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > operationFinal< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-conid' > Nothing< / span >
< a name = "line-229" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-230" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-231" > < / a > < span class = 'hs-str' > "t"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-232" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-233" > < / a > < span class = 'hs-varid' > cwd< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-234" > < / a > < span class = 'hs-varid' > newTabHere< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > cwd< / span >
< a name = "line-235" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-236" > < / a > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Control< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventModifier< / span >
< a name = "line-237" > < / a > < span class = 'hs-str' > "w"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-238" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > closeTab< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-239" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > viewBox< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > keyPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > tryEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-240" > < / a > < span class = 'hs-str' > "F4"< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > glibToString< / span > < span class = 'hs-varid' > eventKeyName< / span >
< a name = "line-241" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > openTerminalHere< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-242" > < / a >
< a name = "line-243" > < / a > < span class = 'hs-comment' > -- mouse button click< / span >
< a name = "line-244" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > view< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > buttonPressEvent< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-245" > < / a > < span class = 'hs-varid' > eb< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventButton< / span >
< a name = "line-246" > < / a > < span class = 'hs-varid' > t< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventTime< / span >
< a name = "line-247" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > eb< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-248" > < / a > < span class = 'hs-conid' > RightButton< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-249" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > menuPopup< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcMenu< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-250" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > Just< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > RightButton< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > t< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-251" > < / a > < span class = 'hs-comment' > -- this is just to not screw with current selection< / span >
< a name = "line-252" > < / a > < span class = 'hs-comment' > -- on right-click< / span >
< a name = "line-253" > < / a > < span class = 'hs-comment' > -- TODO: this misbehaves under IconView< / span >
< a name = "line-254" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventCoordinates< / span >
< a name = "line-255" > < / a > < span class = 'hs-varid' > mpath< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > getPathAtPos< / span > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-256" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > mpath< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-257" > < / a > < span class = 'hs-comment' > -- item under the cursor, only pass on the signal< / span >
< a name = "line-258" > < / a > < span class = 'hs-comment' > -- if the item under the cursor is not within the current< / span >
< a name = "line-259" > < / a > < span class = 'hs-comment' > -- selection< / span >
< a name = "line-260" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > Just< / span > < span class = 'hs-varid' > tp< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-261" > < / a > < span class = 'hs-varid' > selectedTps< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > getSelectedTreePaths< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-262" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > elem< / span > < span class = 'hs-varid' > tp< / span > < span class = 'hs-varid' > selectedTps< / span >
< a name = "line-263" > < / a > < span class = 'hs-comment' > -- no item under the cursor, pass on the signal< / span >
< a name = "line-264" > < / a > < span class = 'hs-conid' > Nothing< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > False< / span >
< a name = "line-265" > < / a > < span class = 'hs-conid' > MiddleButton< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-266" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > eventCoordinates< / span >
< a name = "line-267" > < / a > < span class = 'hs-varid' > mitem< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > getPathAtPos< / span > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-268" > < / a > < span class = 'hs-varop' > > > =< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > mpos< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-varid' > join< / span >
< a name = "line-269" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > forM< / span > < span class = 'hs-varid' > mpos< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rawPathToItem< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-270" > < / a >
< a name = "line-271" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > mitem< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-272" > < / a > < span class = 'hs-comment' > -- item under the cursor, only pass on the signal< / span >
< a name = "line-273" > < / a > < span class = 'hs-comment' > -- if the item under the cursor is not within the current< / span >
< a name = "line-274" > < / a > < span class = 'hs-comment' > -- selection< / span >
< a name = "line-275" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > Just< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-276" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > newTabHere< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > item< / span >
< a name = "line-277" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > True< / span >
< a name = "line-278" > < / a > < span class = 'hs-comment' > -- no item under the cursor, pass on the signal< / span >
< a name = "line-279" > < / a > < span class = 'hs-conid' > Nothing< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > False< / span >
< a name = "line-280" > < / a >
< a name = "line-281" > < / a > < span class = 'hs-conid' > OtherButton< / span > < span class = 'hs-num' > 8< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-282" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > goHistoryPrev< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-283" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > False< / span >
< a name = "line-284" > < / a > < span class = 'hs-conid' > OtherButton< / span > < span class = 'hs-num' > 9< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-285" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > goHistoryNext< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-286" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > False< / span >
< a name = "line-287" > < / a > < span class = 'hs-comment' > -- not right-click, so pass on the signal< / span >
< a name = "line-288" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > False< / span >
< a name = "line-289" > < / a >
< a name = "line-290" > < / a > < span class = 'hs-comment' > -- right click menu< / span >
< a name = "line-291" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileOpen< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-292" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > open< / span >
< a name = "line-293" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileExecute< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-294" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > execute< / span >
< a name = "line-295" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileNewRegFile< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-296" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > newFile< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-297" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileNewDir< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-298" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > newDir< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-299" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileCopy< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-300" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > copyInit< / span >
< a name = "line-301" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileRename< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-302" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > renameF< / span >
< a name = "line-303" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFilePaste< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-304" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > operationFinal< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-conid' > Nothing< / span >
< a name = "line-305" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileDelete< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-306" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > del< / span >
< a name = "line-307" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileProperty< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-308" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > showFilePropertyDialog< / span >
< a name = "line-309" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileCut< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-310" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > withItems< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > moveInit< / span >
< a name = "line-311" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileIconView< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-312" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > switchView< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > createIconView< / span >
< a name = "line-313" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > rcFileTreeView< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > rcmenu< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > `on`< / span > < span class = 'hs-varid' > menuItemActivated< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-314" > < / a > < span class = 'hs-varid' > liftIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > switchView< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > createTreeView< / span >
< a name = "line-315" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-316" > < / a >
< a name = "line-317" > < / a > < span class = 'hs-varid' > getPathAtPos< / span > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > =< / span >
< a name = "line-318" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > fmv< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-319" > < / a > < span class = 'hs-conid' > FMTreeView< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-320" > < / a > < span class = 'hs-varid' > mp< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > treeViewGetPathAtPos< / span > < span class = 'hs-varid' > treeView< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > round< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > round< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-321" > < / a > < span class = 'hs-varid' > return< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > p< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > p< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > mp< / span >
< a name = "line-322" > < / a > < span class = 'hs-conid' > FMIconView< / span > < span class = 'hs-varid' > iconView< / span > < span class = 'hs-keyglyph' > -> < / span >
< a name = "line-323" > < / a > < span class = 'hs-varid' > fmap< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > tp< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > if< / span > < span class = 'hs-varid' > null< / span > < span class = 'hs-varid' > tp< / span > < span class = 'hs-keyword' > then< / span > < span class = 'hs-conid' > Nothing< / span > < span class = 'hs-keyword' > else< / span > < span class = 'hs-conid' > Just< / span > < span class = 'hs-varid' > tp< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-324" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > iconViewGetPathAtPos< / span > < span class = 'hs-varid' > iconView< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > round< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > round< / span > < span class = 'hs-varid' > y< / span > < span class = 'hs-layout' > )< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-325" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-326" > < / a >
< a name = "line-327" > < / a >
< a name = "line-328" > < / a >
< a name = "line-329" > < / a > < span class = 'hs-comment' > ---- OTHER ----< / span >
< a name = "line-330" > < / a >
2016-06-01 17:32:51 +00:00
< a name = "line-331" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-332" > < / a > < a name = "openTerminalHere" > < / a > < span class = 'hs-definition' > openTerminalHere< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ProcessID< / span >
< a name = "line-333" > < / a > < span class = 'hs-definition' > openTerminalHere< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-334" > < / a > < span class = 'hs-varid' > cwd< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > fromAbs< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > < $> < / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-335" > < / a > < span class = 'hs-comment' > -- TODO: make terminal configurable< / span >
< a name = "line-336" > < / a > < span class = 'hs-conid' > SPP< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > forkProcess< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > SPP< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > executeFile< / span > < span class = 'hs-str' > "sakura"< / span > < span class = 'hs-conid' > True< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-str' > "-d"< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > cwd< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-conid' > Nothing< / span >
< a name = "line-337" > < / a >
< a name = "line-338" > < / a >
< a name = "line-339" > < / a >
< a name = "line-340" > < / a >
< a name = "line-341" > < / a > < span class = 'hs-comment' > ---- TAB OPERATIONS ----< / span >
< a name = "line-342" > < / a >
< a name = "line-343" > < / a >
< a name = "line-344" > < / a > < a name = "closeTab" > < / a > < span class = 'hs-comment' > -- |Closes the current tab, but only if there is more than one tab.< / span >
< a name = "line-345" > < / a > < span class = 'hs-definition' > closeTab< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-346" > < / a > < span class = 'hs-definition' > closeTab< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-347" > < / a > < span class = 'hs-varid' > n< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > notebookGetNPages< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > notebook< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-348" > < / a > < span class = 'hs-varid' > when< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > n< / span > < span class = 'hs-varop' > > < / span > < span class = 'hs-num' > 1< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > destroyView< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-349" > < / a >
< a name = "line-350" > < / a >
< a name = "line-351" > < / a > < a name = "newTabHere" > < / a > < span class = 'hs-definition' > newTabHere< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-352" > < / a > < span class = 'hs-definition' > newTabHere< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > =< / span >
< a name = "line-353" > < / a > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > newTab< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > createTreeView< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-354" > < / a >
< a name = "line-355" > < / a >
< a name = "line-356" > < / a >
< a name = "line-357" > < / a > < span class = 'hs-comment' > ---- FILE OPERATION CALLBACKS (COPY, MOVE, ...) ----< / span >
< a name = "line-358" > < / a >
< a name = "line-359" > < / a >
< a name = "line-360" > < / a > < a name = "del" > < / a > < span class = 'hs-comment' > -- |Supposed to be used with 'withRows'. Deletes a file or directory.< / span >
< a name = "line-361" > < / a > < span class = 'hs-definition' > del< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-362" > < / a > < span class = 'hs-definition' > del< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-363" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-str' > "Really delete \""< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > getFPasStr< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > "\"?"< / span >
< a name = "line-364" > < / a > < span class = 'hs-varid' > withConfirmationDialog< / span > < span class = 'hs-varid' > cmsg< / span >
< a name = "line-365" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > easyDelete< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > item< / span >
< a name = "line-366" > < / a > < span class = 'hs-comment' > -- this throws on the first error that occurs< / span >
< a name = "line-367" > < / a > < span class = 'hs-definition' > del< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-keyglyph' > @< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-368" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-str' > "Really delete "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > show< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > length< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " files?"< / span >
< a name = "line-369" > < / a > < span class = 'hs-varid' > withConfirmationDialog< / span > < span class = 'hs-varid' > cmsg< / span >
< a name = "line-370" > < / a > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > forM_< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > easyDelete< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > item< / span >
< a name = "line-371" > < / a > < span class = 'hs-definition' > del< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span >
< a name = "line-372" > < / a > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > throwIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > InvalidOperation< / span >
< a name = "line-373" > < / a > < span class = 'hs-str' > "Operation not supported on multiple files"< / span >
< a name = "line-374" > < / a >
< a name = "line-375" > < / a >
< a name = "line-376" > < / a > < a name = "moveInit" > < / a > < span class = 'hs-comment' > -- |Initializes a file move operation.< / span >
< a name = "line-377" > < / a > < span class = 'hs-definition' > moveInit< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-378" > < / a > < span class = 'hs-definition' > moveInit< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-keyglyph' > @< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-379" > < / a > < span class = 'hs-varid' > writeTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > operationBuffer< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FMove< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > PartialMove< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > map< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-380" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > sbmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-381" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-conid' > []< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-str' > "Move buffer: "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > getFPasStr< / span > < span class = 'hs-varid' > item< / span >
< a name = "line-382" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-str' > "Move buffer: "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > show< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > length< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-383" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " items"< / span >
< a name = "line-384" > < / a > < span class = 'hs-varid' > popStatusbar< / span > < span class = 'hs-varid' > mygui< / span >
< a name = "line-385" > < / a > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > pushStatusBar< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > sbmsg< / span >
< a name = "line-386" > < / a > < span class = 'hs-definition' > moveInit< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span >
< a name = "line-387" > < / a > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > throwIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > InvalidOperation< / span >
< a name = "line-388" > < / a > < span class = 'hs-str' > "No file selected!"< / span >
< a name = "line-389" > < / a >
< a name = "line-390" > < / a > < a name = "copyInit" > < / a > < span class = 'hs-comment' > -- |Supposed to be used with 'withRows'. Initializes a file copy operation.< / span >
< a name = "line-391" > < / a > < span class = 'hs-definition' > copyInit< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-392" > < / a > < span class = 'hs-definition' > copyInit< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-keyglyph' > @< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-393" > < / a > < span class = 'hs-varid' > writeTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > operationBuffer< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FCopy< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > PartialCopy< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > map< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-394" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > sbmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-395" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-conid' > []< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-str' > "Copy buffer: "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > getFPasStr< / span > < span class = 'hs-varid' > item< / span >
< a name = "line-396" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-str' > "Copy buffer: "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > show< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > length< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-397" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " items"< / span >
< a name = "line-398" > < / a > < span class = 'hs-varid' > popStatusbar< / span > < span class = 'hs-varid' > mygui< / span >
< a name = "line-399" > < / a > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > pushStatusBar< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > sbmsg< / span >
< a name = "line-400" > < / a > < span class = 'hs-definition' > copyInit< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span >
< a name = "line-401" > < / a > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > throwIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > InvalidOperation< / span >
< a name = "line-402" > < / a > < span class = 'hs-str' > "No file selected!"< / span >
< a name = "line-403" > < / a >
< a name = "line-404" > < / a >
< a name = "line-405" > < / a > < a name = "operationFinal" > < / a > < span class = 'hs-comment' > -- |Finalizes a file operation, such as copy or move.< / span >
< a name = "line-406" > < / a > < span class = 'hs-definition' > operationFinal< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > Maybe< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-407" > < / a > < span class = 'hs-definition' > operationFinal< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > mitem< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-408" > < / a > < span class = 'hs-varid' > op< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > operationBuffer< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-409" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > mitem< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-410" > < / a > < span class = 'hs-conid' > Nothing< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > < $> < / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-411" > < / a > < span class = 'hs-conid' > Just< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > x< / span >
< a name = "line-412" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > op< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-413" > < / a > < span class = 'hs-conid' > FMove< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > PartialMove< / span > < span class = 'hs-varid' > s< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-414" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-str' > "Really move "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > imsg< / span > < span class = 'hs-varid' > s< / span >
< a name = "line-415" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " to \""< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > toString< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > fromAbs< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-416" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > "\"?"< / span >
< a name = "line-417" > < / a > < span class = 'hs-varid' > withConfirmationDialog< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > doFileOperation< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FMove< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > Move< / span > < span class = 'hs-varid' > s< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-418" > < / a > < span class = 'hs-varid' > popStatusbar< / span > < span class = 'hs-varid' > mygui< / span >
< a name = "line-419" > < / a > < span class = 'hs-varid' > writeTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > operationBuffer< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-conid' > None< / span >
< a name = "line-420" > < / a > < span class = 'hs-conid' > FCopy< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > PartialCopy< / span > < span class = 'hs-varid' > s< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-421" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-str' > "Really copy "< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > imsg< / span > < span class = 'hs-varid' > s< / span >
< a name = "line-422" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " to \""< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > toString< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > fromAbs< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-423" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > "\"?"< / span >
< a name = "line-424" > < / a > < span class = 'hs-varid' > withConfirmationDialog< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > doFileOperation< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FCopy< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > Copy< / span > < span class = 'hs-varid' > s< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-425" > < / a > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-426" > < / a > < span class = 'hs-keyword' > where< / span >
< a name = "line-427" > < / a > < span class = 'hs-varid' > imsg< / span > < span class = 'hs-varid' > s< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > s< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-428" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-conid' > []< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-str' > "\""< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > toString< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > fromAbs< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > "\""< / span >
< a name = "line-429" > < / a > < span class = 'hs-varid' > items< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > show< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > length< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > items< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " items"< / span >
< a name = "line-430" > < / a >
< a name = "line-431" > < / a >
< a name = "line-432" > < / a > < a name = "newFile" > < / a > < span class = 'hs-comment' > -- |Create a new file.< / span >
< a name = "line-433" > < / a > < span class = 'hs-definition' > newFile< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-434" > < / a > < span class = 'hs-definition' > newFile< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-435" > < / a > < span class = 'hs-varid' > mfn< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > textInputDialog< / span > < span class = 'hs-str' > "Enter file name"< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-str' > ""< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > String< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-436" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > pmfn< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > parseFn< / span > < span class = 'hs-varop' > =< < < / span > < span class = 'hs-varid' > fromString< / span > < span class = 'hs-varop' > < $> < / span > < span class = 'hs-varid' > mfn< / span >
< a name = "line-437" > < / a > < span class = 'hs-varid' > for_< / span > < span class = 'hs-varid' > pmfn< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-438" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-439" > < / a > < span class = 'hs-varid' > createRegularFile< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< /> < / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-440" > < / a >
< a name = "line-441" > < / a >
< a name = "line-442" > < / a > < a name = "newDir" > < / a > < span class = 'hs-comment' > -- |Create a new directory.< / span >
< a name = "line-443" > < / a > < span class = 'hs-definition' > newDir< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-444" > < / a > < span class = 'hs-definition' > newDir< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-445" > < / a > < span class = 'hs-varid' > mfn< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > textInputDialog< / span > < span class = 'hs-str' > "Enter directory name"< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-str' > ""< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > String< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-446" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > pmfn< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > parseFn< / span > < span class = 'hs-varop' > =< < < / span > < span class = 'hs-varid' > fromString< / span > < span class = 'hs-varop' > < $> < / span > < span class = 'hs-varid' > mfn< / span >
< a name = "line-447" > < / a > < span class = 'hs-varid' > for_< / span > < span class = 'hs-varid' > pmfn< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-448" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-449" > < / a > < span class = 'hs-varid' > createDir< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< /> < / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-layout' > )< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-450" > < / a >
< a name = "line-451" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-452" > < / a > < a name = "renameF" > < / a > < span class = 'hs-definition' > renameF< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-453" > < / a > < span class = 'hs-definition' > renameF< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-454" > < / a > < span class = 'hs-varid' > iname< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > fromRel< / span > < span class = 'hs-varop' > < $> < / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > basename< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-455" > < / a > < span class = 'hs-varid' > mfn< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > textInputDialog< / span > < span class = 'hs-str' > "Enter new file name"< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > iname< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > ByteString< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-456" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > pmfn< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > parseFn< / span > < span class = 'hs-varop' > =< < < / span > < span class = 'hs-varid' > fromString< / span > < span class = 'hs-varop' > < $> < / span > < span class = 'hs-varid' > mfn< / span >
< a name = "line-457" > < / a > < span class = 'hs-varid' > for_< / span > < span class = 'hs-varid' > pmfn< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-458" > < / a > < span class = 'hs-keyword' > let< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-str' > "Really rename \""< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > getFPasStr< / span > < span class = 'hs-varid' > item< / span >
< a name = "line-459" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > "\""< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > " to \""< / span >
< a name = "line-460" > < / a > < span class = 'hs-varop' > ++< / span > < span class = 'hs-varid' > toString< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > fromAbs< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > dirname< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-461" > < / a > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< /> < / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > ++< / span > < span class = 'hs-str' > "\"?"< / span >
< a name = "line-462" > < / a > < span class = 'hs-varid' > withConfirmationDialog< / span > < span class = 'hs-varid' > cmsg< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-463" > < / a > < span class = 'hs-conid' > HPath< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > renameFile< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-464" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > dirname< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< /> < / span > < span class = 'hs-varid' > fn< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-465" > < / a > < span class = 'hs-definition' > renameF< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span >
< a name = "line-466" > < / a > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > throwIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > InvalidOperation< / span >
< a name = "line-467" > < / a > < span class = 'hs-str' > "Operation not supported on multiple files"< / span >
< a name = "line-468" > < / a >
< a name = "line-469" > < / a >
2016-06-01 18:06:00 +00:00
< a name = "line-470" > < / a >
< a name = "line-471" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-472" > < / a > < span class = 'hs-comment' > ---- DIRECTORY TRAVERSAL AND FILE OPENING CALLBACKS ----< / span >
< a name = "line-473" > < / a >
< a name = "line-474" > < / a >
< a name = "line-475" > < / a > < a name = "urlGoTo" > < / a > < span class = 'hs-comment' > -- |Go to the url given at the 'urlBar' and visualize it in the given< / span >
< a name = "line-476" > < / a > < span class = 'hs-comment' > -- treeView.< / span >
< a name = "line-477" > < / a > < span class = 'hs-comment' > --< / span >
< a name = "line-478" > < / a > < span class = 'hs-comment' > -- If the url is invalid, does nothing.< / span >
< a name = "line-479" > < / a > < span class = 'hs-definition' > urlGoTo< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-480" > < / a > < span class = 'hs-definition' > urlGoTo< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-481" > < / a > < span class = 'hs-varid' > fp< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > entryGetText< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > urlBar< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-482" > < / a > < span class = 'hs-varid' > forM_< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > parseAbs< / span > < span class = 'hs-varid' > fp< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > Maybe< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > Path< / span > < span class = 'hs-conid' > Abs< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > fp'< / span > < span class = 'hs-keyglyph' > -> < / span >
< a name = "line-483" > < / a > < span class = 'hs-varid' > whenM< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > canOpenDirectory< / span > < span class = 'hs-varid' > fp'< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-484" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > goDir< / span > < span class = 'hs-conid' > True< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > =< < < / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > readFile< / span > < span class = 'hs-varid' > getFileInfo< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > fp'< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-485" > < / a >
< a name = "line-486" > < / a >
< a name = "line-487" > < / a > < a name = "goHome" > < / a > < span class = 'hs-definition' > goHome< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-488" > < / a > < span class = 'hs-definition' > goHome< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-489" > < / a > < span class = 'hs-varid' > mhomedir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getEnv< / span > < span class = 'hs-str' > "HOME"< / span >
< a name = "line-490" > < / a > < span class = 'hs-varid' > forM_< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > P< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > parseAbs< / span > < span class = 'hs-varop' > =< < < / span > < span class = 'hs-varid' > mhomedir< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > Maybe< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > Path< / span > < span class = 'hs-conid' > Abs< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > fp'< / span > < span class = 'hs-keyglyph' > -> < / span >
< a name = "line-491" > < / a > < span class = 'hs-varid' > whenM< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > canOpenDirectory< / span > < span class = 'hs-varid' > fp'< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-492" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > goDir< / span > < span class = 'hs-conid' > True< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varop' > =< < < / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > readFile< / span > < span class = 'hs-varid' > getFileInfo< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > fp'< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-493" > < / a >
< a name = "line-494" > < / a >
< a name = "line-495" > < / a > < a name = "execute" > < / a > < span class = 'hs-comment' > -- |Execute a given file.< / span >
< a name = "line-496" > < / a > < span class = 'hs-definition' > execute< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-497" > < / a > < span class = 'hs-definition' > execute< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-498" > < / a > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > executeFile< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-conid' > []< / span >
< a name = "line-499" > < / a > < span class = 'hs-definition' > execute< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span >
< a name = "line-500" > < / a > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > throwIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > InvalidOperation< / span >
< a name = "line-501" > < / a > < span class = 'hs-str' > "Operation not supported on multiple files"< / span >
< a name = "line-502" > < / a >
< a name = "line-503" > < / a >
< a name = "line-504" > < / a > < a name = "open" > < / a > < span class = 'hs-comment' > -- |Supposed to be used with 'withRows'. Opens a file or directory.< / span >
< a name = "line-505" > < / a > < span class = 'hs-definition' > open< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-conid' > Item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-506" > < / a > < span class = 'hs-definition' > open< / span > < span class = 'hs-keyglyph' > [< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyglyph' > ]< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-507" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > item< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-508" > < / a > < span class = 'hs-conid' > DirOrSym< / span > < span class = 'hs-varid' > r< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-509" > < / a > < span class = 'hs-varid' > nv< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readFile< / span > < span class = 'hs-varid' > getFileInfo< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > r< / span >
< a name = "line-510" > < / a > < span class = 'hs-varid' > goDir< / span > < span class = 'hs-conid' > True< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > nv< / span >
< a name = "line-511" > < / a > < span class = 'hs-varid' > r< / span > < span class = 'hs-keyglyph' > -> < / span >
< a name = "line-512" > < / a > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > openFile< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > r< / span >
< a name = "line-513" > < / a > < span class = 'hs-comment' > -- this throws on the first error that occurs< / span >
< a name = "line-514" > < / a > < span class = 'hs-definition' > open< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > FileLikeList< / span > < span class = 'hs-varid' > fs< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span >
< a name = "line-515" > < / a > < span class = 'hs-varid' > forM_< / span > < span class = 'hs-varid' > fs< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-varid' > f< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > void< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > openFile< / span > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > f< / span >
< a name = "line-516" > < / a > < span class = 'hs-definition' > open< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span >
< a name = "line-517" > < / a > < span class = 'hs-varop' > .< / span > < span class = 'hs-varid' > throwIO< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-conid' > InvalidOperation< / span >
< a name = "line-518" > < / a > < span class = 'hs-str' > "Operation not supported on multiple files"< / span >
2016-06-01 18:06:00 +00:00
< a name = "line-519" > < / a >
2016-06-01 20:24:25 +00:00
< a name = "line-520" > < / a >
< a name = "line-521" > < / a > < a name = "upDir" > < / a > < span class = 'hs-comment' > -- |Go up one directory and visualize it in the treeView.< / span >
< a name = "line-522" > < / a > < span class = 'hs-definition' > upDir< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-523" > < / a > < span class = 'hs-definition' > upDir< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-varid' > withErrorDialog< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-524" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-525" > < / a > < span class = 'hs-varid' > nv< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > goUp< / span > < span class = 'hs-varid' > cdir< / span >
< a name = "line-526" > < / a > < span class = 'hs-varid' > goDir< / span > < span class = 'hs-conid' > True< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > nv< / span >
< a name = "line-527" > < / a >
< a name = "line-528" > < / a >
< a name = "line-529" > < / a > < a name = "goHistoryPrev" > < / a > < span class = 'hs-comment' > -- |Go "back" in the history.< / span >
< a name = "line-530" > < / a > < span class = 'hs-definition' > goHistoryPrev< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-531" > < / a > < span class = 'hs-definition' > goHistoryPrev< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-532" > < / a > < span class = 'hs-varid' > hs< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > history< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-533" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > hs< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-534" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-conid' > []< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-535" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-varid' > xs< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-536" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-537" > < / a > < span class = 'hs-varid' > nv< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readFile< / span > < span class = 'hs-varid' > getFileInfo< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > x< / span >
< a name = "line-538" > < / a > < span class = 'hs-varid' > modifyTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > history< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-539" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > n< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > xs< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-varop' > `addHistory`< / span > < span class = 'hs-varid' > n< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-540" > < / a > < span class = 'hs-varid' > goDir< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > nv< / span >
< a name = "line-541" > < / a >
< a name = "line-542" > < / a >
< a name = "line-543" > < / a > < a name = "goHistoryNext" > < / a > < span class = 'hs-comment' > -- |Go "forth" in the history.< / span >
< a name = "line-544" > < / a > < span class = 'hs-definition' > goHistoryNext< / span > < span class = 'hs-keyglyph' > ::< / span > < span class = 'hs-conid' > MyGUI< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > MyView< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-conid' > IO< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-545" > < / a > < span class = 'hs-definition' > goHistoryNext< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-keyglyph' > =< / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-546" > < / a > < span class = 'hs-varid' > hs< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > history< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-547" > < / a > < span class = 'hs-keyword' > case< / span > < span class = 'hs-varid' > hs< / span > < span class = 'hs-keyword' > of< / span >
< a name = "line-548" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-conid' > []< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-varid' > return< / span > < span class = 'hs-conid' > ()< / span >
< a name = "line-549" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > x< / span > < span class = 'hs-conop' > :< / span > < span class = 'hs-varid' > xs< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-keyword' > do< / span >
< a name = "line-550" > < / a > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > getCurrentDir< / span > < span class = 'hs-varid' > myview< / span >
< a name = "line-551" > < / a > < span class = 'hs-varid' > nv< / span > < span class = 'hs-keyglyph' > < -< / span > < span class = 'hs-varid' > readFile< / span > < span class = 'hs-varid' > getFileInfo< / span > < span class = 'hs-varop' > $< / span > < span class = 'hs-varid' > x< / span >
< a name = "line-552" > < / a > < span class = 'hs-varid' > modifyTVarIO< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > history< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-553" > < / a > < span class = 'hs-layout' > (< / span > < span class = 'hs-keyglyph' > \< / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > p< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-keyword' > _< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-keyglyph' > -> < / span > < span class = 'hs-layout' > (< / span > < span class = 'hs-varid' > path< / span > < span class = 'hs-varid' > cdir< / span > < span class = 'hs-varop' > `addHistory`< / span > < span class = 'hs-varid' > p< / span > < span class = 'hs-layout' > ,< / span > < span class = 'hs-varid' > xs< / span > < span class = 'hs-layout' > )< / span > < span class = 'hs-layout' > )< / span >
< a name = "line-554" > < / a > < span class = 'hs-varid' > goDir< / span > < span class = 'hs-conid' > False< / span > < span class = 'hs-varid' > mygui< / span > < span class = 'hs-varid' > myview< / span > < span class = 'hs-varid' > nv< / span >
< a name = "line-555" > < / a >
2016-06-01 17:32:51 +00:00
< / pre > < / body >
< / html >
