| Trans.SLL | Transparent image background
support library. |
| Trans.DLL | Support DLL |
| Trans.ST
Trans.PRJ |
Source files |
| 256.rle
back.tif |
Sample mage and background graphic |
| Trans Doit.txt | Demo expressions |
| ARBase.sll | Alejandro Reimondo base components SLL |
| ARPatchs.sll | Patches and bug fixes |
| ARAddins.sll | SelfDefinedStructures support |
| ARMisc.sll | Misc. OS Support |
| PictBase.sll | Image Framework |
#('ARBase' 'ARPatchs' 'ARAddIns' 'ARMisc' 'PictBase' 'Trans' ) do:[:lib|SmalltalkLibraryBinder bindTo:lib].
"Load an image file and display at screen origin."
image := TransparentImage fromUser. image displayWith: Display
pen.
"The following example requires LibTiff to be installed"
"Basic demo..."
| image background praghPane |
TIFFDLL32 current: nil.
image := TIFFImage fromFile: 'Back.tif'.
image isValid ifFalse: [ ^self error: 'file not found...' ].
background := image asBitmap.
image release.
image := TransparentImage fromFile: '256.rle'.
image notNil
ifTrue: [ graphPane := GraphPane openWindow: 'Test'.
graphPane
bitmap: background;
when: #mouseMoved: do: [:point|
image displayAt: point - (image extent // 2) with: graphPane pen ];
update.
graphPane parent when: #closed send: #release to: image. ].
Links to:
The
ObjectShare web site
VisualSmalltalk
Product Support
ObjectShare's
Online Documentation Site