From d39c2c81d94cdb854bec3b0892ff94d68f3cb4ca Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@webgui-svn>
Date: Mon, 8 May 2006 12:17:12 +0000
Subject: [PATCH] Transforming the usual martin babble into a more
 human-comprehensible form

---
 lib/WebGUI/Operation/Graphics.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Operation/Graphics.pm b/lib/WebGUI/Operation/Graphics.pm
index 48d1ab5b6..90c060fc3 100644
--- a/lib/WebGUI/Operation/Graphics.pm
+++ b/lib/WebGUI/Operation/Graphics.pm
@@ -31,7 +31,7 @@ sub _submenu {
 #### hoverhelp
 #-------------------------------------------------------------------
 sub _getColorForm {
-	my ($f, $color, %hoppa);
+	my ($f, $color, %transparencies);
 	my $session = shift;
 	my $colorId = shift;
 
@@ -40,12 +40,12 @@ sub _getColorForm {
 	$color = WebGUI::Image::Color->new($session, $colorId);
 
 	# Create transparencies in 5% increments
-	tie %hoppa, 'Tie::IxHash';
-	$hoppa{'00'} = 'Opaque';
+	tie %transparencies, 'Tie::IxHash';
+	$transparencies{'00'} = 'Opaque';
 	for (1 .. 19) {
-		$hoppa{unpack('H*', pack('C', $_*255/20))} = 5*$_.'% Transparent';
+		$transparencies{unpack('H*', pack('C', $_*255/20))} = 5*$_.'% Transparent';
 	}
-	$hoppa{'ff'} = 'Invisible';
+	$transparencies{'ff'} = 'Invisible';
 
 	my $f = WebGUI::HTMLForm->new($session);
 	$f->text(
@@ -63,7 +63,7 @@ sub _getColorForm {
 	$f->selectSlider(
 		-name	=> 'fillAlpha',
 		-value	=> [ $color->getFillAlpha ],
-		-options=> \%hoppa, 
+		-options=> \%transparencies, 
 		-label	=> $i18n->get('fill alpha'),
 		-maxlength => 2,
 		-editable=>0,
@@ -79,7 +79,7 @@ sub _getColorForm {
 	$f->selectSlider(
 		-name	=> 'strokeAlpha',
 		-value	=> [ $color->getStrokeAlpha ],
-		-options=> \%hoppa,
+		-options=> \%transparencies,
 		-label	=> $i18n->get('stroke alpha'),
 		-maxlength => 2,
 		-editable => 0,