$deprecated help markup
							parent
							
								
									cb54ca6402
								
							
						
					
					
						commit
						c6b9a45881
					
				| 
						 | 
					@ -137,6 +137,14 @@ ALIAS: $slot $snippet
 | 
				
			||||||
        ] with-nesting
 | 
					        ] with-nesting
 | 
				
			||||||
    ] ($heading) ;
 | 
					    ] ($heading) ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					: $deprecated ( element -- )
 | 
				
			||||||
 | 
					    [
 | 
				
			||||||
 | 
					        deprecated-style get [
 | 
				
			||||||
 | 
					            last-element off
 | 
				
			||||||
 | 
					            "This word is deprecated" $heading print-element
 | 
				
			||||||
 | 
					        ] with-nesting
 | 
				
			||||||
 | 
					    ] ($heading) ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
! Images
 | 
					! Images
 | 
				
			||||||
: $image ( element -- )
 | 
					: $image ( element -- )
 | 
				
			||||||
    [ first write-image ] ($span) ;
 | 
					    [ first write-image ] ($span) ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -85,6 +85,14 @@ H{
 | 
				
			||||||
    { wrap-margin 500 }
 | 
					    { wrap-margin 500 }
 | 
				
			||||||
} warning-style set-global
 | 
					} warning-style set-global
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					SYMBOL: deprecated-style
 | 
				
			||||||
 | 
					H{
 | 
				
			||||||
 | 
					    { page-color COLOR: gray90 }
 | 
				
			||||||
 | 
					    { border-color COLOR: red }
 | 
				
			||||||
 | 
					    { border-width 5 }
 | 
				
			||||||
 | 
					    { wrap-margin 500 }
 | 
				
			||||||
 | 
					} deprecated-style set-global
 | 
				
			||||||
 | 
					
 | 
				
			||||||
SYMBOL: table-content-style
 | 
					SYMBOL: table-content-style
 | 
				
			||||||
H{
 | 
					H{
 | 
				
			||||||
    { wrap-margin 350 }
 | 
					    { wrap-margin 350 }
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue