ParagraphSpecification.st
author Jan Vrany <jan.vrany@labware.com>
Fri, 02 Sep 2022 11:25:39 +0100
branchjv
changeset 6261 9b7eb7159d29
parent 4770 6634b540fea2
permissions -rw-r--r--
Fix loong standing bug with some menus not being translated / resolved This has happened with browser "View" menu when sometimes it had the slice resolved and sometimes not. It turned out that it was because the code disabled resources (and therefore slices) resolution when processing shortcuts, so the menu was created and cached unresolved. This fixes the issue. eXept apparently run into the same problem.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
36
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     1
"
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     2
 COPYRIGHT (c) 1994 by Claus Gittinger
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     3
	      All Rights Reserved
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     4
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     5
 This software is furnished under a license and may be used
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     6
 only in accordance with the terms of that license and with the
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     8
 be provided or otherwise made available to, or used by, any
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
     9
 other person.  No title to or ownership of the software is
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    10
 hereby transferred.
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    11
"
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    12
"{ Package: 'stx:libwidg2' }"
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    13
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    14
"{ NameSpace: Smalltalk }"
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1431
diff changeset
    15
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    16
TabulatorSpecification subclass:#ParagraphSpecification
1431
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    17
	instanceVariableNames:'leftMargin rightMargin textAlignment'
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    18
	classVariableNames:''
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    19
	poolDictionaries:''
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    20
	category:'Views-Support'
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    21
!
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    22
36
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    23
!ParagraphSpecification class methodsFor:'documentation'!
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    24
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    25
copyright
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    26
"
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    27
 COPYRIGHT (c) 1994 by Claus Gittinger
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    28
	      All Rights Reserved
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    29
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    30
 This software is furnished under a license and may be used
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    31
 only in accordance with the terms of that license and with the
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    33
 be provided or otherwise made available to, or used by, any
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    34
 other person.  No title to or ownership of the software is
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    35
 hereby transferred.
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    36
"
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    37
!
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    38
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    39
documentation
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    40
"
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    41
    Instances of this class can be used to represent the tabs
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    42
    and margins of a paragraph of text. Its a goody, not really
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    43
    used currently.
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    44
"
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    45
! !
160b8f0dfd7d *** empty log message ***
claus
parents: 29
diff changeset
    46
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    47
!ParagraphSpecification methodsFor:'accessing'!
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    48
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    49
leftMargin
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    50
    "return leftMargin"
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    51
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    52
    ^ leftMargin
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    53
!
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    54
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    55
leftMargin:something
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    56
    "set leftMargin"
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    57
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    58
    leftMargin := something.
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    59
!
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    60
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    61
rightMargin
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    62
    "return rightMargin"
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    63
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    64
    ^ rightMargin
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    65
!
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    66
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    67
rightMargin:something
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    68
    "set rightMargin"
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    69
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    70
    rightMargin := something.
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    71
! !
29
b1663ac8f532 Initial revision
claus
parents:
diff changeset
    72
1431
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    73
!ParagraphSpecification class methodsFor:'documentation'!
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    74
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    75
version
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1431
diff changeset
    76
    ^ '$Header: /cvs/stx/stx/libwidg2/ParagraphSpecification.st,v 1.6 2006-11-13 16:11:31 cg Exp $'
1431
0cc20a8f2f7c docu & copyright
Claus Gittinger <cg@exept.de>
parents: 86
diff changeset
    77
! !
4770
6634b540fea2 Added PluggableHierarchicalList to define ad-hoc tree models.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3150
diff changeset
    78