Various improvements to LinePad + UI flow

[pywienerlinien] / qml / LinePad.qml

diff --git a/qml/LinePad.qml b/qml/LinePad.qml
index 1d6bd59..fbc1ccd 100644 (file)
--- a/qml/LinePad.qml
+++ b/qml/LinePad.qml
@@ -1,5 +1,6 @@
 
 import QtQuick 1.0
+import QtMobility.feedback 1.1
 
 Rectangle {
     id: linePad
@@ -34,6 +35,22 @@ Rectangle {
     height: 800
     width: 480
 
+     HapticsEffect {
+         id: buttonFeedback
+
+         /**
+          * Ideally we would use ThemeEffect here,
+          * but on Harmattan it has no effect (sic)
+          **/
+
+         attackIntensity: 0.5
+         attackTime: 100
+         intensity: 1.0
+         duration: 50
+         fadeTime: 0
+         fadeIntensity: 0.0
+     }
+
     Text {
         id: inputLine
         horizontalAlignment: Text.AlignHCenter
@@ -72,7 +89,10 @@ Rectangle {
                     fill: parent
                     margins: -(inputLine.height - height)/2
                 }
-                onClicked: inputLine.text = ''
+                onClicked: {
+                    buttonFeedback.start()
+                    inputLine.text = ''
+                }
             }
         }
     }
@@ -143,6 +163,7 @@ Rectangle {
             MouseArea {
                 anchors.fill: parent
                 onClicked: {
+                    buttonFeedback.start()
                     inputLine.text += modelData
                 }
             }