Balloon.pm, DialogBox.pm adjustments

chrstphrchvz · chrstphrchvz · commit fe7658946362 · 2019-06-23T02:18:23.000-05:00
…as done in Tcl::pTk 1.01:

 - Balloon.pm: set default foreground to 'black'
 - DialogBox.pm: do not set default foreground color
diff --git a/Tixish/Balloon.pm b/Tixish/Balloon.pm
@@ -108,7 +108,7 @@ sub Populate {
 		    -cancelcommand => ['CALLBACK', 'cancelCommand', 'CancelCommand', undef],
 		    -motioncommand => ['CALLBACK', 'motionCommand', 'MotionCommand', undef],
 		    -background => ['DESCENDANTS', 'background', 'Background', '#C0C080'],
-                    -foreground => ['DESCENDANTS', 'foreground', 'Foreground', undef],
+		    -foreground => ['DESCENDANTS', 'foreground', 'Foreground', 'black'],
 		    -font => [$ml, 'font', 'Font', '-*-helvetica-medium-r-normal--*-120-*-*-*-*-*-*'],
 		    -borderwidth => ['SELF', 'borderWidth', 'BorderWidth', 1],
                     -numscreens=>['PASSIVE', 'numScreens','NumScreens',1],
diff --git a/Tixish/DialogBox.pm b/Tixish/DialogBox.pm
@@ -79,7 +79,7 @@ sub Populate {
 	warn "Cancel button `$cancel_button' does not exist.\n";
     }
     $cw->ConfigSpecs(-command    => ['CALLBACK', undef, undef, undef ],
-                     -foreground => ['DESCENDANTS', 'foreground','Foreground', 'black'],
+                     -foreground => ['DESCENDANTS', 'foreground','Foreground',  undef],
                      -background => ['DESCENDANTS', 'background','Background',  undef],
 		     -focus	 => ['PASSIVE', undef, undef, undef],
 		     -showcommand => ['CALLBACK', undef, undef, undef],

Original file line number	Diff line number	Diff line change
`@@ -79,7 +79,7 @@ sub Populate {`
`79`	`79`	warn "Cancel button `$cancel_button' does not exist.\n";
`80`	`80`	`}`
`81`	`81`	`$cw->ConfigSpecs(-command => ['CALLBACK', undef, undef, undef ],`
`82`		`- -foreground => ['DESCENDANTS', 'foreground','Foreground', 'black'],`
	`82`	`+ -foreground => ['DESCENDANTS', 'foreground','Foreground', undef],`
`83`	`83`	`-background => ['DESCENDANTS', 'background','Background', undef],`
`84`	`84`	`-focus => ['PASSIVE', undef, undef, undef],`
`85`	`85`	`-showcommand => ['CALLBACK', undef, undef, undef],`