qtah-examples 0.1.2 → 0.2.0

raw patch · 2 files changed

+10/−9 lines, 2 filesdep ~hoppy-runtimedep ~qtah-qt5

Dependency ranges changed: hoppy-runtime, qtah-qt5

Files

• qtah-examples.cabal +3/−3
• src/Graphics/UI/Qtah/Example/Notepad.hs +7/−6

@@ -1,5 +1,5 @@ name: qtah-examples-version: 0.1.2+version: 0.2.0 synopsis: Example programs for Qtah Qt bindings homepage: http://khumba.net/projects/qtah license: LGPL-3@@ -24,7 +24,7 @@     , binary >=0.7 && <0.9     , bytestring >=0.10 && <0.11     , filepath >=1.0 && <1.5-    , hoppy-runtime >=0.2 && <0.3-    , qtah-qt5 >=0.1 && <0.2+    , hoppy-runtime >=0.3 && <0.4+    , qtah-qt5 >=0.2 && <0.3   ghc-options: -W -fwarn-incomplete-patterns -fwarn-unused-do-bind   default-language: Haskell2010

@@ -67,6 +67,7 @@ makeMainWindow :: IO QMainWindow makeMainWindow = do   window <- QMainWindow.new+  QWidget.resizeRaw window 640 480    menu <- QMenuBar.new   QMainWindow.setMenuBar window menu@@ -189,13 +190,13 @@                         (myWindow me)                         title                         "There are unsaved changes.  Would you like to save them?"-                        (QMessageBox.qMessageBoxStandardButtons_Yes .|.-                         QMessageBox.qMessageBoxStandardButtons_No .|.-                         QMessageBox.qMessageBoxStandardButtons_Cancel)-                        QMessageBox.QMessageBoxStandardButton_Cancel+                        (QMessageBox.yes .|.+                         QMessageBox.no .|.+                         QMessageBox.cancel)+                        QMessageBox.Cancel             case response of-              QMessageBox.QMessageBoxStandardButton_Yes -> fileSave me-              QMessageBox.QMessageBoxStandardButton_No -> return True+              QMessageBox.Yes -> fileSave me+              QMessageBox.No -> return True               _ -> return False     else return True