baltip

Check-in [d821694c29]
aplsimple | Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:my::Show wrapped in *catch*
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: d821694c29164163d1605d61b0264cc31a09df9c27ebad1658469e9647ac8243
User & Date: apl 2024-07-24 14:10:47.822
Context
2025-05-09
11:40
v1.6.3 Leaf check-in: a0b5bd67d7 user: apl tags: trunk
2024-07-24
14:10
my::Show wrapped in *catch* check-in: d821694c29 user: apl tags: trunk
2024-03-27
13:58
v1.6.2 check-in: 084baff05d user: apl tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to CHANGELOG.md.
1
2
3
4
5
6

7
8
9
10
11
12
13
# LAST CHANGES:


Version `1.6.2 (27 Mar'24)`

  - NEW   : *-focus $w* option to focus a widget after tip show (thanks to Nicolas Bats)

  - CHANGE: *-text {}* works for notebook tab, canvas tag, text tag


Version `1.6.0 (22 Nov'23)`

  - NEW   : *-eternal 1* option to make tips "eternal"
  - NEW   : with "eternal" balloons shown, other tips are allowed



|


>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
# LAST CHANGES:


Version `1.6.2 (24 Jul'24)`

  - NEW   : *-focus $w* option to focus a widget after tip show (thanks to Nicolas Bats)
  - CHANGE: my::Show wrapped in *catch*
  - CHANGE: *-text {}* works for notebook tab, canvas tag, text tag


Version `1.6.0 (22 Nov'23)`

  - NEW   : *-eternal 1* option to make tips "eternal"
  - NEW   : with "eternal" balloons shown, other tips are allowed
Changes to baltip.tcl.
612
613
614
615
616
617
618
619







620
621
622
623
624
625
626
  set x [expr {max(0,$x)}]
  set y [expr {max(0,$y)}]
  wm geometry $win [join  "$width x $height + $x + $y" {}]
  catch {wm deiconify $win ; raise $win}
}
#_______________________

proc ::baltip::my::Show {w text force geo optvals} {







  # Creates and shows the tip's window.
  #   w - the widget's path
  #   text - the tip text
  #   force - if true, re-displays the existing tip
  #   geo - being +X+Y, sets the tip coordinates
  #   optvals - settings ("option value" pairs)
  # See also: Fade, ShowWindow, ::baltip::update







|
>
>
>
>
>
>
>







612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
  set x [expr {max(0,$x)}]
  set y [expr {max(0,$y)}]
  wm geometry $win [join  "$width x $height + $x + $y" {}]
  catch {wm deiconify $win ; raise $win}
}
#_______________________

proc ::baltip::my::Show {args} {
  # Calls DoShow catching errors.

  catch {DoShow {*}$args}
}
#_______________________

proc ::baltip::my::DoShow {w text force geo optvals} {
  # Creates and shows the tip's window.
  #   w - the widget's path
  #   text - the tip text
  #   force - if true, re-displays the existing tip
  #   geo - being +X+Y, sets the tip coordinates
  #   optvals - settings ("option value" pairs)
  # See also: Fade, ShowWindow, ::baltip::update