Changeset 110 for widgets/label.r

Timestamp:

12/24/07 07:12:10 (11 months ago)

Author:

ashley

Message:

Added RebDOC app and heading widget
scroll-panel.r and tree.r fixes
Removed unmaintained widgets

Files:

• widgets/label.r (modified) (2 diffs)

widgets/label.r

@@ -1 @@
-label: make rebface [
+label: make heading [
         tip:    {
                 USAGE:
@@ -7 +7 @@
                         Bold text.
         }
-        size:   -1x-1
-        text:   ""
         font:   default-font-bold
-        para:   default-para-wrap
-        init:   make function! [] [
-                all [negative? size/x negative? size/y size: 10000x10000 size: 4x4 + size-text self]
-                all [negative? size/x size/x: 10000 size/x: 4 + first size-text self]
-                all [negative? size/y size/y: 10000 size/y: 4 + second size-text self]
-                all [size/y > sizes/line font/align <> 'center font: make font [valign: 'top]]
-                size/y: max size/y sizes/line
-        ]
 ]