diff options
| author | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2014-08-06 11:05:54 (GMT) |
|---|---|---|
| committer | petasisg@gmail.com <petasisg@gmail.com@f3661a36-4baa-549a-d6c7-40e0ffef350e> | 2014-08-06 11:05:54 (GMT) |
| commit | 7bc6b98d747850b0a6e094e3fa3cb132003215ac (patch) | |
| tree | e8ad482067ef48ea2f32beb1eb0d4f67bb13ad9c /demos | |
| parent | 9dfeac405ca61c25ea88efba2be219a4acea295d (diff) | |
| download | tkdnd-7bc6b98d747850b0a6e094e3fa3cb132003215ac.zip tkdnd-7bc6b98d747850b0a6e094e3fa3cb132003215ac.tar.gz tkdnd-7bc6b98d747850b0a6e094e3fa3cb132003215ac.tar.bz2 | |
Multiple data types on drag sources
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/basic.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/demos/basic.tcl b/demos/basic.tcl index 6b852c4..ce1c2c9 100644 --- a/demos/basic.tcl +++ b/demos/basic.tcl @@ -55,9 +55,10 @@ tkdnd::drop_target register .drop_target * # virtual events: <<DropEnter>> <<DropPosition>> <<DropLeave>>
# The fields that can be used in the event callbacks, are given in "cmd",
# while their "label" is given in "itemList"...
-set cmd {handle_event %e %W %X %Y %ST %TT %a %A %CST %CTT %t %T %b %D}
+set cmd {handle_event %e %W %X %Y %ST %TT %a %A %CST %CTT %t %T %CPT %b %D}
set itemList {Event Widget X Y Source_Types Target_Types Source_Actions Action
- Common_Source_Types Common_Target_Types Types Drop_Type
+ Common_Source_Types Common_Target_Types Types
+ Drop_Type Cross_Platform_Drop_Type
Pressed_Keys Data}
# Add the various events...
bind .drop_target <<DropEnter>> $cmd
@@ -77,7 +78,7 @@ bind .drop_target <<Drop:DND_Color>> $cmd # Create some widgets for showing event info.
foreach item $itemList {
grid [label .[string tolower $item] -text [string map {_ \ } $item]:\
- -anchor w] [label .[string tolower $item]_val -width 30 -anchor w \
+ -anchor w] [label .[string tolower $item]_val -width 60 -anchor w \
-background white -foreground navy] -sticky snew -padx 1 -pady 1
}
grid columnconfigure . 1 -weight 1
|