MCDialog.st
changeset 568 e8fa08d59973
parent 539 c9a44c5eaec7
child 584 66c2fd50afac
--- a/MCDialog.st	Tue Jul 24 16:00:20 2012 +0200
+++ b/MCDialog.st	Tue Jul 24 17:06:56 2012 +0200
@@ -482,8 +482,8 @@
               label: 'Help'
               name: 'Help'
               layout: (LayoutFrame 53 0 -26 1 153 0 -3 1)
-              style: (FontDescription helvetica medium roman 12)
-              foregroundColor: (Color 0.0 0.0 86.9993133440146)
+              visibilityChannel: false
+              foregroundColor: (Color 0.0 0.0 86.9993133440147)
               translateLabel: true
               model: doHelp
             )
@@ -707,7 +707,9 @@
 doHelp
     <resource: #uiCallback>
 
-    Transcript showCR:self class name, ': action for doHelp ...'.
+    Dialog information: 'Sorry: no help (yet)'.
+
+    "Modified: / 24-07-2012 / 16:20:22 / cg"
 !
 
 doInspect
@@ -976,11 +978,11 @@
 !MCDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDialog.st,v 1.3 2011-12-04 14:44:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDialog.st,v 1.4 2012-07-24 15:06:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDialog.st,v 1.3 2011-12-04 14:44:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCDialog.st,v 1.4 2012-07-24 15:06:56 cg Exp $'
 !
 
 version_SVN