- Timestamp:
- 10/30/08 20:16:26 (2 months ago)
- Files:
-
- 1 modified
-
src/perl6/STD_syntax_highlight (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/perl6/STD_syntax_highlight
r22830 r22834 111 111 =cut 112 112 sub write_html_file { 113 my ($html_file, $html) = @ _;113 my ($html_file, $html) = @ARG; 114 114 if($html_file eq '-') { 115 115 say $html; … … 194 194 <body> 195 195 <div id="parse_tree"> 196 <button id="parse_tree_expand"> 197 Show Syntax Tree 198 </button> 199 <button id="parse_tree_collapse"> 200 Hide it 201 </button> 202 <button id="parse_tree_help"> 203 Help 204 </button> 196 <button id="parse_tree_expand">Show Syntax Tree</button> 197 <button id="parse_tree_collapse">Hide it</button> 198 <button id="parse_tree_help">Help</button> 205 199 <div id="parse_tree_output"></div> 206 200 </div> 207 208 201 <pre> 209 202 HTML
