Mantis Bugtracker
  

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0004822 [Squeak] Kernel minor always 09-09-06 17:04 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[^]
Copyright © 2000 - 2007 Mantis Group
27 total queries executed.
24 unique queries executed.
Powered by Mantis Bugtracker