Changeset 48


Ignore:
Timestamp:
Aug 22, 2005 1:47:35 PM (16 years ago)
Author:
mmc
Message:

Oops! Fixed the Balloon widget so that it works properly even
if the Shape extension is not installed.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/balloon.tcl

    r46 r48  
    127127        }
    128128    }
    129     shape set $s -bound photo $_masks($placement)
     129    if {[info exists _masks($placement)]} {
     130        shape set $s -bound photo $_masks($placement)
     131    }
    130132
    131133    wm geometry $p +$px+$py
     
    366368            wm withdraw $_stems($dir)
    367369            wm overrideredirect $_stems($dir) yes
     370
     371            # create this for size, even though we don't really use it
     372            set _fills($dir) [image create photo -width $w -height $h]
    368373        }
    369374    }
Note: See TracChangeset for help on using the changeset viewer.