File Coverage

blib/lib/Mac/Apps/PBar.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

#!perl -w
package Mac::Apps::PBar;
require 5.00201;
use vars qw($VERSION @ISA @EXPORT $be $evt);
use strict;
no strict 'refs';
use Exporter;
use Carp;
use Mac::AppleEvents;
use Mac::Apps::Launch;
@ISA = qw(Exporter);
@EXPORT = ();
$VERSION = sprintf("%d.%02d", q$Revision: 1.30 $ =~ /(\d+)\.(\d+)/);
$be = '';


sub new {
	 my $pkg = shift;
	 my $title = shift;
	 my $ppos = shift;
	 $pkg = \*$pkg;
	 bless $pkg;

	 ${*$pkg}{'windobj'} = "obj{want:type(cwin),
	 from:null(), form:indx, seld:long(1)}";

	 ${*$pkg}{'progobj'} = "obj{want:type(PBar),
	 from:${*$pkg}{'windobj'}, form:indx, seld:long(1)}";

	 $pkg->launch_pbar;

	 $evt = AEBuildAppleEvent('core', 'crel', typeApplSignature, 'PBar', 0, 0,
	 "kocl: type(cwin), prdt:{ pnam: Ò$titleÓ , ppos:[$ppos] }") or die $^E;
	 $pkg->runEvent($evt);

	 $pkg;
}

sub launch_pbar {
	LaunchApps(['PBar'],1);
}

sub data {
	my $pkg = shift;
	my $str = shift;
	my $dat = shift;
	if (!$dat && keys %$str) {
		my $s;
		foreach $s (keys %$str) {
			$pkg->_procData($s,$$str{$s});
		}
	} elsif ($str && $dat) {
		$pkg->_procData($str,$dat);
	}
}

sub _procData {
	my $pkg = shift;
	my $str = shift;
	my $dat = shift;
	my $obj = "obj{want:type(prop), from:${*$pkg}{'progobj'},
	form:prop, seld:type($str)}";
	my $evt = AEBuildAppleEvent('core', 'setd', typeApplSignature,
	'PBar', 0, 0, "'----':$obj, data:Ò$datÓ ") or die $^E;
	$pkg->runEvent($evt)
}

sub close_window {
	my $pkg = shift;
	my $evt = AEBuildAppleEvent('aevt', 'quit', typeApplSignature,
  'PBar', 0, 0, "'----':''") or die $^E;
	$pkg->runEvent($evt)
}

sub runEvent {
	 my $pkg = shift;
	 my $evt = shift;
	#print AEPrint($evt), "\n";
	 my $rep = AESend($evt, kAEWaitReply) or die $^E;
	#print AEPrint($rep), "\n\n";
	 AEDisposeDesc $evt;
	 AEDisposeDesc $rep;

}


1;

__END__