0004822: [KernelImageOverride] Form unhibernate

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

Category

Severity

Reproducibility

Date Submitted

Last Update

0004822

[Squeak] Kernel

minor

always

09-09-06 17:04

Reporter

Krivanek

View Status

public

Assigned To

Priority

normal

Resolution

open

Status

new

Product Version

3.10

Summary

0004822: [KernelImageOverride] Form unhibernate

Description

Form >> unhibernate

original:

unhibernate
    "If my bitmap has been compressed into a ByteArray,
    then expand it now, and return true."
    | resBits |
    bits isForm ifTrue:[
        resBits _ bits.
        bits _ Bitmap new: self bitsSize.
        resBits displayResourceFormOn: self.
        ^true].
    bits == nil ifTrue:[bits _ Bitmap new: self bitsSize. ^true].
    (bits isMemberOf: ByteArray)
        ifTrue: [bits _ Bitmap decompressFromByteArray: bits. ^ true].
    ^ false

override:

unhibernate

    "If my bitmap has been compressed into a ByteArray,
    then expand it now, and return true."

    bits isForm ifTrue:[
        bits := Bitmap new: self bitsSize.
        ^true].
    bits == nil ifTrue:[bits := Bitmap new: self bitsSize. ^true].
    (bits isMemberOf: ByteArray)
        ifTrue: [bits := Bitmap decompressFromByteArray: bits. ^ true].
    ^ false

resBits removed, uspupported in KI

Additional Information

Attached Files

Relationships

There are no notes attached to this issue.

Issue History
Date Modified	Username	Field	Change
09-09-06 17:04	Krivanek	New Issue

Mantis 1.0.8[^]

27 total queries executed.
24 unique queries executed.