Commit b7f5a7f0 authored by bp's avatar bp

Changed show for boxes so that hidden boxes are not drawn


git-svn-id: https://forth-ev.de/repos/bigforth@761 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 7191943f
......@@ -92,7 +92,7 @@ gpl-about implements
1 $10 dpy geometry
ELSE drop THEN
floater self vfixbox drop floater resized
[ previous ] ; ( [methodend] )
super show [ previous ] ; ( [methodend] )
: widget ( [dumpstart] )
X" This program is free software; you can redistribute it and/or modify" text-label new
X" it under the terms of the GNU General Public License as published by" text-label new
......
......@@ -8,6 +8,8 @@ $10 Constant :notshadow
$20 Constant :norshadow
$40 Constant :nobshadow
$80 Constant :nolshadow
$0 Constant #hidden
\ combined widgets 27may00py
......@@ -16,6 +18,7 @@ public: gadget ptr childs cell var n
2 cells var hglues 2 cells var vglues
1 var hskip 1 var vskip
1 var borderw 1 var attribs
cell var flags
gadget ptr active cell var tab-steps
method compose method (clicked
early hskip@ early vskip@
......@@ -54,7 +57,8 @@ how: : >box 'nil bind childs 'nil bind active
self childs bind parent
ELSE childs append THEN 1 n +! ( resized ) ;
: ?nodraw ( -- flag ) attribs c@ :flip and ;
: ?nodraw ( -- flag ) attribs c@ :flip and 0<>
flags #hidden bit@ or ;
\ combined widgets 29aug99py
......@@ -111,8 +115,8 @@ how: : >box 'nil bind childs 'nil bind active
: dispose dispose-childs tab-step-off super dispose ;
: focus ?nodraw ?EXIT ALLCHILDS focus ;
: defocus ?nodraw ?EXIT ALLCHILDS defocus ;
: show ?nodraw ?EXIT ALLCHILDS show ;
: hide ALLCHILDS hide ;
: show flags #hidden -bit ?nodraw ?EXIT ALLCHILDS show ;
: hide flags #hidden +bit ALLCHILDS hide ;
: keyed ( key sh -- ) active keyed ;
: handle-key? active handle-key? ;
: !resized 0. hglues 2! 0. vglues 2! tab-step-off
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment