Cairo__CError.st
author Jan Vrany <jan.vrany@labware.com>
Mon, 15 Jun 2020 15:01:43 +0100
changeset 88 9d51db2ba641
parent 72 3eabcca278cd
permissions -rw-r--r--
Add copyright notice
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
88
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     1
"
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     2
stx:goodies/libcairo - Cairo graphics bindings for Smalltalk/X
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     3
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     4
Copyright (C) 2008-2019 Jan Vrany
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     5
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     6
This code is licensed under Creative Commons Attribution-NonCommercial License.
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     7
For full text of the license, see file LICENSE.txt
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
     8
"
43
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
"{ Package: 'stx:goodies/libcairo' }"
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
"{ NameSpace: Cairo }"
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
Error subclass:#CError
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
	instanceVariableNames:''
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
	classVariableNames:''
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
	poolDictionaries:''
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
	category:'Cairo-Exceptions'
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
!
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
88
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    20
!CError class methodsFor:'documentation'!
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    21
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    22
copyright
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    23
"
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    24
stx:goodies/libcairo - Cairo graphics bindings for Smalltalk/X
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    25
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    26
Copyright (C) 2008-2019 Jan Vrany
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    27
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    28
This code is licensed under Creative Commons Attribution-NonCommercial License.
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    29
For full text of the license, see file LICENSE.txt
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    30
"
9d51db2ba641 Add copyright notice
Jan Vrany <jan.vrany@labware.com>
parents: 72
diff changeset
    31
! !
72
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    32
43
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
!CError methodsFor:'printing & storing'!
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
    "return the description string of the signal"
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
    parameter isInteger ifTrue:[ 
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
        messageText isNil ifTrue:[ 
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
            ^ CPrimitives cairo_status_to_string: parameter.
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
        ].
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
        ^ messageText , ': ' , (CPrimitives cairo_status_to_string: parameter).
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    ].
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
    ^ super description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
    "
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
      (CError new parameter: 1) description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
      (CError new messageText: 'Failed to create Cairo'; parameter: 1) description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
      (CError new messageText: 'Failed to create Cairo') description
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
    "
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
    "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
    53
! !
1006839761af Add error checking
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
72
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    55
!CError class methodsFor:'documentation'!
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    56
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    57
version_HG
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    58
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    59
    ^ '$Changeset: <not expanded> $'
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    60
! !
3eabcca278cd Cairo context and surface management for CairoGraphicsContext reworked to work under Win32
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 43
diff changeset
    61