tools/JavaSettingsApplication.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 09 Dec 2014 14:49:20 +0000
changeset 3296 761c7bb5853c
parent 3295 87ec39ef23b8
child 3297 8eb3481bfdcf
permissions -rw-r--r--
Java settings cleanup (part 2): release settings refactored. Keep path to Java installation rather than just release selector. This allows user to set JRE/JDK which is not autodetected. Settings dialog UI has been updated accordingly.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:libjava/tools' }"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
AbstractSettingsApplication subclass:#JavaSettingsApplication
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
     4
	instanceVariableNames:'javaHomeHolder infoPanel jdkBundleHolder environmentBundleHolder
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
     5
		packageBundleHolder userBundleHolder javaHomeInfoHolder'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	classVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	poolDictionaries:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	category:'Languages-Java-Tools'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
!JavaSettingsApplication class methodsFor:'initialization'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
initialize
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
    self installInSettings
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
    "Created: / 23-06-2005 / 09:27:10 / masca"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
installInSettings
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
    Smalltalk addStartBlock:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
        AbstractLauncherApplication 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
            addSettingsApplicationByClass:self name withName:'Java' icon:self defaultIcon
2717
16564a7101b8 Initial support for displaying only selected method's source in browser.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
    26
"/    AbstractLauncherApplication settingsList 
16564a7101b8 Initial support for displaying only selected method's source in browser.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
    27
"/        addLast:(Array with:'Java' with:self name)
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
    ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
    "Created: / 23-06-2005 / 09:27:10 / masca"
2717
16564a7101b8 Initial support for displaying only selected method's source in browser.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
    31
    "Modified: / 09-09-2013 / 01:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
!JavaSettingsApplication class methodsFor:'image specs'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
defaultIcon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
    ^ self libjavaCupIconInTree
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
    "Created: / 19-07-2012 / 11:26:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
libjavaCupIcon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    "This resource specification was automatically generated
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
     by the ImageEditor of ST/X."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
    "Do not manually edit this!! If it is corrupted,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
     the ImageEditor may not be able to read the specification."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
     self libjavaCupIcon inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
     ImageEditor openOnClass:self andSelector:#libjavaCupIcon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
     Icon flushCachedIcons
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
    <resource: #image>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
    ^Icon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
        constantNamed:'JavaSettingsApplication libjavaCupIcon'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
        ifAbsentPut:[(Depth24Image new) width: 66; height: 66; photometric:(#rgb); bitsPerSample:(#(8 8 8)); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
?????????????????????????????????_O)?/_1????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
?????????????????????????????????????????????????????????/+7<+E4????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
????????????????????????????????????????????????????????????????????????????????????:8X(?/#2????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
????????????????????????????????????????????????????????????????????????????????????????????????????????????:(D >MZ6????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
??????????;>:G\N=\FQ????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
?????????????????????????????????N7_96<@<;*D????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
????????????????????????????????????????????????????????=\FQ96<@=,&_????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
??????????????????????????????????????????????????????????????????????????????;=:8 ,96<@>>#W????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
????????????????????????????????????????????????????????????????????????????????????????????????????=,"]96<@:8$.????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
?N/\:G\N96<@=,&_????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
?????????????????????_G'':(L$96<@:8X)??7;????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
?????????????????????????????????????????_G'':(P%96<@97DC>.GJ????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
?????????????????????????????????????????????????????????????OC$;H,196<@96<@<;"A????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
????????????????????????????????????????????????????????????????????????????????>.KL:W8Z96<@96<@;99T??;>????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
?????????????????_W.????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
????????????????????????????????????????????????????????????????????????????????????????????????????=<6'':GTJ96<@96<@;))M
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
?//8????????????????????????>>[S<;Y>=\JS?_W.????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????/39
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
<Z5.96<@96<@96<@;95R?/39?????????????????/''5=\VY;H,2;Y@;>>WQ????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
?????????????????_K(;I@:96<@96<@96<@<*90??7<?????????????/39=\NT:''8[:GPH=\FR??7<????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
?????????????????????????????????????N+Z:(L#96<@96<@97DC=\NT????????????????>]&;:(H!!96<@:8 ->>''X????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
????????????????????????????????????????????????????????>.GJ:W,U96<@96<@:GXL>MV4??????????????7;<;U<97@B96<@;:AW?/#2????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   101
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
????????????????????????????????????????????????????????????????????????????>>SP:W$Q96<@96<@:GXL>-?F?????????????//8;)%J
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
96<@96<@<Z-+??;>????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
?????????????????????????????????????????????????????????????????????????????????????????????????/_0:(H"96<@96<@97DD>]":
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
??????????????;>;)1O96<@96<@<Z))??;>????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
<Z-*96<@96<@96<@=K.F????????????????=\FQ96<@96<@;H04??7<????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
?????????????????????_W.:GLG96<@96<@:(L$??7;?????????????/''5:W$Q96<@96<@==F-????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
????????????????????????????????????????????>M^896<@96<@96<@=\BP????????????????=,2$96<@96<@96<@?_K(????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
????????????????????????????????????????????????????????????????????>MR296<@96<@96<@>>#V????????????????<;Q;96<@96<@96<@
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
>>_T????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
?????????????????????????????????????????????????????????????????????????????????????????????OC$96<@96<@96<@?/#2????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
????????<Z-+96<@96<@96<@<;"B????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
:8 -96<@96<@?OC$????????????????=\NT96<@96<@96<@:W$Q?_O*????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
????????????????????????=<6&96<@96<@==F.????????????????>>[R96<@96<@96<@96<@<J]$????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   122
??????????????????????????????????????????????????7<;H8796<@;))M????????????????????;)]F96<@96<@96<@96<@=<:)????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   124
?????????????????????????????????????????????????????????????????????????????N3^:G\N96<@>.KL????????????????>].?97@B96<@
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   125
96<@96<@:W0W?/_0????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   126
????????????????????????????????????????????????????????????????????????????????????????????????????????=<6''97@A;)]G??;>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   127
????????????????<;Q;96<@96<@96<@96<@=K6K????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   128
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   129
????????????=\VX96<@=\VY??????????????????7;;I@:96<@96<@96<@;91P????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   130
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   131
????????????????????????????????????????<;]?:W P?N?#????????????????>>#W:GLG96<@96<@;9=U????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   132
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   133
????????????????????????????????????????????????????????????????????=\RW;YH>??7<????????????????;))M96<@96<@=<:(????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   134
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   135
????????????????????????????????????????????????????????????????????????????????????????????????=\NT=,&_????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   136
<*9096<@:(L$?/+7????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   137
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   138
????>]*=?/''5????????????;99S:GPH>.KK????????????????????????????????????????9.713M+#2-#"9>72????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   139
????????????????????????????????????????????????????????????????????????????????????????????????????>O+;6NO*-\''V*LCO2-#"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   140
:^?3??????????????????????????????;=?????????_G'':W0W>].?????????????????????????????????????9.71);?O+LOR$J?CV8"%T8J!!_*F9
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   141
7>#.????????????????????????????????????????????????????????????????????????????????????????????????????????????:?G4+<WT
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   142
]Y.4W(*''$;GD3M+#>/3<??????????????????????????????????????????????;><;"A>>#W????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   143
????????????=/#:"**?T8J!!V(^%6^O*????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   144
????????5>K)"Z&>UXN"T8J!!''[_I=O_9?????????????????????????????????????????????????????????/_1??7<????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   145
????????>O+;9^31?/??????????????????????>/3<ZYJ-T8J!![)Z0?/??????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   146
????????????????????????????.<7ZUHJ!!T8J!!T8J!!T8J!!,L[T;/O6????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   147
=?'';8.+/3]/$.,7Y)[;N$Z?C_JB7Z)N.'';''J<?[8????????????????????????????);?OT8J!!T8J!!7._-????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   148
????????????????????????????????????????????????????8^''. JN:UXN"T8J!!T8J!!T8J!!T8J!!ZYJ-^Y:6!!ZZ<$J?C&KSG&KSG&KSG&KSG%;SF#J3@
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   149
!!ZZ<_:J9]Y.3Z)N.XH.(U(R"T8J!!T8J!!T8J!!U8V#\9*3%KGD-L''V9^31????????????????????????????????????-\+WT8J!!T8J!!4=?''????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   150
????????????????????????????????????????????????????????????????????????????????????<_W72=''#*<KQ&+WH"Z&>^):6Z)N.W(*''W(*''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   151
VHZ$T8J!!T8J!!T8J!!UHJ!!W(*''XH2(Z)N.[YV/_ZF8$+CC)K7M-\+W2-#"7>_-?O7=????????????????????????????????????????????????????%+OF
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   152
T8J!!UHJ!!<OS7????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   153
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   154
????????????????<_W7WH"&T8J!!"Z&>????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   155
????????????????????????????????????=O_9????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   156
?????????????????????????????????????/??":/@T8J!!XX2):^?3????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   157
????????????????????????????????????????????????????:N;2"**?.,7Y????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   158
????????????????????????????????????????????????????????????([/LT8J!!XH2(6>W+????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   159
????????????????????????????????????????????????????????????????????????8>/0WH"&T8J!!);?O>/3<????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   160
????????????????????????????>O+;7N[,/-C\(+/L4-?''????????????????????????????>/3<$+CDT8J!!^I65:N;2????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   161
????????????????????????????????????????????????????????????????????????????????????????????????5NC''UHJ!!T8J!!T8J!!VHZ$]925
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   162
!!*^=$Z?C''[_I*LCO+<WS+<WS+<WS+<WS*LCO&;[H#*7A JJ9ZYJ-UHJ!!T8J!!T8J!!T8J!!UXN"''K_I;/O6????????????????8^''/\)&2Z9R.0MG\?/??????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   163
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   164
????3=3%_ZF8UHN"T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!U(R#\)&2&[WG1MS_;?S7????????=/#:*\CP
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   165
#J/@3M+#?/;>????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   166
????????????????????????????????????<OS72M_!!*\GP%+OF!!JZ<\I^1Z)N.Z)N.Z)N.Z)N.Z)N.Z)N.\9*3 JJ9$+CC*,GQ0-O^7._->?3=????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   167
????????????????6^O*>O+;????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   168
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   169
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   170
?????????????????????????????????????????????????????????????????????????????????????????????O7=????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   171
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   172
????????????????????????????????????????????????????????????????????????????????????????????????????????????5>K)!!JZ<;_K5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   173
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   174
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   175
????????4M7%UHJ!!T8J!!"**?0-K]8.+/<OS7?_;>?????????????????????/;>;/O66.S+/,?[(;3M"J&>,,_U>/3<????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   176
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   177
????????????????????????????????4-?''UHN"T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!W(*''Z)N.Z)N.Z)N.Y)B+U(R#T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!X86)*\GP
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   178
;?S7????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   179
????????????????????????????????????????????????????????????4-?'']).4T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   180
T8J!!T8J!!T8J!!UHN"_ZB8/=C\>O+;????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   181
????????????????????????????????????????????????????????;/O64-;&1=[ 1-W =O_9????????????????8^''.+\OR!!JZ<XH.(T8J!!T8J!!T8J!!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   182
T8J!!T8J!!T8J!!T8J!!T8J!!XH2(_ZF8&+WH1]W_</W8????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   183
????????????????????????????????????????????????????????????????????9^31'';''K[)Z0]).4+,SS6.S+=/'':????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   184
????????????=_#98N#.7^[,7^[,7^[,7>#.;_K5>/3<????????????????????????????????????????????????????????????????????5^C(=?'';
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   185
????????????????????????????????????????????????????????????????????????????????????9^31!!*^=UHJ!!]Y.36>W+????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   186
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   187
????????????????''[#J1-W ????????????????????????????????????????????????????????????????????????????????0MG\U8V#T8J!!T8J!!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   188
+,SS????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   189
????????????????????????????>_/<2=''# :V;#J3@>//<????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   190
????????^Y66T8J!!T8J!!T8J!!T8J!![)Z0(;3M2=''#;OG5?/??????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   191
????????????????????????????????</W86>W+1MS_(K+K^Y66WH"&#J/@5^G(?????????????_;>=O_9????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   192
????????????????????????????????9>;2%[KEYH:*T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!VHZ$[9^0"J">''+#J*\GP-L''V0MG\2-''"4];&4];&4];&4];&4];&
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   193
4];&4];&4];&4];&1-W 1-W 1MS_-</X*,GQ''[#J$J?C!!JV<\9&2WH&&T8J!!UHJ!![9Z0&[WG1-[ =O_9????????????????:/C4#J/@=_#9????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   194
????????????????????????????????????????????????????????????????????;_K55NC''/L;[)[7N#J3@]925YX>+U(R"T8J!!T8J!!T8J!!T8J!!T8J!!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   195
T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!T8J!!U8V#Y9B,_ZB8%+OF,L[T3-3$=O_9?????????????????????/;>3=3%#J/@
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   196
XX2)5NC''????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   197
?/??;?O67>_-4];&1-[ /L;[,,_U*LCO(;3M(;3M(;3M(;3M(;3M)+;N+<WS,\_U/,?[2-#"5.G)8.+/</W8?????????????????????????????????/??
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   198
9^310]K]$+CCXX2)U8V#%[KE:?C4????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   199
?????????????????/??7>#.;_K5?/;>????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   200
</W85>K).,7Y''K_I_*F9WX&''T8J!!UHN"]925+\OR;?O6????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   201
????????????????????????????????????????????=O_9.,7Y&KSG"**? JN:$Z?C([/L(;3M);?O+<WS+<WS.L3X.,7Y.,7Y.,7Y.,7Y.,7Y-</X*<KQ
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   202
(K+K%KKE"**?^):6ZIF,VHV$T8J!!T8J!!WX&''\9&2$+CC,<#U4=?''=O_9????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   203
????????????????????????????????????????????????????????????????????????????????????????<OS78^''.3-3$/=C\+<WT*,GQ(;3M&+WH
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   204
&KSG&KSG&KSG&KSG&KSG&KSG&KSG(;3M+\OR-\''V/,?[3=3%8>+0=?'';????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   205
????????????????????????') ; yourself]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   206
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   207
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   208
libjavaCupIconInTree
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   209
    "This resource specification was automatically generated
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   210
     by the ImageEditor of ST/X."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   211
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   212
    "Do not manually edit this!! If it is corrupted,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   213
     the ImageEditor may not be able to read the specification."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   214
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   215
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   216
     self libjavaCupIconInTree inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   217
     ImageEditor openOnClass:self andSelector:#libjavaCupIconInTree
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   218
     Icon flushCachedIcons
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   219
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   220
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   221
    <resource: #image>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   222
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   223
    ^Icon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   224
        constantNamed:'JavaSettingsApplication libjavaCupIconInTree'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   225
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   226
G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_C1<_G1<_G1<_G1<_
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   227
G1<_G1<_G1<_DA<_G1<_G1<_G1<_G1<_G1<_G1<_DA<_DQ<_G1<_G1<_G1<_G1<_G1<_DA<_D!!<_G1<_G1<_G1<_G1<_G1<_DA<_DA<_G1<_G1<_G1<_G1<_
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   228
G1<_G1@_G1@_G1<_G1<_G1<_G1<_G1<_G1<NG1<PC1<_G1<_G1<_G1<_G1<_G1<_G08_G1@_G1<_G1<_G1<_G1<_G1<_G1<_G1<PG1<_G1<_G1<_G1<_G1<_
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   229
G1<_G1<_G1<_G1<HG1<_G1<_G1<_BP0B@ HCB H_G1<_G0 _G1<_G1<_G1<_G1<_G1<_G1<_G04_G1<_G1<_G1<_B ,B@ HMA $_G1<_G1<_G1<_G1<_G1<_
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   230
G1<_G1<_G1<_G1<_G1<_G1<_G1<_BQ<_G1<HG1<_G1<_G1<_G1<_G1<_G1<DCP4GG1<_G1<_G1<_G1<_G0$_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G0(AB (J
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   231
B TA@A<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G1<_G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[82 129 161 83 129 160 83 129 161 83 129 162 84 129 160 84 129 161 82 130 161 82 130 162 83 130 160 83 130 161 83 130 162 84 130 161 82 131 161 83 131 161 231 110 0 230 111 0 231 111 0 231 112 0 232 112 0 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@ @@A@@@BP@@D @@I@@@I@@@I @@D @@@ @@@A@A?  @@A@@?0@@@@@@P @@O@@D@@@A?0@@@@@') ; yourself); yourself]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   232
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   233
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   234
!JavaSettingsApplication class methodsFor:'interface opening'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   235
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   236
open    
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   237
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   238
    | settingsApp |
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   239
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   240
    settingsApp := SettingsDialog new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   241
    settingsApp addApplClass:self fullName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   242
                withName:'Java'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   243
    settingsApp showRoot: false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   244
    settingsApp selectedItem value:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   245
        (settingsApp applicationList root children anyOne).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   246
    settingsApp open.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   247
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   248
    "Created: / 19-07-2012 / 11:25:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   249
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   250
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   251
!JavaSettingsApplication class methodsFor:'interface specs'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   252
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   253
packageBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   254
    "This resource specification was automatically generated
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   255
     by the UIPainter of ST/X."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   256
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   257
    "Do not manually edit this!! If it is corrupted,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   258
     the UIPainter may not be able to read the specification."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   259
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   260
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   261
     UIPainter new openOnClass:JavaSettingsApplication andSelector:#userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   262
     JavaSettingsApplication new openInterface:#userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   263
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   264
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   265
    <resource: #canvas>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   266
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   267
    ^ 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   268
     #(FullSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   269
        name: packageBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   270
        window: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   271
       (WindowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   272
          label: 'Package Libraries'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   273
          name: 'Package Libraries'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   274
          min: (Point 10 10)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   275
          bounds: (Rectangle 0 0 300 300)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   276
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   277
        component: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   278
       (SpecCollection
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   279
          collection: (
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   280
           (SubCanvasSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   281
              name: 'SubCanvas1'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   282
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   283
              hasHorizontalScrollBar: false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   284
              hasVerticalScrollBar: false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   285
              majorKey: JavaCodeBundleEditor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   286
              subAspectHolders: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   287
             (Array
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   288
                
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   289
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   290
                  subAspect: bundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   291
                  aspect: packageBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   292
                ) 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   293
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   294
                  subAspect: readonlyHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   295
                  aspect: trueHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   296
                )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   297
              )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   298
              createNewApplication: true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   299
              createNewBuilder: true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   300
            )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   301
           )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   302
         
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   303
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   304
      )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   305
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   306
    "Created: / 28-01-2013 / 20:33:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   307
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   308
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   309
userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   310
    "This resource specification was automatically generated
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   311
     by the UIPainter of ST/X."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   312
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   313
    "Do not manually edit this!! If it is corrupted,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   314
     the UIPainter may not be able to read the specification."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   315
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   316
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   317
     UIPainter new openOnClass:JavaSettingsApplication andSelector:#userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   318
     JavaSettingsApplication new openInterface:#userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   319
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   320
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   321
    <resource: #canvas>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   322
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   323
    ^ 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   324
     #(FullSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   325
        name: userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   326
        window: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   327
       (WindowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   328
          label: 'User Libraries'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   329
          name: 'User Libraries'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   330
          min: (Point 10 10)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   331
          bounds: (Rectangle 0 0 300 300)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   332
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   333
        component: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   334
       (SpecCollection
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   335
          collection: (
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   336
           (SubCanvasSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   337
              name: 'SubCanvas1'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   338
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   339
              hasHorizontalScrollBar: false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   340
              hasVerticalScrollBar: false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   341
              majorKey: JavaCodeBundleEditor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   342
              subAspectHolders: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   343
             (Array
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   344
                
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   345
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   346
                  subAspect: bundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   347
                  aspect: userBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   348
                ) 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   349
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   350
                  subAspect: readonlyHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   351
                  aspect: #falseHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   352
                )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   353
              )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   354
              createNewApplication: true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   355
              createNewBuilder: true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   356
            )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   357
           )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   358
         
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   359
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   360
      )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   361
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   362
    "Modified: / 28-01-2013 / 20:34:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   363
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   364
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   365
windowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   366
    "This resource specification was automatically generated
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   367
     by the UIPainter of ST/X."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   368
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   369
    "Do not manually edit this!! If it is corrupted,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   370
     the UIPainter may not be able to read the specification."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   371
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   372
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   373
     UIPainter new openOnClass:JavaSettingsApplication andSelector:#windowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   374
     JavaSettingsApplication new openInterface:#windowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   375
     JavaSettingsApplication open
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   376
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   377
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   378
    <resource: #canvas>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   379
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   380
    ^ 
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   381
    #(FullSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   382
       name: windowSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   383
       window: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   384
      (WindowSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   385
         label: 'Java Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   386
         name: 'Java Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   387
         min: (Point 10 10)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   388
         bounds: (Rectangle 0 0 695 627)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   389
       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   390
       component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   391
      (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   392
         collection: (
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   393
          (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   394
             label: ' Java Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   395
             name: 'SubVersiSettingsTitle'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   396
             layout: (LayoutFrame 0 0 0 0 0 1 66 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   397
             style: (FontDescription helvetica medium roman 18 #'iso10646-1')
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   398
             backgroundColor: (Color 100.0 100.0 100.0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   399
             translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   400
             adjust: left
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   401
           )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   402
          (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   403
             label: 'Icon'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   404
             name: 'JavaIcon'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   405
             layout: (LayoutFrame -75 1 0 0 0 1 66 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   406
             hasCharacterOrientedLabel: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   407
             backgroundColor: (Color 100.0 100.0 100.0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   408
             translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   409
             labelChannel: libjavaCupIcon
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   410
           )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   411
          (SubCanvasSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   412
             name: 'InfoPanel'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   413
             layout: (LayoutFrame 0 0 67 0 0 1 107 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   414
             level: 0
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   415
             initiallyInvisible: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   416
             hasHorizontalScrollBar: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   417
             hasVerticalScrollBar: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   418
             clientKey: infoPanel
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   419
             createNewBuilder: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   420
           )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   421
          (VerticalPanelViewSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   422
             name: 'Controls'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   423
             layout: (LayoutFrame 0 0 70 0 0 1 0 1)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   424
             horizontalLayout: fit
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   425
             verticalLayout: topFit
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   426
             horizontalSpace: 3
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   427
             verticalSpace: 3
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   428
             component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   429
            (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   430
               collection: (
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   431
                (FramedBoxSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   432
                   label: 'Basic Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   433
                   name: 'JavaReleasePanel'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   434
                   labelPosition: topLeft
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   435
                   translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   436
                   component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   437
                  (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   438
                     collection: (
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   439
                      (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   440
                         label: 'Java Home:'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   441
                         name: 'JavaHomeLabel'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   442
                         layout: (LayoutFrame 0 0 0 0 100 0 25 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   443
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   444
                         adjust: left
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   445
                       )
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   446
                      (ComboBoxSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   447
                         name: 'JavaHomeField'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   448
                         layout: (LayoutFrame 100 0.0 0 0 -61 1.0 25 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   449
                         model: javaHomeHolder
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   450
                         acceptOnPointerLeave: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   451
                         comboList: javaHomeList
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   452
                         postBuildCallback: postBuildJavaHomeFIeld:
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   453
                       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   454
                      (ActionButtonSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   455
                         label: 'Browse'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   456
                         name: 'Button1'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   457
                         layout: (LayoutFrame -60 1 0 0 0 1 25 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   458
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   459
                         model: doBrowseJavaHome
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   460
                       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   461
                      (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   462
                         label: 'Label'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   463
                         name: 'Label1'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   464
                         layout: (LayoutFrame 100 0 30 0 0 1 55 0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   465
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   466
                         labelChannel: javaHomeInfoHolder
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   467
                         adjust: left
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   468
                       )
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   469
                      )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   470
                    
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   471
                   )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   472
                   extent: (Point 695 95)
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   473
                 )
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   474
                (VariableVerticalPanelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   475
                   name: 'VariableVerticalPanel1'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   476
                   component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   477
                  (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   478
                     collection: (
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   479
                      (NoteBookViewSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   480
                         name: 'Notebook'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   481
                         menu: tabList
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   482
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   483
                       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   484
                      )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   485
                    
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   486
                   )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   487
                   extent: (Point 695 459)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   488
                   handles: (Any 1.0)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   489
                 )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   490
                )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   491
              
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   492
             )
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   493
           )
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   494
          )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   495
        
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   496
       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   497
     )
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   498
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   499
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   500
!JavaSettingsApplication class methodsFor:'list specs'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   501
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   502
tabList
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   503
    "This resource specification was automatically generated
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   504
     by the TabListEditor of ST/X."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   505
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   506
    "Do not manually edit this!! If it is corrupted,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   507
     the TabListEditor may not be able to read the specification."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   508
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   509
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   510
     TabListEditor new openOnClass: self andSelector:#tabList
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   511
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   512
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   513
    <resource: #tabList>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   514
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   515
    ^     #(
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   516
       (TabItem
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   517
          label: 'Package Libraries'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   518
          minorKey: packageBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   519
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   520
       (TabItem
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   521
          label: 'User Libraries'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   522
          minorKey: userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   523
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   524
       )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   525
     
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   526
      collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   527
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   528
    "Modified: / 28-01-2013 / 20:33:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   529
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   530
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   531
!JavaSettingsApplication methodsFor:'actions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   532
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   533
doBrowseJavaHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   534
    <resource: #uiCallback>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   535
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   536
    | java_home |
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   537
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   538
    java_home := Dialog requestDirectoryName:(resources string:'Java Installation Directory').
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   539
    java_home notEmptyOrNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   540
        self javaHomeHolder value: java_home
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   541
    ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   542
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   543
    "Modified: / 09-12-2014 / 11:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   544
!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   545
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   546
updateJavaHomeInfo
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   547
    | home release info |
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   548
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   549
    home := self javaHomeHolder value.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   550
    info := ''.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   551
    home isEmptyOrNil ifTrue:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   552
        release := JavaRelease default.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   553
    ] ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   554
        home asFilename isDirectory ifTrue:[  
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   555
            release := JavaRelease inDirectory: home.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   556
        ]
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   557
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   558
    release notNil ifTrue:[
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   559
        info :='%1 (%2%3) ' bindWith: release name
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   560
                                         with: (release jdkHome notNil ifTrue:[ 'JDK' ] ifFalse:[ 'JRE' ])
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   561
                                         with: (release isSystem ifTrue:[ ', system' ] ifFalse:[ '' ]).
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   562
        release isSystem ifTrue:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   563
            info := info asText allUnderlined.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   564
        ].    
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   565
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   566
    self javaHomeInfoHolder value: info
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   567
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   568
    "Created: / 09-12-2014 / 12:56:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   569
    "Modified: / 09-12-2014 / 14:08:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   570
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   571
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   572
!JavaSettingsApplication methodsFor:'aspects'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   573
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   574
environmentBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   575
    "return/create the 'environmentBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   576
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   577
    environmentBundleHolder isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   578
        environmentBundleHolder := ValueHolder new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   579
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   580
    ^ environmentBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   581
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   582
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   583
environmentBundleHolder:something
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   584
    "set the 'environmentBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   585
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   586
    environmentBundleHolder := something.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   587
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   588
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   589
falseHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   590
    ^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   591
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   592
    "Created: / 28-01-2013 / 20:34:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   593
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   594
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   595
infoPanel
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   596
    infoPanel isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   597
        infoPanel := Tools::InlineMessageDialog new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   598
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   599
    ^ infoPanel
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   600
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   601
    "Created: / 09-02-2012 / 19:23:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   602
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   603
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   604
javaHomeHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   605
    <resource: #uiAspect>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   606
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   607
    javaHomeHolder isNil ifTrue:[
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   608
        javaHomeHolder := ValueHolder with: Java release javaHome.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   609
        javaHomeHolder onChangeSend: #updateModifiedChannel to: self.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   610
        javaHomeHolder onChangeSend: #updateJavaHomeInfo to: self.  
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   611
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   612
    ^ javaHomeHolder.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   613
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   614
    "Created: / 27-07-2012 / 00:06:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   615
    "Modified: / 09-12-2014 / 12:57:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   616
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   617
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   618
javaHomeInfoHolder
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   619
    <resource: #uiAspect>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   620
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   621
    "automatically generated by UIPainter ..."
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   622
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   623
    "*** the code below creates a default model when invoked."
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   624
    "*** (which may not be the one you wanted)"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   625
    "*** Please change as required and accept it in the browser."
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   626
    "*** (and replace this comment by something more useful ;-)"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   627
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   628
    javaHomeInfoHolder isNil ifTrue:[
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   629
        javaHomeInfoHolder := ValueHolder new.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   630
"/ if your app needs to be notified of changes, uncomment one of the lines below:
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   631
"/       javaHomeInfoHolder addDependent:self.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   632
"/       javaHomeInfoHolder onChangeSend:#javaHomeInfoHolderChanged to:self.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   633
    ].
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   634
    ^ javaHomeInfoHolder.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   635
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   636
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   637
javaHomeList
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   638
    <resource: #uiAspect>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   639
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   640
    ^ [
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   641
        | homesAndReleases |    
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   642
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   643
        homesAndReleases := OrderedCollection withAll: JavaRelease available .
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   644
        (homesAndReleases includesIdentical: JavaRelease system) ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   645
            homesAndReleases add: JavaRelease system.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   646
        ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   647
        (homesAndReleases anySatisfy: [:release | release javaHome = self javaHomeHolder value ]) ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   648
            homesAndReleases addFirst: self javaHomeHolder value.
3295
87ec39ef23b8 Java settings cleanup (part 1): minor tweaks and fixes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2909
diff changeset
   649
        ].
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   650
        homesAndReleases addLast: ((resources string:'Autodetect') asText colorizeAllWith: Color gray).
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   651
        homesAndReleases.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   652
    ]
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   653
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   654
    "Created: / 09-12-2014 / 11:22:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   655
    "Modified: / 09-12-2014 / 14:06:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   656
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   657
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   658
jdkBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   659
    "return/create the 'jdkBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   660
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   661
    jdkBundleHolder isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   662
        jdkBundleHolder := ValueHolder new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   663
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   664
    ^ jdkBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   665
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   666
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   667
jdkBundleHolder:something
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   668
    "set the 'jdkBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   669
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   670
    jdkBundleHolder := something.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   671
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   672
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   673
packageBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   674
    "return/create the 'packageBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   675
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   676
    packageBundleHolder isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   677
        packageBundleHolder := ValueHolder new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   678
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   679
    ^ packageBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   680
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   681
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   682
packageBundleHolder:something
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   683
    "set the 'packageBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   684
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   685
    packageBundleHolder := something.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   686
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   687
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   688
tabList
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   689
    "Generated by the TabListEditor"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   690
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   691
    |list|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   692
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   693
    (list := builder bindingAt:#tabList) isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   694
        builder aspectAt:#tabList put:(list := self class tabList).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   695
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   696
    ^ list
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   697
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   698
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   699
trueHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   700
    ^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   701
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   702
    "Created: / 28-01-2013 / 20:34:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   703
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   704
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   705
userBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   706
    "return/create the 'userBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   707
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   708
    userBundleHolder isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   709
        userBundleHolder := ValueHolder new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   710
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   711
    ^ userBundleHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   712
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   713
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   714
userBundleHolder:something
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   715
    "set the 'userBundleHolder' value holder (automatically generated)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   716
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   717
    userBundleHolder := something.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   718
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   719
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   720
!JavaSettingsApplication methodsFor:'hooks'!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   721
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   722
postBuildJavaHomeFIeld: aComboBox
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   723
    aComboBox menuSelectAction: [ :value |
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   724
        value = (resources string:'Autodetect') ifTrue:[
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   725
            aComboBox field contents: ''
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   726
        ] ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   727
            aComboBox field contents: (value isString ifTrue:[ value ] ifFalse:[ value javaHome ])
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   728
        ]
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   729
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   730
    aComboBox field emptyFieldReplacementText: (resources string:'Autodetect')
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   731
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   732
    "Modified: / 09-12-2014 / 14:04:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   733
! !
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   734
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   735
!JavaSettingsApplication methodsFor:'protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   736
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   737
basicReadSettings
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   738
    | cpb |
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   739
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   740
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   741
    self javaHomeHolder value: currentUserPrefs javaHome.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   742
    self updateJavaHomeInfo.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   743
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   744
    cpb := Java classPathBundle.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   745
    self userBundleHolder value: cpb user deepCopy.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   746
    self packageBundleHolder value: cpb packages.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   747
    self environmentBundleHolder value: cpb environment.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   748
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   749
    "Modified: / 09-12-2014 / 12:56:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   750
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   751
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   752
basicSaveSettings
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   753
    currentUserPrefs javaHome:self javaHomeHolder value
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   754
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   755
    "Modified: / 09-12-2014 / 12:43:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   756
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   757
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   758
helpFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   759
    "subclasses must return the relative name of a helpFile
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   760
     in the doc/online/<language>/help directory.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   761
     Or nil, if no help is available."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   762
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   763
    ^ '../programming/java-installation.html#config'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   764
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   765
    "Modified: / 14-08-2012 / 18:57:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   766
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   767
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   768
!JavaSettingsApplication methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   769
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   770
hasUnsavedChanges
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   771
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   772
    self validate ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   773
        ^ false "/ Effectively disables the 'Apply' button.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   774
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   775
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   776
    self javaHomeHolder value ~= currentUserPrefs javaHome ifTrue:[ ^ true ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   777
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   778
    ^ false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   779
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   780
    "Modified: / 09-12-2014 / 12:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   781
! !
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   782
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   783
!JavaSettingsApplication methodsFor:'validation'!
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   784
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   785
validate
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   786
    self validateJavaHome ifFalse:[ ^ false ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   787
    self validationOK.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   788
    ^ true
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   789
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   790
    "Created: / 09-12-2014 / 12:27:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   791
!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   792
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   793
validateJavaHome    
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   794
    | javaHome javaRelease |
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   795
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   796
    javaHome := self javaHomeHolder value.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   797
    javaHome isEmptyOrNil ifTrue:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   798
        ^ true.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   799
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   800
    javaHome asFilename exists ifFalse:[  
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   801
        self validationError: (resources string: 'Java home does not exist').
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   802
        ^ false.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   803
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   804
    javaHome asFilename isDirectory ifFalse:[  
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   805
        self validationError: (resources string: 'Java home is not a directory').
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   806
        ^ false.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   807
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   808
    javaRelease := JavaRelease inDirectory: javaHome.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   809
    javaRelease isNil ifTrue:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   810
        self validationError: (resources string: 'Cannot find JDK or JRE in specified java home').
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   811
        ^ false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   812
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   813
    ^ true
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   814
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   815
    "Created: / 09-12-2014 / 12:19:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   816
    "Modified: / 09-12-2014 / 14:06:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   817
!
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   818
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   819
validationError:message
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   820
    self infoPanel
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   821
        reset;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   822
        beWarning;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   823
        message: message;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   824
        show.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   825
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   826
    "Created: / 09-12-2014 / 12:23:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   827
!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   828
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   829
validationOK
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   830
    self infoPanel
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   831
        reset;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   832
        hide.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   833
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   834
    "Created: / 09-12-2014 / 12:26:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   835
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   836
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   837
!JavaSettingsApplication class methodsFor:'documentation'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   838
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   839
version_CVS
2678
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2396
diff changeset
   840
    ^ '$Header: /cvs/stx/stx/libjava/tools/JavaSettingsApplication.st,v 1.3 2013-09-06 00:45:28 vrany Exp $'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   841
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   842
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   843
version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   844
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   845
    ^ '$Changeset: <not expanded> $'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   846
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   847
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   848
version_SVN
2731
13f5be2bf83b Merged d87e89dd5276 and fe83a843a7bf (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2711 2678
diff changeset
   849
    ^ 'Id::                                                                                                                        '
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   850
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   851
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   852
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   853
JavaSettingsApplication initialize!