tools/JavaSettingsApplication.st
author Claus Gittinger <cg@exept.de>
Fri, 07 Jun 2019 22:52:13 +0200
branchcvs_MAIN
changeset 3903 e0870fe108eb
parent 3900 7acd9bc59ce6
child 3944 d9e46e7216ac
permissions -rw-r--r--
#REFACTORING by cg class: ProxyMethod changed: #printStringForBrowserWithSelector:inClass: (send #withColor: instead of #colorizeAllWith:)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3793
5091bed7a896 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3761
diff changeset
     1
"{ Encoding: utf8 }"
5091bed7a896 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3761
diff changeset
     2
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ 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
     4
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
     5
"{ NameSpace: Smalltalk }"
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
     6
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
AbstractSettingsApplication subclass:#JavaSettingsApplication
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
     8
	instanceVariableNames:'javaHomeHolder infoPanel javaHomeInfoHolder useDefaultJVM'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	classVariableNames:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
	poolDictionaries:''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
	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
    12
!
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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
!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
    16
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
initialize
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
    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
    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
    "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
    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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
installInSettings
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
    
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
    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
    27
        AbstractLauncherApplication 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
            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
    29
"/    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
    30
"/        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
    31
    ]
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
    "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
    34
    "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
    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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
!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
    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
defaultIcon
3793
5091bed7a896 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3761
diff changeset
    40
    <resource: #programImage>
5091bed7a896 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3761
diff changeset
    41
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
    ^ 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
    43
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
    "Created: / 19-07-2012 / 11:26:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3793
5091bed7a896 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3761
diff changeset
    45
    "Modified: / 28-07-2018 / 09:55:04 / Claus Gittinger"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
libjavaCupIcon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
    "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
    50
     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
    51
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
    "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
    53
     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
    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
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
     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
    57
     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
    58
     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
    59
    "
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
    <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
    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
    ^Icon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
        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
    65
        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
    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
?????????????????????????????????_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
    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
?????????????????????????????????????????????????????????/+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
    70
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
????????????????????????????????????????????????????????????????????????????????????: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
    72
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
????????????????????????????????????????????????????????????????????????????????????????????????????????????:(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
    74
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
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
??????????;>: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
    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
?????????????????????????????????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
    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
????????????????????????????????????????????????????????=\FQ96<@=,&_????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
??????????????????????????????????????????????????????????????????????????????;=: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
    83
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
????????????????????????????????????????????????????????????????????????????????????????????????????=,"]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
    85
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
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
?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
    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
?????????????????????_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
    90
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
?????????????????????????????????????????_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
    92
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
?????????????????????????????????????????????????????????????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
    94
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
????????????????????????????????????????????????????????????????????????????????>.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
    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
    97
????????????????????????????????????????????????????????????????????????????????????????????????????=<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
    98
?//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
    99
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????/39
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
<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
   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
?????????????????_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
   103
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
?????????????????????????????????????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
   105
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
????????????????????????????????????????????????????????>.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
   107
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
????????????????????????????????????????????????????????????????????????????>>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
   109
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
   110
?????????????????????????????????????????????????????????????????????????????????????????????????/_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
   111
??????????????;>;)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
   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
<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
   114
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
?????????????????????_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
   116
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
????????????????????????????????????????????>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
   118
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
????????????????????????????????????????????????????????????????????>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
   120
>>_T????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
?????????????????????????????????????????????????????????????????????????????????????????????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
   122
????????<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
   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
: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
   125
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
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&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
   127
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   128
??????????????????????????????????????????????????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
   129
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   130
?????????????????????????????????????????????????????????????????????????????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
   131
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
   132
????????????????????????????????????????????????????????????????????????????????????????????????????????=<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
   133
????????????????<;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
   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
????????????=\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
   136
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   137
????????????????????????????????????????<;]?: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
   138
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   139
????????????????????????????????????????????????????????????????????=\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
   140
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   141
????????????????????????????????????????????????????????????????????????????????????????????????=\NT=,&_????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   142
<*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
   143
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
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????????????;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
   145
????????????????????????????????????????????????????????????????????????????????????????????????????>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
   146
:^?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
   147
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
   148
]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
   149
????????????=/#:"**?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
   150
????????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
   151
????????>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
   152
????????????????????????????.<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
   153
=?'';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
   154
????????????????????????????????????????????????????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
   155
!!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
   156
????????????????????????????????????????????????????????????????????????????????????<_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
   157
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
   158
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
   159
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   160
????????????????<_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
   161
????????????????????????????????????=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
   162
?????????????????????????????????????/??":/@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
   163
????????????????????????????????????????????????????: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
   164
????????????????????????????????????????????????????????????([/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
   165
????????????????????????????????????????????????????????????????????????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
   166
????????????????????????????>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
   167
????????????????????????????????????????????????????????????????????????????????????????????????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
   168
!!*^=$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
   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
????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
   171
#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
   172
????????????????????????????????????<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
   173
????????????????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
   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
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   176
?????????????????????????????????????????????????????????????????????????????????????????????O7=????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   177
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   178
????????????????????????????????????????????????????????????????????????????????????????????????????????????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
   179
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   180
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   181
????????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
   182
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   183
????????????????????????????????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
   184
;?S7????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   185
????????????????????????????????????????????????????????????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
   186
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
   187
????????????????????????????????????????????????????????;/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
   188
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
   189
????????????????????????????????????????????????????????????????????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
   190
????????????=_#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
   191
????????????????????????????????????????????????????????????????????????????????????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
   192
????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   193
????????????????''[#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
   194
+,SS????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   195
????????????????????????????>_/<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
   196
????????^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
   197
????????????????????????????????</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
   198
????????????????????????????????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
   199
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
   200
????????????????????????????????????????????????????????????????????;_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
   201
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
   202
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
   203
?/??;?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
   204
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
   205
?????????????????/??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
   206
</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
   207
????????????????????????????????????????????=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
   208
(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
   209
????????????????????????????????????????????????????????????????????????????????????????<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
   210
&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
   211
????????????????????????') ; yourself]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   212
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   213
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   214
libjavaCupIconInTree
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   215
    "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
   216
     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
   217
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   218
    "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
   219
     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
   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
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   222
     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
   223
     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
   224
     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
   225
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   226
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   227
    <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
   228
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   229
    ^Icon
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   230
        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
   231
        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
   232
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
   233
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
   234
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
   235
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
   236
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
   237
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
   238
! !
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
!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
   241
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   242
open    
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   243
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 |
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   245
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 := 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
   247
    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
   248
                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
   249
    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
   250
    settingsApp selectedItem value:
3761
a904f50cfef2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3642
diff changeset
   251
        (settingsApp applicationList root children anElement).
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   252
    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
   253
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   254
    "Created: / 19-07-2012 / 11:25:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3761
a904f50cfef2 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3642
diff changeset
   255
    "Modified: / 09-10-2017 / 17:19:44 / stefan"
2353
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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   258
!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
   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
packageBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   261
    "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
   262
     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
   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
    "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
   265
     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
   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
     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
   269
     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
   270
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   271
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   272
    <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
   273
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   274
    ^ 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   275
     #(FullSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   276
        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
   277
        window: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   278
       (WindowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   279
          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
   280
          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
   281
          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
   282
          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
   283
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   284
        component: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   285
       (SpecCollection
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   286
          collection: (
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   287
           (SubCanvasSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   288
              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
   289
              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
   290
              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
   291
              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
   292
              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
   293
              subAspectHolders: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   294
             (Array
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   295
                
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   296
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   297
                  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
   298
                  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
   299
                ) 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   300
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   301
                  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
   302
                  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
   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
              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
   306
              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
   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
         
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   310
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   311
      )
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
    "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
   314
!
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
userBundleTabSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   317
    "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
   318
     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
   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
    "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
   321
     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
   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
     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
   325
     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
   326
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   327
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   328
    <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
   329
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   330
    ^ 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   331
     #(FullSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   332
        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
   333
        window: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   334
       (WindowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   335
          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
   336
          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
   337
          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
   338
          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
   339
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   340
        component: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   341
       (SpecCollection
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   342
          collection: (
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   343
           (SubCanvasSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   344
              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
   345
              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
   346
              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
   347
              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
   348
              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
   349
              subAspectHolders: 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   350
             (Array
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   351
                
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   352
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   353
                  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
   354
                  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
   355
                ) 
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   356
               (SubChannelInfoSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   357
                  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
   358
                  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
   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
              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
   362
              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
   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
         
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   366
        )
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   367
      )
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
    "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
   370
!
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
windowSpec
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   373
    "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
   374
     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
   375
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   376
    "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
   377
     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
   378
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
     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
   381
     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
   382
     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
   383
    "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   384
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   385
    <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
   386
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   387
    ^ 
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   388
    #(FullSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   389
       name: windowSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   390
       window: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   391
      (WindowSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   392
         label: 'Java Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   393
         name: 'Java Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   394
         min: (Point 10 10)
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   395
         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
   396
       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   397
       component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   398
      (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   399
         collection: (
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   400
          (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   401
             label: ' Java Settings'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   402
             name: 'SubVersiSettingsTitle'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   403
             layout: (LayoutFrame 0 0 0 0 0 1 66 0)
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   404
             style: (FontDescription helvetica medium roman 18 #'iso10646-1' nil nil)
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   405
             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
   406
             translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   407
             adjust: left
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   408
           )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   409
          (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   410
             label: 'Icon'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   411
             name: 'JavaIcon'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   412
             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
   413
             hasCharacterOrientedLabel: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   414
             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
   415
             translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   416
             labelChannel: libjavaCupIcon
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   417
           )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   418
          (SubCanvasSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   419
             name: 'InfoPanel'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   420
             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
   421
             level: 0
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   422
             initiallyInvisible: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   423
             hasHorizontalScrollBar: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   424
             hasVerticalScrollBar: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   425
             clientKey: infoPanel
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   426
             createNewBuilder: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   427
           )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   428
          (VerticalPanelViewSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   429
             name: 'Controls'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   430
             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
   431
             horizontalLayout: fit
3297
8eb3481bfdcf Java settings cleanup (part 3): removed user bundle editor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3296
diff changeset
   432
             verticalLayout: top
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   433
             horizontalSpace: 3
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   434
             verticalSpace: 3
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   435
             component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   436
            (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   437
               collection: (
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   438
                (FramedBoxSpec
3297
8eb3481bfdcf Java settings cleanup (part 3): removed user bundle editor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3296
diff changeset
   439
                   label: 'Java'
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   440
                   name: 'JavaReleasePanel'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   441
                   labelPosition: topLeft
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   442
                   translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   443
                   component: 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   444
                  (SpecCollection
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   445
                     collection: (
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   446
                      (CheckBoxSpec
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   447
                         label: 'Use Default JVM ("java" command)'
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   448
                         name: 'CheckBox1'
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   449
                         layout: (LayoutFrame 106 0 1 0 0 1 23 0)
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   450
                         model: useDefaultJVM
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   451
                         translateLabel: true
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   452
                       )
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   453
                      (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   454
                         label: 'Java Home:'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   455
                         name: 'JavaHomeLabel'
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   456
                         layout: (LayoutFrame 0 0 34 0 105 0 59 0)
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   457
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   458
                         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
   459
                       )
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   460
                      (ComboBoxSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   461
                         name: 'JavaHomeField'
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   462
                         layout: (LayoutFrame 110 0.0 34 0 -100 1.0 59 0)
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   463
                         enableChannel: notUseDefaultJVM
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   464
                         model: javaHomeHolder
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   465
                         acceptOnPointerLeave: false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   466
                         comboList: javaHomeList
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   467
                         postBuildCallback: postBuildJavaHomeFIeld:
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   468
                       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   469
                      (ActionButtonSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   470
                         label: 'Browse'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   471
                         name: 'Button1'
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   472
                         layout: (LayoutFrame -100 1 34 0 0 1 59 0)
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   473
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   474
                         model: doBrowseJavaHome
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   475
                         enableChannel: notUseDefaultJVM
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   476
                       )
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   477
                      (LabelSpec
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   478
                         label: 'Label'
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   479
                         name: 'Label1'
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   480
                         layout: (LayoutFrame 110 0 64 0 0 1 89 0)
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   481
                         translateLabel: true
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   482
                         labelChannel: javaHomeInfoHolder
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   483
                         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
   484
                       )
3296
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
                   )
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   488
                   extent: (Point 695 124)
3296
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 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
   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
doBrowseJavaHome
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   503
    <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
   504
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   505
    | 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
   506
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   507
    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
   508
    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
   509
        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
   510
    ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   511
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   512
    "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
   513
!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   514
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   515
updateJavaHomeInfo
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   516
    | home release info |
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   517
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   518
    home := self javaHomeHolder value.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   519
    info := ''.
3814
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   520
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   521
    JavaReleaseNotFoundError handle:[:ex |
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   522
        release := nil.
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   523
    ] do:[    
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   524
        home isEmptyOrNil ifTrue:[ 
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   525
            release := JavaRelease default.
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   526
        ] ifFalse:[ 
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   527
            home asFilename isDirectory ifTrue:[  
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   528
                release := JavaRelease inDirectory: home.
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   529
            ]
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   530
        ].
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   531
    ].    
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   532
    release isNil ifTrue:[
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   533
        info := 'No java found (or release is not supported)' withColor:Color red
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   534
    ] ifFalse:[    
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   535
        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
   536
                                         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
   537
                                         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
   538
        release isSystem ifTrue:[ 
3642
08a1340710b2 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3628
diff changeset
   539
            info := info asText. "/ not underlined - how severe is this info?
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   540
        ].    
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   541
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   542
    self javaHomeInfoHolder value: info
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   543
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   544
    "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
   545
    "Modified: / 09-12-2014 / 14:08:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3814
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   546
    "Modified: / 28-08-2018 / 15:47:51 / Claus Gittinger"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   547
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   548
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   549
!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
   550
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   551
infoPanel
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   552
    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
   553
        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
   554
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   555
    ^ infoPanel
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   556
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   557
    "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
   558
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   559
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   560
javaHomeHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   561
    <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
   562
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   563
    javaHomeHolder isNil ifTrue:[
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   564
        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
   565
        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
   566
        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
   567
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   568
    ^ javaHomeHolder.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   569
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   570
    "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
   571
    "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
   572
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   573
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   574
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
   575
    <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
   576
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   577
    "automatically generated by UIPainter ..."
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   578
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   579
    "*** 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
   580
    "*** (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
   581
    "*** 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
   582
    "*** (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
   583
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   584
    javaHomeInfoHolder isNil ifTrue:[
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   585
        javaHomeInfoHolder := ValueHolder new.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   586
"/ 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
   587
"/       javaHomeInfoHolder addDependent:self.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   588
"/       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
   589
    ].
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   590
    ^ 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
   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
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   593
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
   594
    <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
   595
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   596
    ^ [
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   597
        | 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
   598
3814
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   599
        JavaReleaseNotFoundError handle:[:ex |
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   600
            homesAndReleases := OrderedCollection new.
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   601
        ] do:[
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   602
            homesAndReleases := OrderedCollection withAll: JavaRelease available .
eb2aa2c60642 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3793
diff changeset
   603
        ].
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   604
        JavaRelease system notNil ifTrue:[
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   605
            (homesAndReleases includesIdentical: JavaRelease system) ifFalse:[ 
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   606
                homesAndReleases add: JavaRelease system.
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   607
            ].
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   608
        ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   609
        (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
   610
            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
   611
        ].
3900
7acd9bc59ce6 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3814
diff changeset
   612
        homesAndReleases addLast: ((resources string:'Autodetect') withColor: Color gray).
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   613
        homesAndReleases.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   614
    ]
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   615
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   616
    "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
   617
    "Modified: / 09-12-2014 / 14:06:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3900
7acd9bc59ce6 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3814
diff changeset
   618
    "Modified: / 07-06-2019 / 22:32:36 / Claus Gittinger"
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
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   620
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   621
notUseDefaultJVM
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   622
    <resource: #uiAspect>
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   623
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   624
    ^ BlockValue forLogicalNot:self useDefaultJVM 
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   625
!
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   626
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   627
trueHolder
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   628
    ^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   629
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   630
    "Created: / 28-01-2013 / 20:34:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   631
!
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   632
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   633
useDefaultJVM
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   634
    <resource: #uiAspect>
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   635
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   636
    useDefaultJVM isNil ifTrue:[
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   637
        useDefaultJVM := ValueHolder new.
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   638
    ].
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   639
    ^ useDefaultJVM.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   640
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   641
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   642
!JavaSettingsApplication methodsFor:'hooks'!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   643
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   644
postBuildJavaHomeFIeld: aComboBox
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   645
    aComboBox menuSelectAction: [ :value |
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   646
        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
   647
            aComboBox field contents: ''
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   648
        ] ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   649
            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
   650
        ]
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   651
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   652
    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
   653
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   654
    "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
   655
! !
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   656
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   657
!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
   658
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   659
basicReadSettings
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   660
    |javaHome|
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   661
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   662
    self javaHomeHolder value: (javaHome := currentUserPrefs javaHome).
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   663
    self useDefaultJVM value:(javaHome isEmptyOrNil).    
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   664
    self updateJavaHomeInfo.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   665
3297
8eb3481bfdcf Java settings cleanup (part 3): removed user bundle editor
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3296
diff changeset
   666
    "Modified (format): / 09-12-2014 / 14:53:44 / 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
   667
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   668
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   669
basicSaveSettings
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   670
    |javaHome|
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   671
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   672
    self useDefaultJVM value ifTrue:[
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   673
        javaHome := nil.
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   674
    ] ifFalse:[
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   675
        javaHome := self javaHomeHolder value
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   676
    ].
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   677
    currentUserPrefs javaHome:javaHome
2353
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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   680
helpFilename
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   681
    "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
   682
     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
   683
     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
   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
    ^ '../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
   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
    "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
   688
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   689
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   690
!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
   691
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   692
hasUnsavedChanges
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   693
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   694
    self validate ifFalse:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   695
        ^ 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
   696
    ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   697
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   698
    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
   699
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   700
    ^ false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   701
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   702
    "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
   703
! !
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   704
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   705
!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
   706
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   707
validate
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   708
    self validateJavaHome ifFalse:[ ^ false ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   709
    self validationOK.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   710
    ^ 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
   711
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   712
    "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
   713
!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   714
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   715
validateJavaHome    
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   716
    | 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
   717
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   718
    javaHome := self javaHomeHolder value.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   719
    javaHome isEmptyOrNil ifTrue:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   720
        ^ true.
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
    javaHome asFilename exists ifFalse:[  
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   723
        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
   724
        ^ false.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   725
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   726
    javaHome asFilename isDirectory ifFalse:[  
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   727
        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
   728
        ^ false.
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
    javaRelease := JavaRelease inDirectory: javaHome.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   731
    javaRelease isNil ifTrue:[ 
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   732
        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
   733
        ^ false
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   734
    ].
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   735
    ^ 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
   736
3296
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   737
    "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
   738
    "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
   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
validationError:message
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   742
    self infoPanel
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   743
        reset;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   744
        beWarning;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   745
        message: message;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   746
        show.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   747
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   748
    "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
   749
!
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   750
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   751
validationOK
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   752
    self infoPanel
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   753
        reset;
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   754
        hide.
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   755
761c7bb5853c Java settings cleanup (part 2): release settings refactored.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3295
diff changeset
   756
    "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
   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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   759
!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
   760
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   761
version_CVS
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   762
    ^ '$Header$'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   763
!
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
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
   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
    ^ '$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
   768
!
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
version_SVN
3628
8ab4d5916ba6 #BUGFIX by mawalch
mawalch
parents: 3412
diff changeset
   771
    ^ '$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
   772
! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   773
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
JavaSettingsApplication initialize!