""

docs/VERSION.txt

@@ -1,9 +1,12 @@
 0.7
 --
 
-* Somewhat fixed text-selection bug in profiles
+* Finally got around to changing milkbone.batkins.com to milkbone.org in the default profile
+* Text selection works a lot better in profiles and convos
 * Resized profile windows
-* Antialiasing in X
+* Antialiasing in X (only works with Tk804,which is currently in alpha testing)
+* Jabber server running at milkbone.org
+* milkbone.org running on new server
 
 0.361 9-6-2003
 --

plugins/Tk-File/Milkbone/File.pm

@@ -1,85 +1,85 @@
-# milkbone - profile dialog
+# milkbone - profile dialog
-
+
-package Milkbone::File;
+package Milkbone::File;
-
+
-use Milkbone;
+use Milkbone;
-
+
-our $VERSION = '1.0';
+our $VERSION = '1.0';
-
+
-use Tk::widgets qw(Frame);
+use Tk::widgets qw(Frame);
-use base qw(Tk::Toplevel);
+use base qw(Tk::Toplevel);
-use strict;
+use strict;
-use warnings;
+use warnings;
-
+
-Construct Tk::Widget 'MBFile';
+Construct Tk::Widget 'MBFile';
-
+
-sub ClassInit
+sub ClassInit
-{
+{
-	my ($class, $mw) = @_;
+	my ($class, $mw) = @_;
-	$class->SUPER::ClassInit($mw);
+	$class->SUPER::ClassInit($mw);
-}
+}
-
+
-sub init
+sub init
-{
+{
-	my ($self, $mw, $data, $file, $type) = @_;
+	my ($self, $mw, $data, $file, $type) = @_;
-
+
-	$self->{text} = $self->Frame->pack(-expand => 1, -fill => 'both')->Scrolled(
+	$self->{text} = $self->Frame->pack(-expand => 1, -fill => 'both')->Scrolled(
-		"Text", -scrollbars => 'oe', -background => 'white', -wrap => 'word')->
+		"Text", -scrollbars => 'oe', -background => 'white', -wrap => 'word')->
-		pack(-expand => 1, -fill => 'both');
+		pack(-expand => 1, -fill => 'both');
-	
+	
-	$self->Button(-text => "Close", -command => [$self, "destroy"])->pack(-side => 'right');
+	$self->Button(-text => "Close", -command => [$self, "destroy"])->pack(-side => 'right');
-	$self->Button(-text => "Save", -command => [$self, "on_save"])->pack(-side => 'right');
+	$self->Button(-text => "Save", -command => [$self, "on_save"])->pack(-side => 'right');
-
+
-	$self->{text}->bind('<MouseWheel>', 
+	$self->{text}->bind('<MouseWheel>', 
-		[ sub { $_[0]->yview('scroll', -($_[1] / 120), 'units') }, Tk::Ev('D')]);
+		[ sub { $_[0]->yview('scroll', -($_[1] / 120), 'units') }, Tk::Ev('D')]);
-
+
-	$self->{text}->insert('0.0', $data);
+	$self->{text}->insert('0.0', $data);
-
+
-	$self->{type} = $type;
+	$self->{type} = $type;
-	$self->{file} = $file;
+	$self->{file} = $file;
-
+
-	if($type eq "profile")
+	if($type eq "profile")
-	{
+	{
-		$self->configure(-title => "Edit Profile");
+		$self->configure(-title => "Edit Profile");
-	}
+	}
-	else
+	else
-	{
+	{
-		$self->configure(-title => "Edit Away Message");
+		$self->configure(-title => "Edit Away Message");
-	}
+	}
-
+
-	$self->{text}->focus;
+	$self->{text}->focus;
-	hook("tk_seticon", -wnd => $self);
+	hook("tk_seticon", -wnd => $self);
-}
+}
-
+
-sub on_save
+sub on_save
-{
+{
-	my ($self) = @_;
+	my ($self) = @_;
-	my $text = $self->{text}->get('0.0', 'end');
+	my $text = $self->{text}->get('0.0', 'end');
-
+
-	$text = pre_save($text);
+	$text = pre_save($text);
-
+
-	open(OUT, ">" . $self->{file}) or die "couldn't open: $! " . $self->{file};
+	open(OUT, ">" . $self->{file}) or die "couldn't open: $! " . $self->{file};
-	print OUT $text;
+	print OUT $text;
-	close(OUT);
+	close(OUT);
-
+
-	if($self->{type} eq "profile")
+	if($self->{type} eq "profile")
-	{
+	{
-		hook("protocol_set_prof", -data => $text);
+		hook("protocol_set_prof", -data => $text);
-	}
+	}
-	elsif($self->{type} eq "away")
+	elsif($self->{type} eq "away")
-	{
+	{
-		hook("protocol_set_away", -data => $text);
+		hook("protocol_set_away", -data => $text);
-	}
+	}
-
+
-	$self->destroy;
+	$self->destroy;
-}
+}
-
+
-sub pre_save
+sub pre_save
-{
+{
-	my ($text) = @_;
+	my ($text) = @_;
-
+
-	$text =~ s/\n*$//g;
+	$text =~ s/\n*$//g;
-	$text =~ s/\n/<br>/gi;
+	$text =~ s/\n/<br>/gi;
-	
+	
-	return $text;
+	return $text;
-}
+}

plugins/Tk-File/Tk-File.pl

@@ -50,7 +50,7 @@ sub get_all{
 
 	if($prof eq "FAILED")
 	{
-		$prof = "<b>Milkbone %v(<a href=\"http://milkbone.batkins.com\">milkbone.batkins.com</a>)</b><br><br>A recent survey has concluded that 100% of all milkbone users would rather use milkbone than nothing at all.<br><br>I'm listening to %a - %s";
+		$prof = "<b>Milkbone %v(<a href=\"http://milkbone.org\">milkbone.org</a>)</b><br><br>A recent survey has concluded that 100% of all milkbone users would rather use milkbone than nothing at all.<br><br>I'm listening to %a - %s";
 	}
 	if($away eq "FAILED")
 	{

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -101,11 +101,11 @@ sub toggleTag
         if(!defined($self->{text}->tagRanges('sel')))
         {
                 # no selection - modify current position
-                my $cur_tag = ($self->{text}->tagNames('insert'))[0] || "";
+          	my @tags = $self->{text}->tagNames('insert');
+                my $cur_tag = (scalar(@tags) > 0 ? $tags[0] : "");
                 if ($cur_tag =~ /$tag/i)
                 {
                         # tag is defined for this region - remove it
-
                         return if $cur_tag eq "";
                         $self->{text}->tagRemove($cur_tag, 'insert');
                         $cur_tag =~ s/$tag//i;
@@ -188,13 +188,15 @@ sub create_tag
         if($tag =~ /<font back=('|")(.*?)('|")>/)
         {
                 $tagparams{-background} = $2;
-				print "set background";
         }
 
-		my $font = $self->Font(%fontparams);
+        my $font = $self->Font(-family => 'times',%fontparams);
+        print %fontparams;
+        # XXX: SEGMENTATION FAULT HERE!!
         $self->tagConfigure($tag, %tagparams, -font => $font);
-		$self->{created_tags}->{$tag} = 1;
+        $self->{created_tags}->{$tag} = 1;
 }
+
 sub to_html
 {
         my ($self, $start, $end) = @_;

plugins/Tk-GUI/Tk/Browser.pm

@@ -15,11 +15,20 @@ Construct Tk::Widget 'Browser';
 my %fonts;
 $fonts{$_} = 1 for hook("tk_getmain")->fontFamilies;
 
+sub Populate
+{
+  my ($self, $args) = @_;
+  $self->SUPER::Populate($args);
+}
+
 sub insertHTML
 {
 	my ($self, $pos, $html) = @_;
 	my @insert;
 
+        $self->tagConfigure('BSEL', -background => '#c0c0c0');
+        $self->tagRaise('sel', 'BSEL');
+
 	$html =~ s/<br>/\n/gi;
 	$html =~ s/<body bgcolor=/<font back=/gi;
 
@@ -72,6 +81,7 @@ sub b_begin
 	$font->{-weight} = 'bold';
 	$data->{tags}->{'<b>'} = 1;
 	$self->tagConfigure('<b>', -font => $self->Font(%{$font})->Pattern);
+        $self->tagRaise(sel => '<b>');
 }
 
 sub b_end
@@ -88,6 +98,7 @@ sub i_begin
 	$font->{-slant} = 'italic';
 	$data->{tags}->{'<i>'} = 1;
 	$self->tagConfigure('<i>', -font => $self->Font(%{$font})->Pattern);
+        $self->tagRaise(sel => '<i>');
 }
 
 sub i_end
@@ -104,6 +115,7 @@ sub u_begin
 
 	$data->{tags}->{'<u>'} = 1;
 	$self->tagConfigure('<u>', -underline => 1, -font => $self->Font(%{$font})->Pattern);
+        $self->tagRaise(sel => '<u>');
 }
 
 sub u_end
@@ -123,6 +135,7 @@ sub a_begin
 	
 	$data->{tags}->{$tag} = 1;
 	$self->tagConfigure($tag, -foreground => "blue", -underline => 1, -font => $self->Font(%{$font})->Pattern);
+        $self->tagRaise(sel => $tag);
 
 	$self->tagBind($tag, '<ButtonPress-1>', [sub {
 		my $cmd;
@@ -202,6 +215,7 @@ sub font_begin
 	
 	$data->{tags}->{$tag} = 1;
 	$self->tagConfigure($tag, %opts, -font => $self->Font(%{$font})->Pattern);
+        $self->tagRaise(sel => $tag);
 
 	push @{$data->{fonttags}}, $tag;
 }

plugins/Tk-Profile/Milkbone/Profile.pm

@@ -118,7 +118,7 @@ sub init
 
 	hook("tk_bindwheel", -window => $self->{text});
 
-        $self->geometry("450x400");
+        $self->geometry("600x400");
         $self->deiconify;
 
 	$self->OnDestroy([\&on_destroy, $self]);