ltk 0.8 → 0.8.0.6
raw patch · 3 files changed
+21/−5 lines, 3 files
Files
- ltk.cabal +1/−1
- src/Graphics/UI/Editor/Simple.hs +12/−4
- src/Graphics/UI/Frame/ViewFrame.hs +8/−0
ltk.cabal view
@@ -1,5 +1,5 @@ name: ltk-version: 0.8+version: 0.8.0.6 cabal-version: -any build-type: Simple license: GPL
src/Graphics/UI/Editor/Simple.hs view
@@ -36,7 +36,11 @@ , okCancelFields ) where +#if MIN_VERSION_gtk(0,10,5)+import Graphics.UI.Gtk hiding (eventKeyName, eventModifier)+#else import Graphics.UI.Gtk+#endif import qualified Graphics.UI.Gtk as Gtk import Control.Monad import Data.IORef@@ -48,7 +52,11 @@ import Graphics.UI.Editor.Basics import Graphics.UI.Editor.MakeEditor import Control.Event+#if MIN_VERSION_gtk(0,10,5) import Graphics.UI.Gtk.Gdk.Events (Event(..))+#else+import Graphics.UI.Gtk.Gdk.Events (Event(..))+#endif import MyMissing (allOf) -- ------------------------------------------------------------@@ -656,10 +664,10 @@ case mbFileName of Nothing -> return (e{gtkReturn=True}) Just fn -> do- let relative = case mbFilePath of- Nothing -> fn- Just rel -> makeRelative rel fn- entrySetText entry relative+-- let relative = case mbFilePath of+-- Nothing -> fn+-- Just rel -> makeRelative rel fn+ entrySetText entry fn -- triggerEvent notifier SelectionChanged... return (e{gtkReturn=True})
src/Graphics/UI/Frame/ViewFrame.hs view
@@ -100,9 +100,17 @@ import Graphics.UI.Frame.Panes import Graphics.UI.Editor.Parameters import System.Glib (GObjectClass(..), isA)+#if MIN_VERSION_gtk(0,10,5)+import Graphics.UI.Gtk.Layout.Notebook (gTypeNotebook)+#else import Graphics.UI.Gtk.Types (gTypeNotebook)+#endif import System.CPUTime (getCPUTime)+#if MIN_VERSION_gtk(0,10,5)+import Graphics.UI.Gtk.Gdk.EventM (Modifier(..))+#else import Graphics.UI.Gtk.Gdk.Enums (Modifier(..))+#endif import MyMissing import Graphics.UI.Gtk.Gdk.EventM (TimeStamp(..)) import Graphics.UI.Editor.MakeEditor