Balloon.pm, DialogBox.pm adjustments

As done in Tcl::pTk 1.01: - Balloon.pm: set default foreground to 'black' - DialogBox.pm: do not set default foreground color
eserte · Jun 23, 2019 · a809db2 · a809db2
1 parent 347f25f
commit a809db2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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],