tests/FontPanelTests.st
author Jan Vrany <jan.vrany@labware.com>
Fri, 12 Aug 2022 22:38:28 +0100
branchjv
changeset 6857 58d68f671fa1
parent 6856 98caa7f380f7
permissions -rw-r--r--
cherry-picked GenericToolbarIconLibrary.st from 020158c929bb: * 4ecbe3a93aec: Merge, HG Automerge * 8e9dcb2a6533: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 58d88b144b2b: Merge, HG Automerge * 33c75b4a9999: #REFACTORING by mawalch, mawalch * 74f6a697ee26: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 7b8ba07cb680: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 0122e4e6c587: #FEATURE by cg, Claus Gittinger <cg@exept.de> * e296fa4b5ccb: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6db292aae07d: #OTHER by mawalch, mawalch * 4366b65a2c8a: Copyright updates, Jan Vrany <jan.vrany@fit.cvut.cz> * 6b79d8bfdcd9: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6a0103018ab9: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 87fbb0b00ca6: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 5c977f62957a: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 0ccfd6c3c75f: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 3926b9ae0a3c: #BUGFIX by cg, Claus Gittinger <cg@exept.de> * 8cebd063aeb5: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 5445f50f8b2b: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * 272618940466: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 56bd6e2384a4: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * ffa93f79e6ae: #DOCUMENTATION by cg, Claus Gittinger <cg@exept.de> * 9410312a11cb: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 0036104e42ed: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 21fad03d5f11: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 8fd99a9d1d84: #REFACTORING by cg, Claus Gittinger <cg@exept.de> * e4ed7fc09ca1: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 2c79a677e38a: #BUGFIX by cg, Claus Gittinger <cg@exept.de> * 81227f5c6bfa: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * a7d893a3c1e1: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 7928d87ff963: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 6ed15ff79b07: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * a1a9e33d6daf: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 07f0100f7064: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 23d027d53e04: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 823ff944a2a5: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 046733c3db59: #REFACTORING by exept, Claus Gittinger <cg@exept.de> * 040921add07a: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 5777bb6431cb: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 27448b51c873: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 1309dd75d7f5: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 6415731ee5e5: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * c7802dbb6d7d: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 23bf1e00dc95: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 645f74e46f86: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 236c24a6ce6c: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 8db4c188c57a: #REFACTORING by exept, Claus Gittinger <cg@exept.de> * 5d1367f2f32a: #BUGFIX by exept, Claus Gittinger <cg@exept.de> * e012b62927a6: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * cec8de8d957c: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 8e9b8e68a545: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 5274979b30fb: #FEATURE by cg, Claus Gittinger <cg@exept.de> * 73e483e60e05: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * dc6e33c97410: #UI_ENHANCEMENT by cg, Claus Gittinger <cg@exept.de> * 041ace9885e8: #TUNING by cg, Claus Gittinger <cg@exept.de> * bdfd1b407c29: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 52afc5fcc948: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * f9c23ed981dc: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 2678c19d0794: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 043c6c163b4f: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 5e779e09b004: version method, Claus Gittinger <cg@exept.de> * 51394e1ee44c: #FEATURE by exept, Claus Gittinger <cg@exept.de> * c6a190f66fb7: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 34b9831cd1ee: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 3fa783b7f48d: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * b46f5a561997: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 3bedf44e10d1: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * d0ccad2a39b8: #FEATURE by exept, Claus Gittinger <cg@exept.de> * 20f0d7ec75e0: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 86c9b274be4e: #FEATURE by stefan, Stefan Vogel <sv@exept.de> * 4c58992375bb: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 4facc54a9585: #OTHER by exept, Claus Gittinger <cg@exept.de> * d9b1c96aa2b8: #REFACTORING by exept, Claus Gittinger <cg@exept.de> * de0b89624b00: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * 8d5a93082103: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de> * c06c9bee59db: #UI_ENHANCEMENT by exept, Claus Gittinger <cg@exept.de>
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6856
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     1
"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     2
COPYRIGHT (c) 2022 Patrik Svestka
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     3
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     4
              All Rights Reserved
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     5
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     6
 This software is furnished under a license and may be used
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     7
 only in accordance with the terms of that license and with the
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     8
 inclusion of the above copyright notice.   This software may not
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
     9
 be provided or otherwise made available to, or used by, any
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    10
 other person.  No title to or ownership of the software is
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    11
 hereby transferred.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    12
"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    13
"{ Package: 'stx:libwidg/tests' }"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    14
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    15
"{ NameSpace: Smalltalk }"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    16
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    17
TestCase subclass:#FontPanelTests
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    18
	instanceVariableNames:''
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    19
	classVariableNames:''
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    20
	poolDictionaries:''
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    21
	category:'Views-Text-Tests'
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    22
!
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    23
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    24
!FontPanelTests class methodsFor:'documentation'!
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    25
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    26
copyright
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    27
"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    28
COPYRIGHT (c) 2022 Patrik Svestka
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    29
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    30
              All Rights Reserved
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    31
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    32
 This software is furnished under a license and may be used
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    33
 only in accordance with the terms of that license and with the
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    34
 inclusion of the above copyright notice.   This software may not
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    35
 be provided or otherwise made available to, or used by, any
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    36
 other person.  No title to or ownership of the software is
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    37
 hereby transferred.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    38
"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    39
! !
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    40
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    41
!FontPanelTests methodsFor:'tests'!
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    42
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    43
testFontPanelInit
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    44
    "Testing initialization of a Font Panel with incomplete font information"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    45
    |aFont labelTitle aFontSettingsPanel |
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    46
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    47
    aFont := Font family:'courier' face:nil style:nil size:14 sizeUnit:#pt encoding:nil.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    48
    labelTitle := 'Font for Edited Text'.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    49
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    50
    aFontSettingsPanel := FontPanel new.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    51
    self shouldnt: [
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    52
        aFontSettingsPanel initialFont: aFont.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    53
        aFontSettingsPanel label: labelTitle.                    
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    54
        aFontSettingsPanel encodingFilter: nil
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    55
    ] raise: Error.
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    56
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    57
    "Created: / 08-06-2022 / 13:51:07 / Patrik Svestka <patrik.svestka@gmail.com>"
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    58
! !
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    59
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    60
!FontPanelTests class methodsFor:'documentation'!
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    61
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    62
version_HG
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    63
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    64
    ^ '$Changeset: <not expanded> $'
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    65
! !
98caa7f380f7 Testing FontPanel initialization with incomplete Font information
Patrik Svestka <patrik.svestka@gmail.com>
parents:
diff changeset
    66