Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Tue, 11 Jul 2017 14:36:44 +0200
changeset 6178 b21eb474fd9d
parent 6177 e80cfdebfdbe
child 6179 85ed7184791d
#DOCUMENTATION by cg class: Button class comment/format in: #examples
Button.st file | annotate | diff | comparison | revisions 
--- a/Button.st	Tue Jul 11 14:36:37 2017 +0200
+++ b/Button.st	Tue Jul 11 14:36:44 2017 +0200
@@ -261,6 +261,18 @@
           top open.
                                                                         [exEnd]
 
+                                                                        [exBegin]
+          |top b|
+
+          top := StandardSystemView new.
+          top extent:100@100.
+
+          b := Button in:top.
+          b label:'press\me' withCRs.
+
+          top open.
+                                                                        [exEnd]
+
 
     give it some action (watch the transcript):
                                                                         [exBegin]
hg/stx-libwidg