Win32Constants.st
author Claus Gittinger <cg@exept.de>
Wed, 28 Oct 2009 14:31:14 +0100
changeset 12379 3c014ba09285
parent 12378 416690a1ffad
child 12672 fc6fe9cbba31
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
12378
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libbasic' }"
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
SharedPool subclass:#Win32Constants
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:'FILE_ATTRIBUTE_HIDDEN FILE_ATTRIBUTE_NORMAL
12379
3c014ba09285 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 12378
diff changeset
     6
		FILE_ATTRIBUTE_TEMPORARY FILE_ATTRIBUTE_DIRECTORY
3c014ba09285 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 12378
diff changeset
     7
		FILE_ATTRIBUTE_READONLY'
12378
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
	category:'OS-Windows'
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
!Win32Constants class methodsFor:'documentation'!
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
documentation
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
"
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    contains (will, eventually) win32 OS constants.
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
"
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
! !
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!Win32Constants class methodsFor:'initialization'!
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
initialize
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
    "Invoked at system start or when the class is dynamically loaded."
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
12379
3c014ba09285 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 12378
diff changeset
    25
    FILE_ATTRIBUTE_READONLY := 1.
12378
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
    FILE_ATTRIBUTE_HIDDEN := 2.
12379
3c014ba09285 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 12378
diff changeset
    27
    FILE_ATTRIBUTE_DIRECTORY := 16.
12378
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
    FILE_ATTRIBUTE_NORMAL := 128.
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
    FILE_ATTRIBUTE_TEMPORARY := 256.
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
! !
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!Win32Constants class methodsFor:'documentation'!
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
version_CVS
12379
3c014ba09285 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 12378
diff changeset
    35
    ^ '$Header: /cvs/stx/stx/libbasic/Win32Constants.st,v 1.2 2009-10-28 13:31:14 cg Exp $'
12378
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
! !
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
416690a1ffad initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
Win32Constants initialize!