| # style.tcl -- |
| # |
| # This demonstration script creates a text widget that illustrates the |
| # various display styles that may be set for tags. |
| # |
| # RCS: @(#) $Id: style.tcl,v 1.2 1998/09/14 18:23:30 stanton Exp $ |
| |
| if {![info exists widgetDemo]} { |
| error "This script should be run from the \"widget\" demo." |
| } |
| |
| set w .style |
| catch {destroy $w} |
| toplevel $w |
| wm title $w "Text Demonstration - Display Styles" |
| wm iconname $w "style" |
| positionWindow $w |
| |
| frame $w.buttons |
| pack $w.buttons -side bottom -fill x -pady 2m |
| button $w.buttons.dismiss -text Dismiss -command "destroy $w" |
| button $w.buttons.code -text "See Code" -command "showCode $w" |
| pack $w.buttons.dismiss $w.buttons.code -side left -expand 1 |
| |
| text $w.text -yscrollcommand "$w.scroll set" -setgrid true \ |
| -width 70 -height 32 -wrap word |
| scrollbar $w.scroll -command "$w.text yview" |
| pack $w.scroll -side right -fill y |
| pack $w.text -expand yes -fill both |
| |
| # Set up display styles |
| |
| $w.text tag configure bold -font {Courier 12 bold italic} |
| $w.text tag configure big -font {Courier 14 bold} |
| $w.text tag configure verybig -font {Helvetica 24 bold} |
| if {[winfo depth $w] > 1} { |
| $w.text tag configure color1 -background #a0b7ce |
| $w.text tag configure color2 -foreground red |
| $w.text tag configure raised -relief raised -borderwidth 1 |
| $w.text tag configure sunken -relief sunken -borderwidth 1 |
| } else { |
| $w.text tag configure color1 -background black -foreground white |
| $w.text tag configure color2 -background black -foreground white |
| $w.text tag configure raised -background white -relief raised \ |
| -borderwidth 1 |
| $w.text tag configure sunken -background white -relief sunken \ |
| -borderwidth 1 |
| } |
| $w.text tag configure bgstipple -background black -borderwidth 0 \ |
| -bgstipple gray12 |
| $w.text tag configure fgstipple -fgstipple gray50 |
| $w.text tag configure underline -underline on |
| $w.text tag configure overstrike -overstrike on |
| $w.text tag configure right -justify right |
| $w.text tag configure center -justify center |
| $w.text tag configure super -offset 4p -font {Courier 10} |
| $w.text tag configure sub -offset -2p -font {Courier 10} |
| $w.text tag configure margins -lmargin1 12m -lmargin2 6m -rmargin 10m |
| $w.text tag configure spacing -spacing1 10p -spacing2 2p \ |
| -lmargin1 12m -lmargin2 6m -rmargin 10m |
| |
| $w.text insert end {Text widgets like this one allow you to display information in a |
| variety of styles. Display styles are controlled using a mechanism |
| called } |
| $w.text insert end tags bold |
| $w.text insert end {. Tags are just textual names that you can apply to one |
| or more ranges of characters within a text widget. You can configure |
| tags with various display styles. If you do this, then the tagged |
| characters will be displayed with the styles you chose. The |
| available display styles are: |
| } |
| $w.text insert end "\n1. Font." big |
| $w.text insert end " You can choose any X font, " |
| $w.text insert end large verybig |
| $w.text insert end " or " |
| $w.text insert end "small.\n" |
| $w.text insert end "\n2. Color." big |
| $w.text insert end " You can change either the " |
| $w.text insert end background color1 |
| $w.text insert end " or " |
| $w.text insert end foreground color2 |
| $w.text insert end "\ncolor, or " |
| $w.text insert end both {color1 color2} |
| $w.text insert end ".\n" |
| $w.text insert end "\n3. Stippling." big |
| $w.text insert end " You can cause either the " |
| $w.text insert end background bgstipple |
| $w.text insert end " or " |
| $w.text insert end foreground fgstipple |
| $w.text insert end { |
| information to be drawn with a stipple fill instead of a solid fill. |
| } |
| $w.text insert end "\n4. Underlining." big |
| $w.text insert end " You can " |
| $w.text insert end underline underline |
| $w.text insert end " ranges of text.\n" |
| $w.text insert end "\n5. Overstrikes." big |
| $w.text insert end " You can " |
| $w.text insert end "draw lines through" overstrike |
| $w.text insert end " ranges of text.\n" |
| $w.text insert end "\n6. 3-D effects." big |
| $w.text insert end { You can arrange for the background to be drawn |
| with a border that makes characters appear either } |
| $w.text insert end raised raised |
| $w.text insert end " or " |
| $w.text insert end sunken sunken |
| $w.text insert end ".\n" |
| $w.text insert end "\n7. Justification." big |
| $w.text insert end " You can arrange for lines to be displayed\n" |
| $w.text insert end "left-justified,\n" |
| $w.text insert end "right-justified, or\n" right |
| $w.text insert end "centered.\n" center |
| $w.text insert end "\n8. Superscripts and subscripts." big |
| $w.text insert end " You can control the vertical\n" |
| $w.text insert end "position of text to generate superscript effects like 10" |
| $w.text insert end "n" super |
| $w.text insert end " or\nsubscript effects like X" |
| $w.text insert end "i" sub |
| $w.text insert end ".\n" |
| $w.text insert end "\n9. Margins." big |
| $w.text insert end " You can control the amount of extra space left" |
| $w.text insert end " on\neach side of the text:\n" |
| $w.text insert end "This paragraph is an example of the use of " margins |
| $w.text insert end "margins. It consists of a single line of text " margins |
| $w.text insert end "that wraps around on the screen. There are two " margins |
| $w.text insert end "separate left margin values, one for the first " margins |
| $w.text insert end "display line associated with the text line, " margins |
| $w.text insert end "and one for the subsequent display lines, which " margins |
| $w.text insert end "occur because of wrapping. There is also a " margins |
| $w.text insert end "separate specification for the right margin, " margins |
| $w.text insert end "which is used to choose wrap points for lines.\n" margins |
| $w.text insert end "\n10. Spacing." big |
| $w.text insert end " You can control the spacing of lines with three\n" |
| $w.text insert end "separate parameters. \"Spacing1\" tells how much " |
| $w.text insert end "extra space to leave\nabove a line, \"spacing3\" " |
| $w.text insert end "tells how much space to leave below a line,\nand " |
| $w.text insert end "if a text line wraps, \"spacing2\" tells how much " |
| $w.text insert end "space to leave\nbetween the display lines that " |
| $w.text insert end "make up the text line.\n" |
| $w.text insert end "These indented paragraphs illustrate how spacing " spacing |
| $w.text insert end "can be used. Each paragraph is actually a " spacing |
| $w.text insert end "single line in the text widget, which is " spacing |
| $w.text insert end "word-wrapped by the widget.\n" spacing |
| $w.text insert end "Spacing1 is set to 10 points for this text, " spacing |
| $w.text insert end "which results in relatively large gaps between " spacing |
| $w.text insert end "the paragraphs. Spacing2 is set to 2 points, " spacing |
| $w.text insert end "which results in just a bit of extra space " spacing |
| $w.text insert end "within a pararaph. Spacing3 isn't used " spacing |
| $w.text insert end "in this example.\n" spacing |
| $w.text insert end "To see where the space is, select ranges of " spacing |
| $w.text insert end "text within these paragraphs. The selection " spacing |
| $w.text insert end "highlight will cover the extra space." spacing |