Bind mouse double click action to a Text control : Text « GUI « Perl

Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

VBA / Excel / Access / Word

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

Perl » GUI » Text

Bind mouse double click action to a Text control


   





use Tk;



$main = MainWindow->new();



$main->Button( -text => "Click Me!",

    -command => \&display

)->pack(-side => "left");



$text1 = $main->Text ('-width'=> 40, '-height' => 2

)->pack;



$text1->bind('<Double-1>', \&display);



sub display

{

    $text1->insert('end', "Hello!");

}



MainLoop;

Related examples in the same category

1.	Call Text insert function to add text to a Text control
2.	Insert text to a Text control (TextField)
3.	Set width and height of a Text
4.	Use the Scrolled to control the scroll of a Text Entry
5.	Change text in a Text (TextField) in radio button and checkbox button action
6.	Configure a Text Widget
7.	Create a scrolled Text widget
8.	Entry(text field): Set highlightthickness
9.	Entry(text field): set font
10.	Fill the Entry (text field): textvariable
11.	Get text input in a single line Text Box
12.	Insert bold text to a Text widget
13.	Insert text string to a Text Widget
14.	Mark text in a Scrolled Text Widget
15.	Auto-scroll entry (text field)
16.	Single-Line Text Entry

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.