diff --git a/Macros/parserLewisStructureTool.pl b/Macros/parserLewisStructureTool.pl index bd79244..d066388 100644 --- a/Macros/parserLewisStructureTool.pl +++ b/Macros/parserLewisStructureTool.pl @@ -100,16 +100,17 @@ sub ans_rule { my $out = main::NAMED_HIDDEN_ANS_RULE( $self->ANS_NAME ); my $inputs = $self->getPG('$inputs_ref'); my $ans_name = $self->ANS_NAME; + my $answer_value = $main::envir{inputs_ref}{ $self->ANS_NAME } // ''; - #warn %$inputs; + # warn %$inputs; if ( $main::displayMode eq 'TeX' ) { return &{ $self->{printGraph} } if defined( $self->{printGraph} ) && ref( $self->{printGraph} ) eq 'CODE'; - # ADD CODE HERE TO PRODUCE A BOX FOR DRAWING ON PAPER. - # TO-DO !!!! + # PRODUCE A BOX FOR DRAWING ON PAPER. + return "\\framebox(200,200){}"; } elsif ( $main::displayMode ne 'PTX' ) { @@ -123,6 +124,7 @@ sub ans_rule { my $showFormalCharges = $self->{cmpOptions}{showFormalCharges} ? "show-formal-charges" : ""; + $out .= <