Log Message:
-----------
Have popup handle a context passed to its new() method, lik all other MathObjects
Modified Files:
--------------
pg/macros:
parserPopUp.pl
Revision Data
-------------
Index: parserPopUp.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/parserPopUp.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -Lmacros/parserPopUp.pl -Lmacros/parserPopUp.pl -u -r1.8 -r1.9
--- macros/parserPopUp.pl
+++ macros/parserPopUp.pl
@@ -76,6 +76,7 @@
#
sub new {
my $self = shift; my $class = ref($self) || $self;
+ shift if Value::isContext($_[0]); # remove context, if given (it is not used)
my $choices = shift; my $value = shift;
Value::Error("A PopUp's first argument should be a list of menu items")
unless ref($choices) eq 'ARRAY';
|
