Fly-by for pin button
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 11 Dec 2014 16:42:10 +0100
changeset 15008 6bb5b292ad5c
parent 15007 1214b261a086
child 15009 250a63cfb33f
Fly-by for pin button
Tools__TestRunnerMini.st
--- a/Tools__TestRunnerMini.st	Thu Dec 11 11:28:56 2014 +0100
+++ b/Tools__TestRunnerMini.st	Thu Dec 11 16:42:10 2014 +0100
@@ -116,6 +116,27 @@
 )
 
     "Created: / 04-06-2012 / 19:27:47 / cg"
+!
+
+helpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:Tools::TestRunnerMini    
+    "
+
+    <resource: #help>
+
+    ^ super helpSpec addPairsFrom:#(
+
+#pin
+'Pin runner for selected testcase in screen.'
+
+)
 ! !
 
 !TestRunnerMini class methodsFor:'image specs'!
@@ -203,6 +224,7 @@
                       (ActionButtonSpec
                          name: 'Button3'
                          layout: (LayoutFrame 5 0 3 0 21 0 17 0)
+                         activeHelpKey: pin
                          level: 0
                          visibilityChannel: pinButtonVisibleHolder
                          backgroundChannel: resultBackgroundColorAspect
@@ -1164,14 +1186,14 @@
 !TestRunnerMini class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerMini.st,v 1.3 2014-11-14 07:46:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerMini.st,v 1.4 2014-12-11 15:42:10 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerMini.st,v 1.3 2014-11-14 07:46:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerMini.st,v 1.4 2014-12-11 15:42:10 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunnerMini.st,v 1.3 2014-11-14 07:46:42 vrany Exp $'
+    ^ '$Id: Tools__TestRunnerMini.st,v 1.4 2014-12-11 15:42:10 vrany Exp $'
 ! !