Cairo__CError.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 28 Feb 2016 14:53:56 +0000
changeset 51 5293f2b851ab
parent 43 1006839761af
child 72 3eabcca278cd
permissions -rw-r--r--
CairGraphicsContext: added support for displaying images with alpha channel
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
43
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/libcairo' }"
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Cairo }"
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
Error subclass:#CError
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:''
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cairo-Exceptions'
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
!CError methodsFor:'printing & storing'!
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
    "return the description string of the signal"
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
    parameter isInteger ifTrue:[ 
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
        messageText isNil ifTrue:[ 
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
            ^ CPrimitives cairo_status_to_string: parameter.
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
        ].
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
        ^ messageText , ': ' , (CPrimitives cairo_status_to_string: parameter).
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    ].
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
    ^ super description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
    "
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
      (CError new parameter: 1) description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
      (CError new messageText: 'Failed to create Cairo'; parameter: 1) description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
      (CError new messageText: 'Failed to create Cairo') description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
    "
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
    "Created: / 23-02-2016 / 16:52:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
! !
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33