[WWcvs] pg: Have popup handle a context passed to its new() method, lik all other MathObjects

[dpvc v. a. <we...@ma...>]

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';