source:
tol/tolbase/lib/toltk/ImageManager.tcl
| Last change on this file was e462ba2, checked in by , 16 years ago | |
|---|---|
|
|
| File size: 279 bytes | |
| Rev | Line | |
|---|---|---|
| [e462ba2] | 1 | # |
| 2 | # Este archivo contiene la implementacion de ImageManager por omision | |
| 3 | # que necesita tolinspe.tcl desde el GuiTools | |
| 4 | # | |
| 5 | ||
| [e3362cc] | 6 | package require BWidget |
| 7 | ||
| [ab2f694] | 8 | namespace eval ::ImageManager { |
| 9 | } | |
| 10 | ||
| [e3362cc] | 11 | proc ::ImageManager::getIconForInstance { objAddress } { |
| [e462ba2] | 12 | return [ ::Bitmap::get "NameBlock" ] |
| [301385f] | 13 | } |
Note: See TracBrowser
for help on using the repository browser.
