archive
/
milkbone
1
0
Fork 0
Code Pull Requests Projects Releases Activity
Browse Source

""

master
milkbone57 22 years ago
parent
2131dcce09
commit
a4c8434ff6
6 changed files with 113 additions and 94 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 7
      docs/VERSION.txt
  2. 2
      plugins/Tk-File/Tk-File.pl
  3. 10
      plugins/Tk-GUI/Tk/BrowseEdit.pm
  4. 14
      plugins/Tk-GUI/Tk/Browser.pm
  5. 2
      plugins/Tk-Profile/Milkbone/Profile.pm

7
docs/VERSION.txt
Unescape View File

@ -1,9 +1,12 @@ @@ -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
--

2
plugins/Tk-File/Tk-File.pl
Unescape View File

@ -50,7 +50,7 @@ sub get_all{ @@ -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")
{

10
plugins/Tk-GUI/Tk/BrowseEdit.pm
Unescape View File

@ -101,11 +101,11 @@ sub toggleTag @@ -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 @@ -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;
}
sub to_html
{
my ($self, $start, $end) = @_;

14
plugins/Tk-GUI/Tk/Browser.pm
Unescape View File

@ -15,11 +15,20 @@ Construct Tk::Widget 'Browser'; @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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;
}

2
plugins/Tk-Profile/Milkbone/Profile.pm
Unescape View File

@ -118,7 +118,7 @@ sub init @@ -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]);

Write Preview
Loading…
Cancel
Save