Advertisement
hakonhagland

overrideredirect2

Dec 30th, 2020
1,332
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #! /usr/bin/env tclsh
  2.  
  3. package require Tk
  4. wm overrideredirect . true
  5. canvas  .cv -width 410 -height 200  -bg white
  6. .cv create rect 0 0 360 100 -outline #c0c0c0 -fill #ffec73 -tag theRect
  7. pack .cv
  8. bind .cv <Enter> {
  9.     .cv itemconfigure theRect -outline #e0e0e0 -fill #0000ff
  10. }
  11. bind .cv <Leave> {
  12.     .cv itemconfigure theRect -outline #c0c0c0 -fill #ffec73
  13. }
  14.  
Advertisement
RAW Paste Data Copied
Advertisement