Changed show for boxes so that hidden boxes are not drawn (b7f5a7f0) · Commits · Bernd Paysan / bigforth

gpl-about.m

+1 −1

Original line number	Diff line number	Diff line
		@@ -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

+7 −3

Original line number	Diff line number	Diff line
		@@ -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