Browse Source

Added some tooltips to the uml box.

master
freesource 23 years ago
parent
commit
e9cb254c72
  1. 26
      gBootRoot

26
gBootRoot

@ -1050,12 +1050,14 @@ sub uml_box {
label_advanced("Xterm:",0,1,0,1,$table_uml); label_advanced("Xterm:",0,1,0,1,$table_uml);
$eab1 = entry_advanced(1,2,0,1,8,$table_uml); $eab1 = entry_advanced(1,2,0,1,8,$table_uml);
$eab1->set_text($uml_xterm); $eab1->set_text($uml_xterm);
$tooltips->set_tip( $eab1,
"Choose an xterm with " .
"its executable option switch.",
"" );
#_______________________________________ #_______________________________________
# UML options # UML options
label_advanced("Options:",0,1,1,2,$table_uml); label_advanced("Options:",0,1,1,2,$table_uml);
#$eab2 = entry_advanced(1,3,1,2,9,$table_uml);
#$eab2->set_text("root=/dev/ubd0");
$eab2 = Gtk::Combo->new(); $eab2 = Gtk::Combo->new();
$table_uml->attach($eab2,1,3,1,2, $table_uml->attach($eab2,1,3,1,2,
['expand','fill'],['fill','shrink'],0,0); ['expand','fill'],['fill','shrink'],0,0);
@ -1077,6 +1079,9 @@ sub uml_box {
} }
close(OPTIONS); close(OPTIONS);
} ); } );
$tooltips->set_tip( Gtk::Combo::entry($eab2),
"Enter uml command-line options.",
"" );
$eab2->show(); $eab2->show();
#_______________________________________ #_______________________________________
@ -1087,12 +1092,19 @@ sub uml_box {
$table_uml,$home_rootfs); $table_uml,$home_rootfs);
$eab3->set_text("ubd0=$tmp/$entry_advanced[4]") $eab3->set_text("ubd0=$tmp/$entry_advanced[4]")
if -e "$tmp/$entry_advanced[4]"; if -e "$tmp/$entry_advanced[4]";
$tooltips->set_tip( $eab3,
"Choose an uncompressed root filesystem." .
"Append with uml?=.",
"" );
$table_uml->set_row_spacing( 2, 4); $table_uml->set_row_spacing( 2, 4);
#_______________________________________ #_______________________________________
# Submit Button # Submit Button
my $submit_b = button_advanced(0,1,3,4,"Submit",$table_uml); my $submit_b = button_advanced(0,1,3,4,"Submit",$table_uml);
$tooltips->set_tip( $submit_b,
"Start uml kernel processes.",
"" );
$submit_b->signal_connect("clicked", $submit_b->signal_connect("clicked",
sub { sub {
# UML kernel = $entry_advanced[5] # UML kernel = $entry_advanced[5]
@ -1157,6 +1169,11 @@ sub uml_box {
#_______________________________________ #_______________________________________
# Cancel button also kills UML kernel if still open # Cancel button also kills UML kernel if still open
my $abort_b = button_advanced(1,2,3,4,"Abort",$table_uml); my $abort_b = button_advanced(1,2,3,4,"Abort",$table_uml);
$tooltips->set_tip( $abort_b,
"Abort uml kernel processes." .
"Use with care, `shutdown -h now` " .
"is preferable.",
"" );
$abort_b->signal_connect("clicked", $abort_b->signal_connect("clicked",
sub { sub {
if ($entry_advanced[10]) { if ($entry_advanced[10]) {
@ -1173,7 +1190,10 @@ sub uml_box {
#_______________________________________ #_______________________________________
# Cancel button also kills UML kernel if still open # Cancel button also kills UML kernel if still open
my $cancel_b = button_advanced(2,3,3,4,"Cancel",$table_uml); my $cancel_b = button_advanced(2,3,3,4,"Close",$table_uml);
$tooltips->set_tip( $cancel_b,
"Close uml box.",
"" );
$cancel_b->signal_connect("clicked", $cancel_b->signal_connect("clicked",
sub { sub {
$uml_window->destroy() if $uml_window; $uml_window->destroy() if $uml_window;

Loading…
Cancel
Save