テキストウィジェットは、複数行テキスト領域を管理します。 キャンバスウィジェットのように、Tk のテキストウィジェットは非常に柔軟で強力なツールであり、多種多様なタスクに使用できます。 テキストウィジェットの使用例には、フォームの一部としてシンプルな複数行テキストエリアを提供すること、スタイル付きコードエディタ、アウトライナー、Webブラウザなどが含まれています。 テキストウィジェットは古典的なTkウィジェットの一部であり、テーマのTkウィジェットではありません。



　perl Tkx : テキストウィジェットは、new_tk__text メソッド a.k.a. Tkx::tk__text を使用して作成されます。

$text = $parent->new_tk__text(-width => 40, -height => 10); 

text = Text(parent, width=40, height=10) 

Top

Top

Top

Top

$text->tag_bind("important", "<1>", sub{popupImportantMenu}); 

text.tag_bind('important', '<1>', popupImportantMenu) 

Top

Top

Top

Tkx::image_create_photo( "flowers", -file => "flowers.gif");
$text->image_create("sel.first", -image => "flowers"); 

flowers = PhotoImage(file='flowers.gif')
text.image_create('sel.first', image=flowers) 

$b = $text->new_ttk__button(-text => "Push Me");
$text->window_create("1.0", -window => $b); 

b = ttk.Button(text, text='Push Me')
text.window_create('1.0', window=b) 

Top

Top

use Tkx;
$mw = Tkx::widget->new(".");

$log = $mw->new_tk__text(-state => "disabled", -width => 80,
                                -height => 24, -wrap => "none");
$log->g_grid;

writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );
writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );

sub writeToLog {
    my ($msg) = @_;
    $numlines = $log->index("end - 1 line");
    print $numlines . "\n";
    $log->configure(-state => "normal");
    if ($numlines==24) {$log->delete("1.0", "2.0");}
    if ($log->index("end-1c")!="1.0") {$log->insert_end("\n");}
    $log->insert_end($msg);
    $log->configure(-state => "disabled");
}

Tkx::MainLoop(); 

　

Top

from tkinter import *
from tkinter import ttk

root = Tk()
log = Text(root, state='disabled', width=80, height=24, wrap='none')
log.grid()

def writeToLog(msg):
    numlines = log.index('end - 1 line').split('.')[0]
    log['state'] = 'normal'
    if numlines==24:
        log.delete(1.0, 2.0)
    if log.index('end-1c')!='1.0':
        log.insert('end', '\n')
    log.insert('end', msg)
    log['state'] = 'disabled'

writeToLog("Kamifuji\nHiroshi")

root.mainloop() 

　

Top

use Tkx;
$mw = Tkx::widget->new(".");

$log = $mw->new_tk__text(-state => "disabled", -width => 80, -height => 24, -wrap => "none");
$log->g_grid;

writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );
writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );

sub writeToLog {
    my ($msg) = @_;
    $numlines = $log->index("end - 1 line");
    print $numlines . "\n";
    $log->configure(-state => "normal");
    if ($numlines==24) {$log->delete("1.0", "2.0");}
    if ($log->index("end-1c")!="1.0") {$log->insert_end("\n");}
    $log->tag_configure("highlightline", -background => "yellow",
               -font => "helvetica 14 bold", -relief => "raised");
    $log->insert_end("--> new material to insert\n",
                                        "highlightline recent warning");
    $log->insert_end($msg);
    $log->configure(-state => "disabled");
}

Tkx::MainLoop(); 

　

Top

from tkinter import *
from tkinter import ttk

def writeToLog(msg):
    numlines = log.index('end - 1 line').split('.')[0]
    log['state'] = 'normal'
    if numlines==24:
        log.delete(1.0, 2.0)
    if log.index('end-1c')!='1.0':
        log.insert('end', '\n')
    # log.insert('end', msg, ('highlightline', 'recent', 'warning'))
    log.tag_configure('highlightline', background='yellow', font='helvetica 14 bold', relief='raised')
    log.insert('end', '--> new material to insert\n', ('highlightline', 'recent', 'warning'))
    log.insert('end', msg)
    log['state'] = 'disabled'

root = Tk()
log = Text(root, state='disabled', width=80, height=24, wrap='none')
writeToLog("Kamifuji\nHiroshi\n")
writeToLog("Kamifuji\nHiroshi\n")
writeToLog("Kamifuji\nHiroshi\n")

# log.insert('end', 'new material to insert', ('highlightline', 'recent', 'warning'))
# log.tag_add('highlightline', '5.0', '6.0')
log.grid()

root.mainloop() 

　

Top

use Tkx;
$mw = Tkx::widget->new(".");

$log = $mw->new_tk__text(-state => "disabled",
             -width => 80, -height => 24, -wrap => "none");
$log->g_grid;

writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );
writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );

sub writeToLog {
    my ($msg) = @_;
    $numlines = $log->index("end - 1 line");
    print $numlines . "\n";
    $log->configure(-state => "normal");
    if ($numlines==24) {$log->delete("1.0", "2.0");}
    if ($log->index("end-1c")!="1.0") {$log->insert_end("\n");}
    # $log->tag_configure("highlightline", -background => "yellow",
                 -font => "helvetica 14 bold", -relief => "raised");
    # $log->insert_end("--> new material to insert\n",
                                          "highlightline recent warning");
    $log->insert_end("first text\n", "important");
    $log->tag_configure("important", -foreground => "red");
    $log->insert_end("second text\n", "important");

    $log->insert_end($msg);
    $log->configure(-state => "disabled");
}

Tkx::MainLoop(); 

　

Top

from tkinter import *
from tkinter import ttk

def writeToLog(msg):
    numlines = log.index('end - 1 line').split('.')[0]
    log['state'] = 'normal'
    if numlines==24:
        log.delete(1.0, 2.0)
    if log.index('end-1c')!='1.0':
        log.insert('end', '\n')
    # log.insert('end', msg, ('highlightline', 'recent', 'warning'))
    # log.tag_configure('highlightline', background='yellow',
    #                       font='helvetica 14 bold', relief='raised')
    # log.insert('end', '--> new material to insert\n',
    #                          ('highlightline', 'recent', 'warning'))
    log.insert('end', 'first text\n', ('important'))
    log.tag_configure('important', foreground='red')
    log.insert('end', 'second text\n', ('important'))
    log.insert('end', msg)
    log['state'] = 'disabled'

root = Tk()
log = Text(root, state='disabled', width=80, height=24, wrap='none')
writeToLog("Kamifuji\nHiroshi\n")
writeToLog("Kamifuji\nHiroshi\n")
writeToLog("Kamifuji\nHiroshi\n")

# log.insert('end', 'new material to insert', ('highlightline', 'recent', 'warning'))
# log.tag_add('highlightline', '5.0', '6.0')
log.grid()

root.mainloop() 

　

Top

use Tkx;
$mw = Tkx::widget->new(".");

my $menu = $mw->new_menu();
foreach ("One", "Two", "Three") {$menu->add_command(-label => $_);}
if (Tkx::tk_windowingsystem() eq "aqua") {
    $mw->g_bind("<2>", [sub {my($x,$y) = @_;
                    $menu->g_tk___popup($x,$y)}, Tkx::Ev("%X", "%Y")] );
    $mw->g_bind("<Control-1>", [sub {my($x,$y) = @_;
                     $menu->g_tk___popup($x,$y)}, Tkx::Ev("%X", "%Y")]);
} else {
    $mw->g_bind("<3>", [sub {my($x,$y) = @_;
                      $menu->g_tk___popup($x,$y)}, Tkx::Ev("%X", "%Y")]);
}

$log = $mw->new_tk__text(-state => "disabled", -width => 80,
                                      -height => 24, -wrap => "none");
$log->g_grid;

$b = $log->new_ttk__button(-text => "Push Me");
$be = $log->new_ttk__button(-text => "Push Me end");

$log->window_create("1.0", -window => $b);

writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );
writeToLog( "Hiroshi\nKamifuji\nHitachinaka\n" );

$log->window_create("end", -window => $be);

sub writeToLog {
    my ($msg) = @_;
    $numlines = $log->index("end - 1 line");
    print $numlines . "\n";
    $log->configure(-state => "normal");
    if ($numlines==24) {$log->delete("1.0", "2.0");}
    if ($log->index("end-1c")!="1.0") {$log->insert_end("\n");}
    $log->tag_configure("highlightline", -background => "yellow",
                -font => "helvetica 14 bold", -relief => "raised");
    $log->insert_end("--> new material to insert\n",
                                         "highlightline recent warning");
    # $log->insert_end("first text\n", "important");
    # $log->tag_configure("important", -foreground => "red");
    # $log->insert_end("second text\n", "important");

    $log->insert_end($msg);
    $log->configure(-state => "disabled");
}

Tkx::MainLoop(); 

　

Top

from tkinter import *
from tkinter import ttk

def writeToLog(msg):
    numlines = log.index('end - 1 line').split('.')[0]
    log['state'] = 'normal'
    if numlines==24:
        log.delete(1.0, 2.0)
    if log.index('end-1c')!='1.0':
        log.insert('end', '\n')
    # log.insert('end', msg, ('highlightline', 'recent', 'warning'))
    log.tag_configure('highlightline', background='yellow',
                            font='helvetica 14 bold', relief='raised')
    log.insert('end', '--> new material to insert\n',
                               ('highlightline', 'recent', 'warning'))
    # log.insert('end', 'first text\n', ('important'))
    # log.tag_configure('important', foreground='red')
    # log.insert('end', 'second text\n', ('important'))
    # log.tag_bind('important', '<1>', popupImportantMenu)
    # log.tag_bind('important', '<1>', menu)
    log.insert('end', msg)
    log['state'] = 'disabled'

root = Tk()

menu = Menu(root)
for i in ('One', 'Two', 'Three'):
    menu.add_command(label=i)
if (root.tk.call('tk', 'windowingsystem')=='aqua'):
    root.bind('<2>', lambda e: menu.post(e.x_root, e.y_root))
    root.bind('<Control-1>', lambda e: menu.post(e.x_root, e.y_root))
else:
    root.bind('<3>', lambda e: menu.post(e.x_root, e.y_root))

log = Text(root, state='disabled', width=80, height=24, wrap='none')

b = ttk.Button(log, text='Push Me')
be = ttk.Button(log, text='Push Me end')
log.window_create('1.0', window=b)

writeToLog("Kamifuji\nHiroshi\n")
writeToLog("Kamifuji\nHiroshi\n")
writeToLog("Kamifuji\nHiroshi\n")

log.window_create('end', window=be)

# log.insert('end', 'new material to insert', ('highlightline', 'recent', 'warning'))
# log.tag_add('highlightline', '5.0', '6.0')
log.grid()

root.mainloop() 

　

Top

• 2023/03/11 Ver=1.03 Python 3.11.2 で確認
• 2020/10/27 Ver=1.01 Python 3.9.0 で確認
• 2018/11/08 Ver=1.01 初版リリース

Top