#!/usr/bin/perl -w

use strict;
use Tk;
use Tk::ROText;

my $mw;     # Main Window
my $fview;  # Text box (Read only)

# Functions
sub hover($$);
sub dclick($);

# Create Main Window and textbox
$mw = new MainWindow;
$fview = $mw->Scrolled( 'ROText',
                        -scrollbars => "oe",
                        -cursor => "hand2"
);
$fview->pack;

# Print "Root" Folder
$fview->insert('end', "\n");
$fview->insert('end', "Root" , "Root");
$fview->insert("Root.last", "\n", "Root_newline");

# Hover over
$fview->tagBind("Root", "<Enter>" =>
                sub { hover("Root", 1); });
# Hover out
$fview->tagBind("Root", "<Leave>" =>
                sub { hover("Root", 0); });
# Double click
$fview->tagBind("Root", "<Double-Button-1>" =>
                sub { dclick("Root"); });


# Wait For Christmas!
MainLoop;


# make folder hot!
sub hover($$)
{
    my $tag = shift;
    my $do = shift;

    if ($do == 1) {
        $fview->tagConfigure($tag,
                -foreground => "red"
        );
    }
    elsif ($do == 0) {
        $fview->tagConfigure($tag,
                -foreground => "black"
        );
    }
}

# expand folder
sub dclick($)
{
    my $tag = shift;
    my @folders;
    my $fullpath;

    @folders = ( "Linux", "Mail", "Perl" );
    foreach my $folder (@folders) {
        $fullpath = "/$folder";

        # Hover over
        $fview->tagBind($fullpath, "<Enter>" =>
                sub { hover($fullpath, 1); });
        # Hover out
        $fview->tagBind($fullpath, "<Leave>" =>
                sub { hover($fullpath, 0); });

        # Diplay the folder link
        $fview->insert( 'Root_newline.last',
                        $folder, $fullpath
        );
        $fview->insert( $fullpath.".last",
                        "\n",
                        $fullpath."_newline"
        );
    }
}