NameSpaceCreationChange.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 17 Feb 2021 15:24:09 +0100
branchjv
changeset 4568 524471ef6575
parent 4384 e28fcaaf93c7
permissions -rw-r--r--
Changing the encoding style header for fileOutAs
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     1
"
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     2
 COPYRIGHT (c) 1998 by eXept Software AG
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     3
              All Rights Reserved
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     4
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     5
 This software is furnished under a license and may be used
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     6
 only in accordance with the terms of that license and with the
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     8
 be provided or otherwise made available to, or used by, any
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
     9
 other person.  No title to or ownership of the software is
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    10
 hereby transferred.
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    11
"
1295
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    12
"{ Package: 'stx:libbasic3' }"
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    13
3836
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    14
"{ NameSpace: Smalltalk }"
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    15
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
Change subclass:#NameSpaceCreationChange
1295
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    17
	instanceVariableNames:'otherParameters nameSpaceName'
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'System-Changes'
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!NameSpaceCreationChange class methodsFor:'documentation'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    25
copyright
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    26
"
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    27
 COPYRIGHT (c) 1998 by eXept Software AG
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    28
              All Rights Reserved
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
798
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    30
 This software is furnished under a license and may be used
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    31
 only in accordance with the terms of that license and with the
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    33
 be provided or otherwise made available to, or used by, any
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    34
 other person.  No title to or ownership of the software is
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    35
 hereby transferred.
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    36
"
999fff0aa0d0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 653
diff changeset
    37
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
! !
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!NameSpaceCreationChange methodsFor:'accessing'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
3836
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    42
fullClassName
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    43
    ^ nameSpaceName
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    44
!
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    45
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
name:nm
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
    nameSpaceName := nm
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
    "Created: / 16.2.1998 / 14:31:14 / cg"
1295
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    50
!
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    51
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    52
nameSpaceName:nm
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    53
    nameSpaceName := nm
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    54
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    55
    "Created: / 16.2.1998 / 14:31:14 / cg"
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    56
!
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    57
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    58
otherParameters
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    59
    "return the value of the instance variable 'otherParameters' (automatically generated)"
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    60
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    61
    ^ otherParameters
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    62
!
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    63
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    64
otherParameters:something
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    65
    "set the value of the instance variable 'otherParameters' (automatically generated)"
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    66
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    67
    otherParameters := something.
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    68
! !
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    69
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    70
!NameSpaceCreationChange methodsFor:'applying'!
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    71
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    72
apply
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    73
    "apply the change"
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    74
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    75
    NameSpace fullName:nameSpaceName
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
! !
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
!NameSpaceCreationChange methodsFor:'printing'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
printOn:aStream
1295
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    81
    aStream 
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    82
        nextPutAll:'NameSpace fullName:'; 
8c3784a1dfd7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 798
diff changeset
    83
        nextPutAll:nameSpaceName asSymbol storeString
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    85
    "Created: / 16.2.1998 / 14:31:41 / cg"
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
! !
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
2611
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    88
!NameSpaceCreationChange methodsFor:'testing'!
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    89
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    90
isNameSpaceCreationChange
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    91
    ^ true
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    92
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    93
    "Created: / 24-11-2011 / 12:10:12 / cg"
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    94
! !
575c8ede5f37 +isNameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    95
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
!NameSpaceCreationChange class methodsFor:'documentation'!
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
version
3836
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
    99
    ^ '$Header: /cvs/stx/stx/libbasic3/NameSpaceCreationChange.st,v 1.5 2015-03-24 18:00:15 cg Exp $'
653
b873bb41ef10 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
! !
3836
17098ebf8da6 class: NameSpaceCreationChange
Claus Gittinger <cg@exept.de>
parents: 2611
diff changeset
   101