""

Makefile

@@ -0,0 +1,15 @@
+PREFIX = /usr/local
+
+SUBDIRS = plugins           \
+          sounds	    \
+          images	    \
+	  lib
+
+install:
+	mkdir -p $(DESTDIR)/$(PREFIX)/share/milkbone
+	cp -r *.p* $(SUBDIRS) $(DESTDIR)/$(PREFIX)/share/milkbone
+	mkdir -p $(DESTDIR)/$(PREFIX)/share/doc/milkbone/
+	cp -r docs/* $(DESTDIR)/$(PREFIX)/share/doc/milkbone
+	mkdir -p $(DESTDIR)/$(PREFIX)/bin/
+	echo -e "#!/bin/sh \n cd ${PREFIX}/share/milkbone \n exec $(PREFIX)/share/milkbone/mos.pl \"\$$@\"\n" > $(DESTDIR)/$(PREFIX)/bin/milkbone
+	chmod +x $(DESTDIR)/$(PREFIX)/bin/milkbone

docs/VERSION.txt

@@ -1,6 +1,9 @@
 0.356
 --
 
+* Beta Makefile
+* Beta ebuild (for Gentoo Linux users)
+* No more extraneous warnings on startup
 * Convo code separated into convo widget and container widget
 * Buddy list now uses Tahoma 
 * Fixed links problem on Win32 (thanks to Bob for pointing it out)

makedist.pl

@@ -1,3 +0,0 @@
-#!/usr/bin/perl
-
-use Archive::Tar;

milkbone-0.36.ebuild

@@ -0,0 +1,23 @@
+DESCRIPTION="IM client written in Perl/Tk"
+HOMEPAGE="http://www.milkbone.org"
+IUSE=""
+
+DEPEND=">=dev-lang/perl-5.6*
+	>=dev-perl/perl-tk-800.02*"
+
+SLOT="0"
+LICENSE="GPL-2"
+KEYWORDS="~x86 ~ppc ~alpha ~sparc"
+
+MY_P="$(echo ${P}|sed 's/b$/beta/')"
+SRC_URI="mirror://sourceforge/gaim/${P}.tar.gz"
+S=${WORKDIR}/${MY_P}
+
+src_compile() {
+	true
+
+}
+
+src_install() {
+	einstall || die "Couldn't install
+}

plugins/Tk-Convo/Milkbone/ConvoTL.pm

@@ -24,6 +24,7 @@ sub Populate
 {
     my ($self, $args) = @_;
     $self->SUPER::Populate($args);
+    $self->withdraw();
 
     $self->ConfigSpecs('DEFAULT' => ['SELF']);
 }
@@ -40,8 +41,6 @@ sub init
     my ($self, $mw, $buddy) = @_;
     $self->{buddy} = $buddy;
 
-    $self->withdraw();
-
     $self->title("$buddy - Conversation");
     $self->update;
     

plugins/Tk-Convo/Tk-Convo.pl

@@ -36,7 +36,7 @@ register_hook("create_convo", sub {
         $ARGS{-self}->{convo}->typing_status($ARGS{-status});
     }, {-self => $convo});
 
-    register_hook("protocol_send_im", sub {
+    register_hook("msg_sent_$buddy", sub {
         $ARGS{-self}->{convo}->msg_sent(@ARGS{-msg, -away});
     }, {-self => $convo});
 

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -1,28 +1,21 @@
 package Tk::BrowseEdit;
-
 use Tk;
 use Tk::Font;
 use base 'Tk::Frame';
-
 use strict;
 use warnings;
-
 Construct Tk::Widget 'BrowseEdit';
-
 sub ClassInit
 {
         my ($class, $mw) = @_;
         $class->SUPER::ClassInit($mw);
 }
-
 sub Populate
 {
         my ($self, $args) = @_;
         $self->SUPER::Populate($args);
-
         $self->{panel} = $self->Frame(-borderwidth => 0)->pack(-fill => 'both');
         $self->{text} = $self->Text->pack(-expand => 1, -fill => 'both');
-
         $self->{'<b>'} = $self->{panel}->Button(-text => 'B', -relief => 'flat',
                 -font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'),
                 -command => [sub {
@@ -30,9 +23,8 @@ sub Populate
                         $self->toggleTag('<b>');
                 }, $self]
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
-	$self->{text}->tagConfigure('<b>', -font => $self->Font(-family => 'times', -weight => 'bold'));
+        $self->{text}->bind('<Control-B>', [sub { shift->{'<b>'}->invoke; },
-	$self->{text}->bind('<Control-B>', [sub { shift->{'<b>'}->invoke; }, $self]);
+$self]);
-
         $self->{'<i>'} = $self->{panel}->Button(-text => 'I', -relief => 'flat',
                 -font => $self->Font(-family => 'times', -slant => 'italic', -size => '8'),
                 -command => [sub {
@@ -40,9 +32,7 @@ sub Populate
                         $self->toggleTag('<i>');
                 }, $self]
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
-	$self->{text}->tagConfigure('<i>', -font => $self->Font(-family => 'times', -slant => 'italic'));
         $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'),
                 -command => [sub {
@@ -50,43 +40,50 @@ sub Populate
                         $self->toggleTag('<u>');
                 }, $self]
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
-	$self->{text}->tagConfigure('<u>', -font => $self->Font(-family => 'times', -underline => 1));
-        
-	$self->{text}->tagConfigure('elide', -elide => 1);
         $self->bind('<Control-U>', [sub { shift->{'<b>'}->invoke; }, $self]);
-
+        $self->{text}->tagConfigure('elide', -elide => 1);
         $self->ConfigSpecs(
                 'DEFAULT' => [$self->{text}],
                 -background => [$self]
         );
-
         $self->Delegates(
                 'DEFAULT' => $self->{text},
                 'to_html' => $self,
         );
-
         $self->after(200, [$self, "init"]);
 }
-
 sub toggleTag
 {
         my ($self, $tag) = @_;
-
         if(!defined($self->{text}->tagRanges('sel')))
         {
-		if(!$self->{tags}->{$tag})
+                # no selection - modify current position
-		{
+	        print "starting\n";
-			$self->{text}->insert('insert', '%ignore%', [$tag, 'elide']);
+                my $cur_tag = ($self->{text}->tagNames('insert'))[0] || "";
-			$self->{text}->tagAdd($tag, 'insert');
+		print "tag names gotten\n";
-			$self->{tags}->{$tag} = 1;
+                if ($cur_tag =~ /$tag/i)
-			$self->{$tag}->configure(-relief => 'groove');
+                {
+                        # tag is defined for this range - remove it from the composite tag name and then add the resulting
+                        # tag, creating it if necessary
+                        return unless $cur_tag ne "";
+                        $self->{text}->tagRemove($cur_tag, 'insert');
+                        $cur_tag =~ s/$tag//i;
+			print "creating tag\n";
+                        $self->create_tag($cur_tag);
+			print "tag created\n";
+                        $self->insert('insert', '%%%ignore%%%', [$cur_tag, 'elide']);
+                        $self->tagAdd($cur_tag, 'insert');
+                        $self->{$tag}->configure(-relief => 'flat');
                 }
                 else
                 {
-			$self->{text}->insert('insert', '%ignore%', ['elide']);
+                        # tag not enabled for this range - add it
-			$self->{text}->tagRemove($tag, 'insert');
+                        $self->{text}->tagRemove($cur_tag, 'insert');
-			$self->{tags}->{$tag} = 0;
+                        $cur_tag .= $tag;
-			$self->{$tag}->configure(-relief => 'flat');
+                        $self->create_tag($cur_tag);
+                        $self->insert('insert', '%%%ignore%%%', [$cur_tag, 'elide']);
+                        $self->tagAdd($cur_tag, 'insert');
+                        $self->{$tag}->configure(-relief => 'sunken');
                 }
         }
         else
@@ -94,13 +91,11 @@ sub toggleTag
                 my ($selstart, $selend) = $self->{text}->tagRanges('sel');
                 my @tags = $self->{text}->tagRanges($tag);
                 my (@starts, @ends);
-
                 for(my $i = 0; $i < @tags; $i += 2)
                 {
                         push @starts, $tags[$i];
                         push @ends, $tags[$i + 1];
                 }
-
                 for my $start (@starts)
                 {
                         for my $end (@ends)
@@ -108,77 +103,79 @@ sub toggleTag
                                 if($selstart >= $start and $selend <= $end)
                                 {
                                         $self->{text}->tagRemove($tag, $self->{text}->tagRanges('sel'));
-				$self->{$tag}->configure(-relief => 'raised');
+                                        $self->{$tag}->configure(-relief => 'flat');
                                         return;
                                 }
                         }
                 }
-
                 $self->{text}->tagAdd($tag, $self->{text}->tagRanges('sel'));
                 $self->{$tag}->configure(-relief => 'sunken');
         }
 }
-
+sub create_tag
+{
+        my ($self, $tag) = @_;
+        return if $self->{created_tags}->{$tag};
+        my (%tagparams, %fontparams);
+        if($tag =~ /<u>/)
+        {
+                $fontparams{-underline} = 1;
+        }
+        if($tag =~ /<b>/)
+        {
+                $fontparams{-weight} = 'bold';
+        }
+        if($tag =~ /<i>/)
+        {
+                $fontparams{-slant} = 'italic';
+        }
+        $self->tagConfigure($tag, %tagparams, -font => $self->Font(%fontparams));
+}
 sub to_html
 {
         my ($self, $start, $end) = @_;
-
         $start ||= '0.0';
         $end ||= 'end';
-
         my @tags = $self->{text}->tagNames;
-
         my $res;
-
         my $pos = '1.0';
         my $chars;
         my %curtags;
         my %chartags;
         my (@addtags, @deltags);
-
         while($self->{text}->index($pos) != $self->{text}->index('end'))
         {
                 %chartags = ();
                 $chartags{$_} = 1 for $self->{text}->tagNames($pos);
                 delete $chartags{'elide'};
                 delete $chartags{'sel'};
-
-
                 for (keys %chartags)
                 {
                         push @addtags, $_ unless $curtags{$_}
                 }
-		
                 for (keys %curtags)
                 {
                         push @deltags, $_ if !$chartags{$_};
                 }
-		
                 %curtags = ();
                 $curtags{$_} = 1 for keys %chartags;
-
                 $res .= $_ for @addtags;
                 $res .= end_tag($_) for @deltags;
-
                 @deltags = @addtags = ();
-
                 $res .= $self->{text}->get($pos);
                 $pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
         }
-
+        $res =~ s/\%*ignore\%*//g;
         return $res;
 }
-
 sub end_tag
 {
         my ($tag) = @_;
         $tag =~ s/^</<\//;
         return $tag;
 }
-
 sub init
 {
         my ($self) = @_;
 }
-
 1;

plugins/Tk-GUI/Tk/Browser.pm

@@ -123,8 +123,8 @@ sub a_begin
 
 	$self->tagBind($tag, '<ButtonPress-1>', [sub {
 		my $cmd;
-		$cmd = option("Browser") or "\"c:\\program files\\internet explorer\\iexplore.exe\"" if $^O =~ m/Win32/;
+		$cmd = defined(option("Browser")) ? option("Browser") :  "\"c:\\program files\\internet explorer\\iexplore.exe\"" if $^O =~ m/Win32/;
-		$cmd = option("Browser") or "opera" if $^O !~ m/Win32/;
+		$cmd = defined(option("Browser")) ? option("Browser") : "opera" if $^O !~ m/Win32/;
 		if($^O !~ m/Win32/)
 		{
 			exec("$cmd $_[1]") unless fork;

plugins/XAMP.pl

@@ -50,7 +50,7 @@ my $rem = Xmms::Remote->new;
 sub get_text
 {
     my $text = $rem->get_playlist_title($rem->get_playlist_pos);
-    $commit = 1 if $text ne $last_text;
+    $commit = 1 if defined($text) && $text ne $last_text;
     return $text;
 }
 1;
@@ -77,6 +77,7 @@ sub get_artist
 sub update
 {
     my ($text) = get_text();
+    return unless defined($text);
     return if $text eq $last_text;
     $last_text = $text;