""

docs/VERSION.txt

@@ -1,3 +1,10 @@
+0.7
+--
+
+* Somewhat fixed text-selection bug in profiles
+* Resized profile windows
+* Antialiasing in X
+
 0.361 9-6-2003
 --
 

plugins/Tk-BList/Milkbone/BList.pm

@@ -277,6 +277,9 @@ sub init
 
 	$self->Label(-image => $logo)->pack(-side => 'top', -fill => 'both') unless option("HideBListLogo");
 
+        my $label  = $self->Label(-text => "Logged in.");
+        $label->pack(-anchor => 'w');
+
 	$self->{tree} = $self->Scrolled("MBTree" =>
 		-scrollbars => 'oe',
 		-background => 'white', -font => hook("tk_get_default_font") .  ' 9 medium', -fg => 'black', -selectborderwidth => 0,
@@ -299,9 +302,6 @@ sub init
 
 	$self->{away_button} = "Away Message";
 
-        my $label  = $self->Label(-text => "Logged in");
-        $label->pack(-side => 'bottom', -anchor => 'w');
-
 	$self->{away} = $self->Button(-command => [$self, "on_away"], -text => 'Away Message', -border => 1);
 	$self->{away}->pack(-side => 'bottom');
 

plugins/Tk-Convo/Milkbone/Convo.pm

@@ -185,10 +185,10 @@ sub init
     $self->{hide_stamps} = 1;
 
     $self->{top} = $self->Scrolled("Browser", 
-                                   -height => 6, -font => "times 12", -scrollbars => 'oe', -wrap => 'word', -takefocus => 0)->
+                                   -height => 6, -font => "{adobe arial} 12", -scrollbars => 'oe', -wrap => 'word', -takefocus => 0)->
                                        pack(-side => 'top', -expand => 1, -fill => 'both', -padx => 5);
     $self->{bottom} = $self->Scrolled("BrowseEdit",
-                                      -height => 6, -font => "times 12", -scrollbars => 'oe', -wrap => 'word',
+                                      -height => 6, -font => "{adobe arial} 12", -scrollbars => 'oe', -wrap => 'word',
                                       -spacing1 => 0, -spacing2 => 0, -spacing3 => 0)->
                                           pack(-expand => 1, -fill => 'both', -padx => 5);
     $self->{top}->configure(-background => 'white');

plugins/Tk-Convo/Milkbone/ConvoTL.pm

@@ -46,7 +46,7 @@ sub init
     
     # WIDGET CREATION BEGIN
 
-    $self->{menu} = $self->Menu;
+    $self->{menu} = $self->Menu(-borderwidth => 0, -activeborderwidth => 0);
 
     $self->{menu_file} = $self->{menu}->cascade(-label => "File", -tearoff => 0);
     $self->{menu_file}->command(-label => "Close", -command => [$self, "destroy"]);

plugins/Tk-GUI/Tk-GUI.pl

@@ -25,11 +25,11 @@ if(win32())
 }
 else
 {
-    $defaultFont = 'helvetica';
+    $defaultFont = '{open look glyph}';
 }
 
 $mw->optionAdd("*font", "-*-$defaultFont-norma-r-*-*-*-120-*-*-*-*-*-*") if win32();
-$mw->optionAdd("*font", "-*-helvetica-norma-r-*-*-*-100-*-*-*-*-*-*") if nix();
+$mw->optionAdd("*font", "{adobe arial} 8 bold") if nix();
 $mw->optionAdd("*borderWidth", 1);
 $mw->optionAdd("*highlightThickness", 0);
 

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -39,7 +39,7 @@ sub Populate
         $self->{panel} = $self->Frame(-borderwidth => 0)->pack(-fill => 'both');
         $self->{text} = $self->Text(-background => 'white')->pack(-expand => 1, -fill => 'both');
         $self->{'<b>'} = $self->{panel}->Button(-text => 'B', -relief => 'flat',
-                -font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'),
+                -font => $self->Font(-family => '{adobe arial}', -weight => 'bold', -size => '8'),
                 -command => [sub {
                         my ($self) = @_;
                         $self->toggleTag('<b>');
@@ -48,7 +48,7 @@ sub Populate
         $self->{text}->bind('<Control-B>', [sub { shift->{'<b>'}->invoke; },
 $self]);
         $self->{'<i>'} = $self->{panel}->Button(-text => 'I', -relief => 'flat',
-                -font => $self->Font(-family => 'times', -slant => 'italic', -size => '8'),
+                -font => $self->Font(-family => '{adobe arial}', -slant => 'italic', -size => '8'),
                 -command => [sub {
                         my ($self) = @_;
                         $self->toggleTag('<i>');
@@ -57,7 +57,7 @@ $self]);
         $self->bind('<Control-I>', [sub { shift->{'<b>'}->invoke; }, $self]);
 
         $self->{'<u>'} = $self->{panel}->Button(-text => 'U', -relief => 'flat',
-                -font => $self->Font(-family => 'times', -underline => 1, -size => '8'),
+                -font => $self->Font(-family => '{adobe arial}', -underline => 1, -size => '8'),
                 -command => [sub {
                         my ($self) = @_;
                         $self->toggleTag('<u>');

plugins/Tk-GUI/Tk/Browser.pm

@@ -20,15 +20,13 @@ sub insertHTML
 	my ($self, $pos, $html) = @_;
 	my @insert;
 
-	$self->configure(-selectforeground => 'white', -selectbackground => 'black');
-
 	$html =~ s/<br>/\n/gi;
 	$html =~ s/<body bgcolor=/<font back=/gi;
 
 	my (@items) = grep { $_ ne "" } split /(<.*?>)/, $html;
 
 	my $data = {};
-	my $font = {-family => 'times'};
+	my $font = {-family => '{adobe arial}', -size => 11};
 
 	$self->begin($font);
 
@@ -190,13 +188,17 @@ sub font_begin
 	    $font->{-family} = $family;
 	  }
 	  else {
-	    $font->{-family} = "helvetica";
+	    $font->{-family} = "{adobe arial}";
 	  }
 	}
 
+        $back = "" if $back eq "white" or $back =~ /ffffff/i;
+
 	my %opts;
 	$opts{-foreground} = $color if $color;
 	$opts{-background} = $back if $back;
+
+        print "$color, $back\n";
 	
 	$data->{tags}->{$tag} = 1;
 	$self->tagConfigure($tag, %opts, -font => $self->Font(%{$font})->Pattern);

plugins/Tk-Logon/Milkbone/Logon.pm

@@ -66,6 +66,7 @@ sub on_cancel
 {
 	my ($self) = @_;
 
+        $self->packPropagate(1);
 	$self->{status}->packForget;
 	$self->{controls}->pack(-expand => 1, -fill => 'both');
 
@@ -113,21 +114,21 @@ sub init
 	$self->{sn_entry}->focus;
 	
 	# create the password widget
-	$self->{controls}->Label(-text => 'Password:', -anchor => 'w')->
+	$self->{controls}->Label(-text => 'Password:', -anchor => 'w', -takefocus => 0)->
 		pack(-side => 'top', -expand => 1, -fill => 'both', -padx => 7);
-	$self->{pass_entry} = $self->{controls}->Component('Entry' => 'pass', -background => 'white', -width => 16, -textvariable => \$self->{pass}, -show => '*', -insertwidth => 1)->
+	$self->{pass_entry} = $self->{controls}->Component('Entry' => 'pass', -background => 'white', -width => 16, -textvariable => \$self->{pass}, -show => '*', -insertwidth => 1, -takefocus => 1)->
 		pack(-side => 'top', -expand => 1, -fill => 'both', -padx => 5);
 
-	$self->{controls}->Label(-text => $slogan, -anchor => 'c', -justify => 'center', -wraplength => 250)->pack(-expand =>1, -fill => 'both');
+	$self->{controls}->Label(-text => $slogan, -anchor => 'c', -justify => 'center', -wraplength => 250, -takefocus => 0)->pack(-expand =>1, -fill => 'both');
 
 	# create the status frame
 	$self->{status_label} = $self->{status}->Label(-text => "Connecting to login.oscar.aol.com...")->pack;
-	$self->{status}->Button(-text => "Cancel", -takefocus => 0, command => [$self, "on_cancel"])->pack(-pady => 5);
+	$self->{status}->Button(-text => "Cancel", -takefocus => 0, -command => [$self, "on_cancel"])->pack(-pady => 5);
 
 	$self->{logon_button} = $self->{controls}->Button(-text => 'log on', -takefocus => 0, -command => [$self, "on_logon"], 
-		-height => 0.5, -borderwidth => 1)->
+		-height => 0.5, -borderwidth => 1, -takefocus => 0)->
 		pack(-pady => 7, -padx => 3, -expand => 0, -side => 'left');
-	$self->{controls}->Button(-text => 'about', -command => sub { hook("show_about") }, 
+	$self->{controls}->Button(-text => 'about', -command => sub { hook("show_about") }, -takefocus => 0, 
 		-height => 0.5)->
 		pack(-pady => 7, -padx => 3, -expand => 0, -side => 'right');
 	# WIDGET CREATION END

plugins/Tk-Profile/Milkbone/Profile.pm

@@ -118,7 +118,7 @@ sub init
 
 	hook("tk_bindwheel", -window => $self->{text});
 
-        $self->geometry("650x430") if $^O =~ /Win32/;
+        $self->geometry("450x400");
         $self->deiconify;
 
 	$self->OnDestroy([\&on_destroy, $self]);

plugins/Tk-Profile/Tk-Profile.pl

@@ -1,46 +1,46 @@
 package TkProfile;
-
+
-use Milkbone::Profile;
+use Milkbone::Profile;
-use Milkbone;
+use Milkbone;
-
+
-use strict;
+use strict;
-use warnings;
+use warnings;
-
+
-my $mw = hook("tk_getmain");
+my $mw = hook("tk_getmain");
-
+
-register_hook("get_profile", sub {
+register_hook("get_profile", sub {
-	my $who = $ARGS{-user};
+	my $who = $ARGS{-user};
-
+
-	$who =~ s/ //g;
+	$who =~ s/ //g;
-	$who =~ tr/A-Z/a-z/;
+	$who =~ tr/A-Z/a-z/;
-
+
-	my $prof = $mw->MBProfile(-title => "Profile for $who");
+	my $prof = $mw->MBProfile(-title => "Profile for $who");
-	$prof->init($who);
+	$prof->init($who);
-
+
-	hook("protocol_request_info", -user => $who);
+	hook("protocol_request_info", -user => $who);
-	hook("protocol_request_away", -user => $who);
+	hook("protocol_request_away", -user => $who);
-
+
-	$prof->focus;
+	$prof->focus;
-
+
-	register_hook("protocol_info_received_$who", sub {
+	register_hook("protocol_info_received_$who", sub {
-		return unless $ARGS{-self};
+		return unless $ARGS{-self};
-		my $self = $ARGS{-self};
+		my $self = $ARGS{-self};
-
+
-		if(defined $ARGS{-profile})
+		if(defined $ARGS{-profile})
-		{
+		{
-			$self->on_receive_prof($ARGS{-profile});
+			$self->on_receive_prof($ARGS{-profile});
-			$self->{prof_rec} = 1;
+			$self->{prof_rec} = 1;
-		}
+		}
-		if(defined $ARGS{-away})
+		if(defined $ARGS{-away})
-		{
+		{
-			$self->on_receive_away($ARGS{-away});
+			$self->on_receive_away($ARGS{-away});
-			$self->{away_rec} = 1;
+			$self->{away_rec} = 1;
-		}
+		}
-	}, {-self => $prof});
+	}, {-self => $prof});
-});
+});
-
+
-register_hook("remove_profile", sub {
+register_hook("remove_profile", sub {
-	deregister_hook("protocol_info_received_" . $ARGS{-who});
+	deregister_hook("protocol_info_received_" . $ARGS{-who});
-});
+});
-
+
-1;
+1;