Searched refs:create (Results 1 - 25 of 30) sorted by relevance

12

/ast/src/lib/libtk/library/demos/
H A Dfloor.tcl41 $w create rect 0 100 1 101 -fill {} -outline {} -tags marker
59 $w create window 600 100 -anchor w -window $w.entry
60 $w create text 600 100 -anchor e -text "Room: "
97 "$w create polygon [$w coords $item] -fill $colors(active) \
113 $w create poly 347 80 349 82 351 84 353 85 363 92 375 99 386 104 \
127 $w create line 386 129 398 129 -fill $outline -tags {floor1 bg}
128 $w create line 258 355 258 387 -fill $outline -tags {floor1 bg}
129 $w create line 60 387 60 391 -fill $outline -tags {floor1 bg}
130 $w create line 0 337 0 391 -fill $outline -tags {floor1 bg}
131 $w create lin
[all...]
H A Ditems.tcl46 $c create rect 0c 0c 30c 24c -width 2
47 $c create line 0c 8c 30c 8c -width 2
48 $c create line 0c 16c 30c 16c -width 2
49 $c create line 10c 0c 10c 24c -width 2
50 $c create line 20c 0c 20c 24c -width 2
68 $c create text 5c .2c -text Lines -anchor n
69 $c create line 1c 1c 3c 1c 1c 4c 3c 4c -width 2m -fill $blue \
71 $c create line 4.67c 1c 4.67c 4c -arrow last -tags item
72 $c create line 6.33c 1c 6.33c 4c -arrow both -tags item
73 $c create lin
[all...]
H A Dplot.tcl30 $c create line 100 250 400 250 -width 2
31 $c create line 100 250 100 50 -width 2
32 $c create text 225 20 -text "A Simple Plot" -font $plotFont -fill brown
36 $c create line $x 250 $x 245 -width 2
37 $c create text $x 254 -text [expr 10*$i] -anchor n -font $plotFont
41 $c create line 100 $y 105 $y -width 2
42 $c create text 96 $y -text [expr $i*50].0 -anchor e -font $plotFont
49 set item [$c create oval [expr $x-6] [expr $y-6] \
H A Dtwind.tcl47 $t window create end -window $t.on
51 $t window create end -window $t.off
55 $t window create end -window $t.click
61 $t window create end -window $t.delete
79 $t window create end -window $t.default -padx 3
85 $t window create end -window $t.toggle -padx 3 -pady 2
93 $t window create end -window $t.color$i -padx 3 -pady 2
121 $c create line 100 250 400 250 -width 2
122 $c create line 100 250 100 50 -width 2
123 $c create tex
[all...]
H A Darrow.tcl32 eval "$c create line $v(x1) $v(y) $v(x2) $v(y) -width [expr 10*$v(width)] \
37 $c create line $v(x2) $v(y) $xtip [expr $v(y)+$deltaY] \
43 eval "$c create rect [expr $v(x2)-10*$v(a)-5] [expr $v(y)-5] \
46 eval "$c create rect [expr $xtip-5] [expr $v(y)-$deltaY-5] \
49 eval "$c create rect [expr $v(x1)-5] [expr $v(y)-5*$v(width)-5] \
58 $c create line [expr $v(x2)+50] 0 [expr $v(x2)+50] 1000 \
61 $c create line $tmp [expr $v(y)-125] $tmp [expr $v(y)-75] \
64 $c create line [expr $tmp-25] $v(y) [expr $tmp+25] $v(y) \
67 $c create line [expr $tmp-25] [expr $v(y)+75] [expr $tmp+25] \
75 $c create lin
[all...]
H A Dimage1.tcl24 image create photo image1a -file [file join $tk_library demos images earth.gif]
28 image create photo image1b \
H A Druler.tcl14 # x, y - Coordinates at which to create the tab stop.
18 $c create polygon $x $y [expr $x+$v(size)] [expr $y+$v(size)] \
31 label $w.msg -font $font -wraplength 5i -justify left -text "This canvas widget shows a mock-up of a ruler. You can create tab stops by dragging them out of the well to the right of the ruler. You can also drag existing tab stops. If you drag a tab stop far enough up or down so that it turns dim, it will be deleted when you release the mouse button."
60 $c create line 1c 0.5c 1c 1c 13c 1c 13c 0.5c -width 1
63 $c create line ${x}c 1c ${x}c 0.6c -width 1
64 $c create line $x.25c 1c $x.25c 0.8c -width 1
65 $c create line $x.5c 1c $x.5c 0.7c -width 1
66 $c create line $x.75c 1c $x.75c 0.8c -width 1
67 $c create text $x.15c .75c -text $i -anchor sw
69 $c addtag well withtag [$c create rec
[all...]
H A Dicon.tcl24 image create bitmap flagup \
27 image create bitmap flagdown \
H A Ddialog1.tcl8 set i [tk_dialog .dialog1 "Dialog with local grab" {This is a modal dialog box. It uses Tk's "grab" command to create a "local grab" on the dialog box. The grab prevents any pointer-related events from getting to any other windows in the application until you have answered the dialog by invoking one of the buttons below. However, you can still interact with other applications.} \
H A Dctext.tcl37 $c create rectangle 245 195 255 205 -outline black -fill red
39 # First, create the text item and give it bindings so it can be edited.
41 $c addtag text withtag [$c create text 250 200 -text "This is just a string of text to demonstrate the text facilities of canvas widgets. Bindings have been been defined to support editing (see above)." -width 440 -anchor n -font -*-Helvetica-Medium-R-Normal--*-240-*-*-*-*-*-* -justify left]
53 # Next, create some items that allow the text's anchor position
57 set item [$w create rect [expr $x] [expr $y] [expr $x+30] [expr $y+30] \
75 set item [$c create rect [expr $x+40] [expr $y+40] [expr $x+50] [expr $y+50] \
78 $c create text [expr $x+45] [expr $y-5] -text {Text Position} -anchor s \
81 # Lastly, create some items that allow the text's justification to be
90 $c create text [expr $x+45] [expr $y-5] -text {Justification} -anchor s \
H A Dhscale.tcl27 $w.frame.canvas create polygon 0 0 1 1 2 2 -fill DeepSkyBlue3 -tags poly
28 $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line
H A Dvscale.tcl29 $w.frame.canvas create polygon 0 0 1 1 2 2 -fill SeaGreen3 -tags poly
30 $w.frame.canvas create line 0 0 1 1 2 2 0 0 -fill black -tags line
H A Dcscroll.tcl47 $c create rect ${x}c ${y}c [expr $x+2]c [expr $y+2]c \
49 $c create text [expr $x+1]c [expr $y+1]c -text "$i,$j" \
H A Dimage2.tcl72 image create photo image2a
/ast/src/cmd/3d/
H A Dpathnext.c118 * if create is non-zero, use name before the first slash as instance
123 instance(register char* sp, char* instname, struct stat* st, int create) argument
139 if (!create) cp -= 4;
160 if (map && (!create || *map->val != '/'))
163 if (!create)
175 if (create)
/ast/src/cmd/std/
H A Dtouch.c61 "[c!:create?Create the \afile\a if it does not exist, but write no "
110 int create = 1; local
140 create = 0;
289 if (tvtouch(file, ap, mp, cp, create))
/ast/src/lib/libtk/library/
H A Dclrpick.tcl363 proc tkColorDialog_DrawColorScale {w c {create 0}} {
373 if $create {
398 set data($c,clickRegion) [$sel create rectangle 0 0 \
442 if $create {
443 set index [$col create rect $startx $highlightW \
454 if $create {
469 set data($c,index) [$sel create polygon \
H A Dtkfbox.tcl178 set iTag [$data(canvas) create image 0 0 -image $image -anchor nw]
179 set tTag [$data(canvas) create text 0 0 -text $text -anchor nw]
180 set rTag [$data(canvas) create rect 0 0 0 0 -fill "" -outline ""]
377 set data(rect) [$data(canvas) create rect 0 0 0 0 \
632 # (re)create the dialog box if necessary
918 [image create photo -file [tkFDialog_GetImgFile $w folder.gif]]
920 [image create photo -file [tkFDialog_GetImgFile $w textfile.gif]]
/ast/src/lib/libast/hash/
H A Dhashlook.c247 goto create;
258 * create a new bucket
261 create:
/ast/src/lib/libast/misc/
H A Dstk.c98 int create; member in struct:__anon294
211 * create a stack
223 increment(create);
/ast/src/lib/libtk/generic/
H A DtkTextWind.c115 {TK_CONFIG_STRING, "-create", (char *) NULL, (char *) NULL,
116 (char *) NULL, Tk_Offset(TkTextEmbWindow, create),
221 } else if ((strncmp(argv[2], "create", length) == 0) && (length >= 2)) {
232 argv[0], " window create index ?option value ...?\"",
260 ewPtr->body.ew.create = NULL;
297 "\": must be cget, configure, create, or names",
389 * Take over geometry management for the window, plus create
769 if ((ewPtr->body.ew.tkwin == NULL) && (ewPtr->body.ew.create != NULL)) {
783 code = Tcl_GlobalEval(textPtr->interp, ewPtr->body.ew.create);
/ast/src/cmd/ksh93/sh/
H A Dsubshell.c115 * if the /tmp file create fails
133 /* popping a discipline forces a /tmp file create */
137 /* unable to create the /tmp file so use a pipe */
380 * create new one if in a subshell and one doesn't exist and create is non-zero
382 Dt_t *sh_subaliastree(int create) argument
387 if(!sp->salias && create)
398 * create new one if in a subshell and one doesn't exist and create is non-zero
400 Dt_t *sh_subfuntree(int create) argument
[all...]
/ast/src/cmd/pax/
H A Dtar.sh37 [+NAME?tar - create tape archives, and add or extract files]
55 [c:create?Create a new archive.]
/ast/src/cmd/tw/
H A Dfind.c1211 error(ERROR_SYSTEM|2, "%s: cannot create", b);
/ast/src/lib/libtksh/lib/tksh7.6/
H A Dinit.tcl151 # library file to create the procedure. Returns 1 if it successfully
373 # dir - Name of the directory in which to create an index.
437 # dir - Name of the directory in which to create the index.
458 # To do this, create a child interpreter, load the file into the
463 set c [interp create]

Completed in 46 milliseconds

12