Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | "Fix toolbar demo to reflect wm manage implementation on Aqua" |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | tk-cocoa-8-5-backport |
Files: | files | file ages | folders |
SHA1: |
8e535e053e596bfec2086106fa25d179 |
User & Date: | kevin_walzer 2011-07-26 13:53:45 |
Context
2011-07-28
| ||
19:02 | Push missing headers for cursor data check-in: e7edc581 user: andreask tags: tk-cocoa-8-5-backport | |
2011-07-26
| ||
13:53 | "Fix toolbar demo to reflect wm manage implementation on Aqua" check-in: 8e535e05 user: kevin_walzer tags: tk-cocoa-8-5-backport | |
12:41 | Minor fix of wm forget implementation on Aqua check-in: 98162ffd user: kevin_walzer tags: tk-cocoa-8-5-backport | |
Changes
Changes to library/demos/toolbar.tcl.
︙ | ︙ | |||
44 45 46 47 48 49 50 | pack $t.tearoff.to2 -fill y -expand 1 -side left } ttk::frame $t.contents grid $t.tearoff $t.contents -sticky nsew grid columnconfigure $t $t.contents -weight 1 grid columnconfigure $t.contents 1000 -weight 1 | | | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | pack $t.tearoff.to2 -fill y -expand 1 -side left } ttk::frame $t.contents grid $t.tearoff $t.contents -sticky nsew grid columnconfigure $t $t.contents -weight 1 grid columnconfigure $t.contents 1000 -weight 1 if {[tk windowingsystem] ne {}} { ## Bindings so that the toolbar can be torn off and reattached bind $t.tearoff <B1-Motion> [list tearoff $t %X %Y] bind $t.tearoff.to <B1-Motion> [list tearoff $t %X %Y] bind $t.tearoff.to2 <B1-Motion> [list tearoff $t %X %Y] proc tearoff {w x y} { if {[string match $w* [winfo containing $x $y]]} { return |
︙ | ︙ |