%perl> # Show the story summary if needed. if ($show_summary) { my $type = $tile->get_object_type; # Nab the story from the story_prof widget my $asset = get_state_data($type.'_prof', $type); $m->comp('/widgets/summary/summary.mc', asset => $asset, number => ++$i); } %perl> <& '/widgets/wrappers/sharky/table_top.mc', caption => "$field Field Text", number => ++$i, &> <& '/widgets/profile/textarea.mc', 'name' => $widget.'|text', 'rows' => $rows, 'cols' => $cols, 'value' => $text &>
![]() |
<& '/widgets/profile/text.mc', 'name' => $widget.'|cols', 'value' => "$cols", 'size' => 3, 'useTable' => 0 &> | Columns | <& '/widgets/profile/text.mc', 'name' => $widget.'|rows', 'value' => "$rows", 'size' => 3, 'useTable' => 0 &> | Rows |
![]() |
<& '/widgets/profile/radio.mc', 'name' => $widget.'|separator', 'value' => "\n", 'checked' => $sep eq "\n" &> One blank line |
<& '/widgets/profile/radio.mc', 'name' => $widget.'|separator',
'value' => ' ', 'checked' => $sep eq ' ' &> <p> |
<& '/widgets/profile/radio.mc', 'name' => $widget.'|separator',
'value' => ' ', 'checked' => $sep eq ' ' &> <br> |
<& '/widgets/profile/radio.mc', 'name' => $widget.'|separator', 'value' => 'custom', 'checked' => $use_custom_sep &> |
![]() |
Words |
Characters |
', 'words', 'chars')">![]() |