Tools__InternationalLanguageTranslationEditor.st
author Claus Gittinger <cg@exept.de>
Tue, 12 Feb 2019 10:58:37 +0100
changeset 3636 197a2fbb8c5d
parent 3629 3b7a40bf90cb
child 3638 0b8614c96523
permissions -rw-r--r--
#FEATURE by cg class: MenuEditor changed: #processEvent: Accept key
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
     1
"{ Encoding: utf8 }"
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
     2
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ Package: 'stx:libtool2' }"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
"{ NameSpace: Tools }"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
ApplicationModel subclass:#InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	instanceVariableNames:'languagesList keyStringsToLanguageMappings languageTextHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
		originalTextHolder modified shownLanguages selectedKeyRow
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
		showMissingTranslationsOnly
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
		keyStringAndLanguageSelectionTableColumnDescriptionHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
		languageShownHolders dataSetView lastExtractedClass
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
		lastExtractedApplicationClass stopApplicationIconVisibleHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
		monitoredApplication originalTextModifiedHolder
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
    15
		languageTextModifiedHolder languageTextAcceptHolder
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
    16
		inSingleFileMode lastExtractedProject lastLanguage
2050
fm
parents: 2049
diff changeset
    17
		lastSelectedKey autoAcceptHolder languageEditor
fm
parents: 2049
diff changeset
    18
		selectedColIndexHolder exampleLanguageSelectionHolder
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
    19
		exampleLanguageTextHolder pastePreviousTranslationEnableHolder
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
    20
		searchForSimilarTranslationEnableHolder alwaysWriteUTF8Holder
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    21
		lastNameSpace pasteOriginalEnableHolder ignoreCaseHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    22
		closeSearchBar searchTextModifiedHolder searchNextText
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    23
		searchBarImageInfoLabelHolder searchPreviousText searchBoxVisible
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
    24
		searchBarInfoLabelHolder searchTextHolder searchTextView
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
    25
		searchBoxView translationsPanel lastPackage methodsUsingKey'
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
    26
	classVariableNames:'LastExtractedClass LastExtractedApplicationClass
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
    27
		LastExtractedProject LastProject'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	category:'Interface-UIPainter'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
Object subclass:#AccessCollectingPseudoResourcePack
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
    33
	instanceVariableNames:'collectedKeys realResourcePack watchingTranslationEditor'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
Collection subclass:#KeyStringsToLanguageMappings
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
    40
	instanceVariableNames:'keys keyInfo perLanguageInfo perLanguageMappings languageMappings
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
    41
		languages rowPerKey'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
Object subclass:#LanguageMappingRow
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
	instanceVariableNames:'key mappings'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
Visitor subclass:#UISpecVisitor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
	instanceVariableNames:'translatedLabels'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
	classVariableNames:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
	poolDictionaries:''
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
	privateIn:InternationalLanguageTranslationEditor
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!InternationalLanguageTranslationEditor class methodsFor:'documentation'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
documentation
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
    documentation to be added.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
    [author:]
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    68
	cg (cg@FUSI)
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
    [instance variables:]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
    [class variables:]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
    [see also:]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
examples
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
  Starting the application:
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    82
								[exBegin]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
    InternationalLanguageTranslationEditor open
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    85
								[exEnd]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    87
  more examples to be added:
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    88
								[exBegin]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    89
    ... add code fragment for
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    90
    ... executable example here ...
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
    91
								[exEnd]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
history
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
    "Created: / 04-03-2006 / 09:07:19 / cg"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
    99
!InternationalLanguageTranslationEditor class methodsFor:'help spec'!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   100
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   101
helpSpec
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   102
    <resource: #help>
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   103
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   104
    ^ super helpSpec addPairsFrom:#(
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   105
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   106
#searchBox
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   107
'Show a search box at the bottom to search for substrings in the string keys'
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   108
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   109
#browseReferringMethods
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   110
'Browse methods which refer to this string'
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   111
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   112
)
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   113
! !
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
   114
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   115
!InternationalLanguageTranslationEditor class methodsFor:'image specs'!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   116
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   117
closeSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   118
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   119
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   120
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   121
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   122
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   123
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   124
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   125
     self closeSearchBar inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   126
     ImageEditor openOnClass:self andSelector:#closeSearchBar
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   127
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   128
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   129
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   130
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   131
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   132
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   133
	constantNamed:#'Psiware::SystemManagement class closeSearchBar'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   134
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   135
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ\SD1LSD1LSD1LSD1LWGP@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   136
@ATGA@HA@PDA@PDA@PHDA1T@@@@@@@@TAENG!!(VB XA?_''57QPPT@@@@@@@@E NJ^V)&X%)UTT5IV7 KE @@@@@@@A A"7Q,#&9VS%^MQ$E<DQ @@@@@@@@Z
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   137
@X%-#9NRX52R$80:^1@Z@@@@@@@@F0FHY6>R$9JR$9ION''(PF0@@@@@@@A<A 5ABT)FS$9D=KR13C1<@@@@@@@@)@WUCND*Q$9NQM"T!!XP8)@@@@@@@@K E2
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   138
O4RQ$9FQ$9@2G%8JK @@@@@@@CLA\S2D$9D9M)BS]!!1]BSL@@@@@@@@7@W@5LXP6J2\2]"P"VP 7@@@@@@@@O U+R3@*I2T#HA0&N5 RO @@@@@@@D LPF%(
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   139
YVQ W59]VU 4CD @@@@@@@AGFP4F@PDA@PDA@PDFCQ%G@@@@@@@@K41TUEQTUEQTUEQTUEQLK0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   140
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 167 25 15 170 49 40 171 50 39 174 68 60 176 56 48 176 58 49 183 118 110 184 45 32 184 46 32 184 47 34 184 71 58 184 85 78 184 86 79 185 53 39 186 57 42 186 59 43 186 60 45 186 68 58 190 187 180 192 188 181 193 189 182 194 190 183 195 192 184 197 194 186 202 148 142 202 199 191 205 202 195 207 64 48 207 203 195 208 65 49 208 205 198 209 65 49 209 66 49 209 69 52 210 66 49 210 78 64 211 67 51 211 71 54 212 69 51 212 208 200 212 208 202 213 69 52 213 70 52 213 79 57 215 80 59 215 212 206 217 214 207 218 79 62 218 84 67 219 107 95 219 216 210 221 84 63 221 84 67 221 109 96 221 218 213 222 76 56 222 110 96 222 113 79 223 87 67 223 87 70 223 115 99 224 221 216 225 89 72 225 105 91 225 117 84 227 89 64 227 91 73 227 112 98 227 115 95 227 122 92 227 224 219 227 225 219 228 113 83 228 113 99 229 102 87 229 226 221 230 115 84 230 117 81 230 142 117 231 102 80 231 116 86 231 120 103 231 131 119 231 228 224 232 118 88 232 119 82 233 143 117 234 99 76 234 102 79 234 119 89 234 127 100 234 145 119 235 104 82 235 106 86 236 108 89 236 110 92 236 113 92 236 121 91 236 146 119 237 113 95 237 115 98 237 122 92 237 132 100 238 117 101 238 119 104 238 123 93 238 123 109 238 131 98 238 133 102 238 146 120 238 148 121 239 125 112 239 127 115 239 129 118 239 131 105 239 134 102 240 135 122 240 200 196 242 135 113 242 141 116 242 141 119 242 145 116 242 147 118 242 148 120 243 137 115 243 138 118 243 141 121 243 142 123 243 144 126 243 145 129 243 151 134 243 202 197 244 147 132 244 149 135 244 152 137 244 163 142 244 164 145 245 160 143 245 164 146 245 213 204 246 213 203 248 215 205 249 215 206 252 244 243 253 244 243 253 247 245 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? G?? @@@@@@@@@@@@') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   141
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   142
    "Created: / 15-06-2007 / 18:04:38 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   143
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   144
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   145
restartSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   146
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   147
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   148
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   149
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   150
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   151
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   152
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   153
     self restartSearchBarIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   154
     ImageEditor openOnClass:self andSelector:#restartSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   155
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   156
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   157
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   158
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   159
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   160
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   161
	constantNamed:#'Psiware::SystemManagement class restartSearchBarIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   162
	ifAbsentPut:[(Depth24Image new) width: 20; height: 20; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   163
@@@@@@@@@@@@@@@@@@@@@@@@?>SX?>''V?>;)?>O!!?>G]?>WY@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=3\:[>''5;JF/Y-.+XY),(U.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   164
6JZK?=J1?>V<>.+I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>?'':+:!!19]U6*-Q?]Y/?>RC?>*!!?>F_>+=939UL2Y!!L>MJT??W[@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   165
@@@@??[-=\^&1IEP=<Q[?>1/?=5$?=52?>NT?=^Q?>BP?>FG>;1]6JEO8;^H?]3I@@@@@@@@@@@@@@@@@@@@?\*95Y-)<+!!$??.F?>)17+-U8,E40Y-.09I)
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   166
:Z1-?=I??=)8?<1.>K597;NL??K,@@@@@@@@@@@@?=#M6I>B>+:@?>2U=,]]5[IN7,^C5LB[<MWL?]#O=,BZ7)=\>;Y[??FP?=>O1YEW8<B$;=WH@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   167
>,"%8Z:A?>N#?>._5KA$9-JW7=+FX6M+V%U3"''*T0Y>V4ZA7595T=;1"?=&D?=&L,W(93IU\:KE9=LBG9[Q9;K1<?=^R:K591*-6??''[@@@@RE%37>7?=?/?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   168
>^_''3*.M0YAU<K5,?>ZO?=>G?<!!6?<Y6>+U(69YI3:IG?=Z@?>NU5:=19,6%@@@@@@@@OU5*2.+7;O??5-KF2;JS?=*&?>&"?=.E?>2R?=&F?>"X8I-N5)ED
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   169
29$&?>M:?=*F3:E&>]/A@@@@@@@@O5=.7O??5^/(?O++<M.>0I-/;LNE??2)?=&B?>^%,W)A8:14?=FX3)TR?>U/?=Q:3IAZ?=?T@@@@@@@@P5Y68_#?7.70
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   170
??[1??C_:,F%6;A=>MJA?>6":,6+&G91?>+^?>+]79<$?<1\?=:C5IM[?<;F@@@@@@@@Q$1>6N_?<?+?<.W.?>3*??S(=,.(2Z!!#=-:^+9>P4,[P<>''46=O^
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   171
=+MX;Z)O?>^Q:Z]*;+Z''@@@@@@@@TD:O9^/?;/C??>???>/:?>71?>7Z;]^%0+JA7=CI8]O"0+[D8=#&?<&V79="?=2L?\E88[BG@@@@@@@@VU&M=_3?9N''?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   172
>/C???K??NK/??[1???#9M?B??3;(IV#/[WD;^_5@@@@;KR]<[10?=Q68[9,8,>W@@@@TU9&;/??9__9:.;/?_#<??/?>?[==?79>_?=<_S9T5M[0,WN7^G*
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   173
@@@@@@@@1Y= >=!!>9,]-3[],6]B''TEH=;O_''=O?6>O77>O''=>//?=_+?:O_?:_''?>O??SEM[/<[P6.O,@@@@@@@@8-F%1*%/9[>@?>R(7+VG_%,;\E]CW$=H
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   174
U5AWV5%.U5);R5M:Q5M;S%-=TE]*[GI>):696M;*@@@@@@@@@@@@6\F[2Y914)9.;[VF?L"!!8[^_3J>''0KB:0;?V0,_''-<C),K/(,;7!!+[OI,K[D2=G_9N+8
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   175
@@@@@@@@@@@@@@@@@@@@?\*_7*]>3))5/II9+9FF+9> 0;7I5-#-7NO?7^#?8^/?:/G?7NK07>W3@@@@@@@@@@@@@@@@@@@@@@@@?>N;?>N;?=:9?>7T?>#X
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   176
>^_%=N?6<OK?@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 20; height: 20; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@?@OC?0OO?8O_?<O_?>O???O?????_??>_??>_??>_??>_??>_??>_??__??O???O???G???A??/A? O') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   177
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   178
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   179
searchNextIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   180
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   181
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   182
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   183
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   184
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   185
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   186
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   187
     self searchNextIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   188
     ImageEditor openOnClass:self andSelector:#searchNextIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   189
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   190
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   191
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   192
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   193
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   194
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   195
	constantNamed:#'Psiware::SystemManagement class searchNextIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   196
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   197
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE)ZZ@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   198
@@@@@@AFF XA@PXUQ @@@@@@@@@@@@@@@@@*@Q5G^WX6E0D*@@@@@@@@@@@@@@@,AVQ?\&1#W&X8@20@@@@@@@@@@@A[@U==\F-"VUQOUSLAV0@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   199
G19-D <NCP0KB!!@7D1<@@@@@@@@@  ]MT5JY&Y&Y&Y%RLR4G  @@@@@@@H\A WL $)&Y&Y&RF35B@X\@@@@@@@BK@XA1WA"X&Y&XE#T:P@FK@@@@@@@@# !!H
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   200
]F$<II&YH3H>N2 H# @@@@@@@@@''GG)*Y2$9NRIDO4DQHP@@@@@@@@@@!!@EP[6U]I"UIQTL.@XP@@@@@@@@@@@ALAD-.XE]VS$(/@$0@@@@@@@@@@@@@@EDA
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   201
FSQ!!VC@T@UD@@@@@@@@@@@@@@@@@#R,I@PDIJ84@@@@@@@@@@@@@@@@@@@@@%)^W% @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   202
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 48 54 77 55 63 87 56 64 89 57 67 90 59 67 90 64 69 89 71 74 92 72 76 96 76 81 100 80 89 118 82 90 119 83 91 120 84 92 122 86 94 123 87 96 124 89 97 126 92 104 132 97 106 136 97 110 138 97 112 138 100 102 112 101 107 130 104 118 144 105 113 135 105 124 146 107 109 118 107 116 144 110 127 148 112 126 148 113 129 148 117 119 129 118 130 156 119 123 133 125 140 174 127 131 146 127 132 148 127 146 178 130 151 181 131 132 143 133 149 185 133 152 182 134 134 138 137 140 150 138 138 142 139 156 191 141 160 195 143 164 199 143 169 198 144 157 197 144 158 197 152 173 208 153 184 209 155 167 210 156 180 208 157 179 215 157 180 211 160 162 171 160 173 216 160 174 216 160 182 214 161 173 217 161 174 217 161 176 219 161 179 220 161 180 220 163 182 222 163 184 222 164 182 222 164 184 223 166 164 161 166 189 212 166 194 211 167 190 228 167 194 229 167 200 221 169 170 174 169 195 212 169 196 232 170 181 228 170 203 221 171 171 176 171 173 182 171 193 220 173 182 232 173 192 232 173 200 234 175 206 239 175 210 240 176 188 237 178 175 168 178 175 173 178 202 234 178 206 240 179 195 238 180 205 223 180 214 243 180 216 244 181 193 242 181 195 239 181 204 223 181 212 243 182 206 242 182 209 243 184 180 173 184 211 244 184 215 245 185 198 246 185 200 244 188 215 233 188 225 249 189 226 249 190 206 250 190 219 248 191 209 249 191 217 248 191 222 248 192 188 181 192 221 249 194 190 184 195 191 184 196 226 251 196 232 251 199 196 189 202 198 191 202 226 253 203 199 193 203 229 253 203 237 252 203 237 253 204 202 196 206 202 195 206 205 204 207 203 196 208 204 197 208 205 201 212 208 200 212 208 201 212 208 202 212 209 205 213 210 202 213 212 213 214 211 206 215 212 207 216 213 206 218 215 210 220 221 223 221 219 214 222 219 215 222 220 215 230 228 225 236 235 232 243 243 244 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@G C@_8C@?<CA?>CC??CC??CG??#G??#G??#G??#C??CC??CA?>C@?<C@_8C@G C@@@C@@@C@@@C') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   203
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   204
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   205
searchPreviousIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   206
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   207
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   208
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   209
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   210
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   211
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   212
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   213
     self searchPreviousIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   214
     ImageEditor openOnClass:self andSelector:#searchPreviousIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   215
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   216
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   217
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   218
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   219
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   220
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   221
	constantNamed:#'Psiware::SystemManagement class searchPreviousIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   222
	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   223
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%)^W% @@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   224
@@@@@@BMJ0$A@P$+#P@@@@@@@@@@@@@@@@AQ@Q$4XU 0E@EQ@@@@@@@@@@@@@@ALAD-.XE]VS$(/@$0@@@@@@@@@@@BD@UA/YU4&IT%EP28A!!@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   225
I11:Z&\)NS$"QC=ADRD@@@@@@@@@# !!H]F$<II&YH3H>N2 H# @@@@@@@H,A GE\FI"Y&Y VMS)@@X,@@@@@@@BG@XE3HIJY&Y&Y$!!,=P FG@@@@@@@@  ]M
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   226
T5JY&Y&Y&Y%RLR4G  @@@@@@@@@_G&4RC08MC@,JDC\SG0@@@@@@@@@@V0E__WA+X%%TS5T3@U,@@@@@@@@@@@@,AVQ?\&1#W&X8@20@@@@@@@@@@@@@@B(A
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   227
GT]9]#XW@R(@@@@@@@@@@@@@@@@@Q!!(F@PDFETX@@@@@@@@@@@@@@@@@@@@@ZE)ZZ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   228
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 48 54 77 55 63 87 56 64 89 57 67 90 59 67 90 64 69 89 71 74 92 72 76 96 76 81 100 80 89 118 82 90 119 83 91 120 84 92 122 86 94 123 87 96 124 89 97 126 92 104 132 97 106 136 97 110 138 97 112 138 100 102 112 101 107 130 104 118 144 105 113 135 105 124 146 107 109 118 107 116 144 110 127 148 112 126 148 113 129 148 117 119 129 118 130 156 119 123 133 125 140 174 127 131 146 127 132 148 127 146 178 130 151 181 131 132 143 133 149 185 133 152 182 134 134 138 137 140 150 138 138 142 139 156 191 141 160 195 143 164 199 143 169 198 144 157 197 144 158 197 152 173 208 153 184 209 155 167 210 156 180 208 157 179 215 157 180 211 160 162 171 160 173 216 160 174 216 160 182 214 161 173 217 161 174 217 161 176 219 161 179 220 161 180 220 163 182 222 163 184 222 164 182 222 164 184 223 166 164 161 166 189 212 166 194 211 167 190 228 167 194 229 167 200 221 169 170 174 169 195 212 169 196 232 170 181 228 170 203 221 171 171 176 171 173 182 171 193 220 173 182 232 173 192 232 173 200 234 175 206 239 175 210 240 176 188 237 178 175 168 178 175 173 178 202 234 178 206 240 179 195 238 180 205 223 180 214 243 180 216 244 181 193 242 181 195 239 181 204 223 181 212 243 182 206 242 182 209 243 184 180 173 184 211 244 184 215 245 185 198 246 185 200 244 188 215 233 188 225 249 189 226 249 190 206 250 190 219 248 191 209 249 191 217 248 191 222 248 192 188 181 192 221 249 194 190 184 195 191 184 196 226 251 196 232 251 199 196 189 202 198 191 202 226 253 203 199 193 203 229 253 203 237 252 203 237 253 204 202 196 206 202 195 206 205 204 207 203 196 208 204 197 208 205 201 212 208 200 212 208 201 212 208 202 212 209 205 213 210 202 213 212 213 214 211 206 215 212 207 216 213 206 218 215 210 220 221 223 221 219 214 222 219 215 222 220 215 230 228 225 236 235 232 243 243 244 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@G C@_8C@?<CA?>CC??CC??CG??#G??#G??#G??#C??CC??CA?>C@?<C@_8C@G C@@@C@@@C@@@C') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   229
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   230
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   231
searchToolBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   232
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   233
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   234
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   235
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   236
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   237
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   238
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   239
     self searchToolBarIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   240
     ImageEditor openOnClass:self andSelector:#searchToolBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   241
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   242
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   243
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   244
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   245
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   246
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   247
	constantNamed:#'Psiware::SystemManagement class searchToolBarIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   248
	ifAbsentPut:[(Depth24Image new) width: 22; height: 22; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   249
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   250
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   251
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4][>4][>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   252
@@@@@@@@@@@@@@@@@@@@@@@@@@@@;>#8/L#+!!:KS!!:KS/,'',;>''9@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2];>^)WH
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   253
NE:+KU*:J5&9NE6*_I#K4^S>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4][>RV3DLER"SWR6$K#0#;[.SGJ4L5"''UG_N4][>@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   254
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*K''\JT*,U6Z7:^S?>/C*;.3,6>C>RFF(KEZ"3-_-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   255
@@@@@@@@@@@@&Z''HFTF &Z7">N#:7NK?7NK?6=W>!!Y''YH4N -+3T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%I>;FDV)#ZWU??''57NK?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   256
7NK?:>_?\8WKFCN".K#T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@1L;.A#V[O5")3=W;=/[4</W:1,??K$JVI4Z\7-''4@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   257
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?-,[1E#:&C"ZZH3F U6_EU63FHS^XHS.K JOX7-''4@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   258
,K_*O5ZTCRBLPU&0FCBHDB&RDR6RH$NI Y#I4][>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?-;#%ND&KC">BYV.*4=;>7.+>-<K!!,K/!!7NK?
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   259
:^C;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?/K3^PT%<CBI/NE>==O;8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   260
@@@@@@@@@@@@7NK? (J9GB1SZV>W:M3?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@5MS&++3H6M/#@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   261
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@7NK?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   262
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   263
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   264
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   265
@@@@@@@@@@@@@@@@') ; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@C@A C@G8C@O<C@_>C@_>C@_>C@_>C@_>C@?>CA?<CC?8CG8@CG0@CC @CA@@C@@@C@@@C@@@C@@@C') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   266
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   267
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   268
warningSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   269
    "This resource specification was automatically generated
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   270
     by the ImageEditor of ST/X."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   271
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   272
    "Do not manually edit this!! If it is corrupted,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   273
     the ImageEditor may not be able to read the specification."
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   274
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   275
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   276
     self warningSearchBarIcon inspect
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   277
     ImageEditor openOnClass:self andSelector:#warningSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   278
     Icon flushCachedIcons
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   279
    "
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   280
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   281
    <resource: #image>
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   282
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   283
    ^Icon
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   284
	constantNamed:#'Psiware::SystemManagement class warningSearchBarIcon'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   285
	ifAbsentPut:[(Depth24Image new) width: 22; height: 19; photometric:(#rgb); bitsPerSample:(#[8 8 8]); samplesPerPixel:(3); bits:(ByteArray fromPackedString:'
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   286
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?:.+<Y"P??C\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>_;?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   287
@@@@?]SZ)5]X.6!! -HM2??''*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>39-7*B4H&G>[N+%%MJ>\#A@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   288
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<+R?*U1&?=CN?>W^4HJ@+FY$?>+"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   289
@@@@@@@@@@@@@@@@@@@@?>G_)U!!^>Z^->,B><+"4?*^-%C8?;;Z+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@??#1-(E;.65+?<#H
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   290
?=_T?=GP?::65W-=(EQF?>WQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?\#D*VAY?;61<;"0;,C@6J^+;*"0>ZN$&CX)6(-:@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   291
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>#+/7Q148E6?<"4<L&:W#(:G@@@392!!48^G9WM(%24_?=WN@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   292
??C?7Y&$.E5\?;V*=<:8??K_R3X5DP@@4+R49ZZ!!7VIZ/#85)%UR??G/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?=7.2&)6=IJQ?;..=]W@??7*PS$7E@,N
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   293
4<OC?>K^>(M=1S8;)$ID8Y6^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@;HNR4U%%<)&S?<^9??_(??;3REEN@P,J2<[C??K/?:R!!/C8?&R(0(T-N?>GZ@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   294
@@@@@@@@@@@@@@@@@@@@?<;H,31B3T9U2'')1?L3@?>3&=^7*XWE0@@<M7=;\??S3?=_U46-,#Q(!!$B,/18"A@@@@@@@@@@@@@@@@@@@@??G&1G!!*,S03)SP,
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   295
3()?>=WL??_:<>33[G:@D2T%;^/,??#8??K19Y6^&R(0!!QPX#S8:;K22@@@@@@@@@@@@@@@@<*RZ+5I@*$D+*T48<[N&?>C_7,+U??3?7N''/(J.-?/+;??W5
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   296
;.O!!?>G_3&]+ 0(O#B8.(U9X@@@@@@@@@@@@?<?Y/%MM.487%$P^7I)7?<&=?=+ <^W3;?C?YV]3JR .-*60=/W35.[#<>W"?:*+*3@3$R\)^R ''2)^T@@@@
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   297
?>K2;(ZO2DQ@-SP!!,5H/?<F!!?<V=?;3B?=_"?>7:)72EUBT+<,GD?>?,<M;Z>]GO?<#J8VM& P4P_A0^ C(:?>+''?:"+34%H13L/02("13T(13\,5$H>3S<=
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   298
1TMC0DQD/$IB/D@>.S4;-S,8,C(:,C 9-3X:(A4""@4R_1DT RH&/6%*?82D/S8503873C<85C<923H,23@+/RP\-"HX,"HW+"DX*"@V)10U)1(S)!!XU)AXU
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   299
(Q0_$1XZ#1X["A(]^QPX&34>?;&).&-Z/6]Y06MU1&AR/5UG15-N0EYF1&EO0&EN/&EP.6AN.%5N.5-M.5%P/UYQ.$)I.4)L0UQW/U-\+5YX5XFA') ; mask:((Depth1Image new) width: 22; height: 19; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@C G@G0C@O0C@O8C@_8C@?<C@?<CA?>CC??CC??CC??#G??#O??3O??3_??;????????????????') ; yourself); yourself]
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   300
! !
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
   301
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   302
!InternationalLanguageTranslationEditor class methodsFor:'interface specs'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   303
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
windowSpec
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   305
    "This resource specification was automatically generated
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   306
     by the UIPainter of ST/X."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   307
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   308
    "Do not manually edit this!! If it is corrupted,
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   309
     the UIPainter may not be able to read the specification."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   310
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   311
    "
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
   312
     UIPainter new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#windowSpec
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
   313
     Tools::InternationalLanguageTranslationEditor new openInterface:#windowSpec
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
   314
     Tools::InternationalLanguageTranslationEditor open
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   315
    "
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
    <resource: #canvas>
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   319
    ^ 
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   320
    #(FullSpec
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   321
       name: windowSpec
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   322
       uuid: '37d7f37a-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   323
       window: 
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   324
      (WindowSpec
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   325
         label: 'InternationalLanguageTranslationEditor'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   326
         name: 'InternationalLanguageTranslationEditor'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   327
         uuid: '37d7f60e-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   328
         min: (Point 10 10)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   329
         bounds: (Rectangle 0 0 774 610)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   330
         menu: mainMenu
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   331
       )
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   332
       component: 
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   333
      (SpecCollection
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   334
         collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   335
          (MenuPanelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   336
             name: 'ToolBar'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   337
             layout: (LayoutFrame 0 0 0 0 0 1 30 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   338
             uuid: '37d7f820-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   339
             menu: menuToolBar
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   340
             textDefault: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   341
           )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   342
          (VariableVerticalPanelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   343
             name: 'TranslationsVariableVerticalPanel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   344
             layout: (LayoutFrame 0 0 30 0 0 1 -32 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   345
             uuid: '37d7f9ce-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   346
             component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   347
            (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   348
               collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   349
                (DataSetSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   350
                   name: 'KeyStringAndLanguageSelectionTable'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   351
                   uuid: '37d7fb2c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   352
                   model: selectedKeyRow
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   353
                   menu: keyStringAndLanguageSelectionTableMenu
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   354
                   hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   355
                   hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   356
                   dataList: keyStringAndLanguageSelectionTable
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   357
                   columnHolder: keyStringAndLanguageSelectionTableColumnDescriptionHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   358
                   beDependentOfRows: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   359
                   columnAdaptor: yourself
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   360
                   postBuildCallback: postBuildDataSet:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   361
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   362
                (VariableVerticalPanelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   363
                   name: 'VariableVerticalPanel1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   364
                   uuid: '37d7fd48-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   365
                   component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   366
                  (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   367
                     collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   368
                      (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   369
                         name: 'Box1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   370
                         uuid: '37d7fe24-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   371
                         component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   372
                        (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   373
                           collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   374
                            (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   375
                               label: 'Original String (Key):'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   376
                               name: 'Label2'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   377
                               layout: (LayoutFrame 0 0 -2 0 0 1 28 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   378
                               uuid: '37d7fee2-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   379
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   380
                               adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   381
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   382
                            (TextEditorSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   383
                               name: 'OriginalText'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   384
                               layout: (LayoutFrame 0 0 27 0 0 1 -2 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   385
                               uuid: '37d8002c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   386
                               model: originalTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   387
                               hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   388
                               hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   389
                               modifiedChannel: originalTextModifiedHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   390
                               acceptCallBack: languageTextAccepted
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   391
                               hasKeyboardFocusInitially: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   392
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   393
                            )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   394
                          
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   395
                         )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   396
                       )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   397
                      (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   398
                         name: 'Box3'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   399
                         uuid: '37d801bc-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   400
                         component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   401
                        (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   402
                           collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   403
                            (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   404
                               label: 'Select Another Language as example:'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   405
                               name: 'Label3'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   406
                               layout: (LayoutFrame 0 0 -6 0 0 1 24 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   407
                               uuid: '37d80270-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   408
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   409
                               adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   410
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   411
                            (ComboBoxSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   412
                               name: 'ComboBox1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   413
                               layout: (LayoutFrame 281 0 -2 0 406 0 18 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   414
                               uuid: '37d80360-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   415
                               model: exampleLanguageSelectionHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   416
                               immediateAccept: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   417
                               acceptOnLeave: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   418
                               acceptOnLostFocus: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   419
                               acceptOnPointerLeave: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   420
                               comboList: shownLanguages
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   421
                               useIndex: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   422
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   423
                            (TextEditorSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   424
                               name: 'ExampleLanguageText'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   425
                               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   426
                               uuid: '37d805cc-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   427
                               model: exampleLanguageTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   428
                               hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   429
                               hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   430
                               isReadOnly: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   431
                               hasKeyboardFocusInitially: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   432
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   433
                            )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   434
                          
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   435
                         )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   436
                       )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   437
                      (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   438
                         name: 'Box2'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   439
                         uuid: '37d8070c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   440
                         component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   441
                        (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   442
                           collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   443
                            (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   444
                               label: 'Translated String:'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   445
                               name: 'Label1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   446
                               layout: (LayoutFrame 0 0 0 0 0 1 30 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   447
                               uuid: '37d807ca-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   448
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   449
                               adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   450
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   451
                            (TextEditorSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   452
                               name: 'LanguageText'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   453
                               layout: (LayoutFrame 0 0 30 0 0 1 0 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   454
                               uuid: '37d808ba-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   455
                               model: languageTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   456
                               hasHorizontalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   457
                               hasVerticalScrollBar: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   458
                               acceptChannel: languageTextAcceptHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   459
                               modifiedChannel: languageTextModifiedHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   460
                               acceptCallBack: languageTextAccepted
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   461
                               hasKeyboardFocusInitially: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   462
                               postBuildCallback: languageEditorBuilt:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   463
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   464
                            (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   465
                               label: 'Paste Original'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   466
                               name: 'Button1'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   467
                               layout: (LayoutFrame -186 0.83085250338295003 0 0 -64 0.83085250338295003 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   468
                               uuid: '37d809fa-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   469
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   470
                               model: pasteOriginalInLanguageText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   471
                               enableChannel: pasteOriginalEnableHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   472
                               disabledLogo: 'Paste Original'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   473
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   474
                            (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   475
                               label: 'Paste Previous'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   476
                               name: 'pastePreviousTranslation'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   477
                               layout: (LayoutFrame -42 0.83085250338295003 0 0 118 0.83085250338295003 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   478
                               uuid: '37d80b80-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   479
                               translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   480
                               model: pastePreviousTranslationInLanguageText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   481
                               enableChannel: pastePreviousTranslationEnableHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   482
                               disabledLogo: 'Paste Previous'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   483
                             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   484
                            )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   485
                          
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   486
                         )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   487
                       )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   488
                      )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   489
                    
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   490
                   )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   491
                   handles: (Any 0.33000000000000002 0.67000000000000004 1.0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   492
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   493
                )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   494
              
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   495
             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   496
             handles: (Any 0.5 1.0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   497
             postBuildCallback: postBuildTranslationsPanel:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   498
           )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   499
          (ViewSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   500
             name: 'SearchBox'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   501
             layout: (LayoutFrame 0 0 -32 1 0 1 0 1)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   502
             uuid: '37d80cf2-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   503
             level: -1
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   504
             visibilityChannel: searchBoxVisible
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   505
             component: 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   506
            (SpecCollection
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   507
               collection: (
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   508
                (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   509
                   label: 'closeSearchBarIcon'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   510
                   name: 'closeSearchBarButton'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   511
                   layout: (LayoutFrame 4 0 5 0 25 0 26 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   512
                   uuid: '37d80dc4-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   513
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   514
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   515
                   model: closeSearchBar
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   516
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   517
                (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   518
                   label: 'Search:'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   519
                   name: 'SearchLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   520
                   layout: (LayoutFrame 30 0 5 0 100 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   521
                   uuid: '37d80ef0-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   522
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   523
                   adjust: right
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   524
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   525
                (InputFieldSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   526
                   name: 'SearchEntryField'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   527
                   layout: (LayoutFrame 100 0 5 0 257 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   528
                   uuid: '37d80fd6-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   529
                   model: searchTextHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   530
                   immediateAccept: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   531
                   acceptOnReturn: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   532
                   acceptOnTab: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   533
                   acceptOnLostFocus: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   534
                   modifiedChannel: searchTextModifiedHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   535
                   acceptOnPointerLeave: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   536
                   postBuildCallback: postBuildSearchTextView:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   537
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   538
                (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   539
                   label: 'searchNextIcon'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   540
                   name: 'SearchNextButton'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   541
                   layout: (LayoutFrame 264 0 5 0 285 0 26 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   542
                   uuid: '37d8117a-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   543
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   544
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   545
                   model: searchNextText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   546
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   547
                (ActionButtonSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   548
                   label: 'searchPreviousIcon'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   549
                   name: 'searchPreviousButton'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   550
                   layout: (LayoutFrame 292 0 5 0 313 0 26 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   551
                   uuid: '37d812b0-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   552
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   553
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   554
                   model: searchPreviousText
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   555
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   556
                (CheckBoxSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   557
                   label: 'Ignore case'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   558
                   name: 'IgnoreCaseCheckBox'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   559
                   layout: (LayoutFrame 322 0 5 0 518 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   560
                   uuid: '37d813d2-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   561
                   model: ignoreCaseHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   562
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   563
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   564
                (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   565
                   label: 'SearchBarImageInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   566
                   name: 'SearchBarImageInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   567
                   layout: (LayoutFrame 524 0 5 0 548 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   568
                   uuid: '37d81512-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   569
                   hasCharacterOrientedLabel: false
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   570
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   571
                   labelChannel: searchBarImageInfoLabelHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   572
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   573
                (LabelSpec
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   574
                   label: 'SearchBarInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   575
                   name: 'SearchBarInfoLabel'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   576
                   layout: (LayoutFrame 551 0 5 0 829 0 27 0)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   577
                   uuid: '37d8160c-b8d0-11e8-aeef-b8f6b1108e05'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   578
                   translateLabel: true
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   579
                   labelChannel: searchBarInfoLabelHolder
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   580
                   adjust: left
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   581
                 )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   582
                )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   583
              
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   584
             )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   585
             postBuildCallback: postBuildSearchBoxView:
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   586
           )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   587
          )
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
   588
        
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   589
       )
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
   590
     )
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
!InternationalLanguageTranslationEditor class methodsFor:'menu specs'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   595
keyStringAndLanguageSelectionTableMenu
641467b2f522 Search String
fm
parents: 2053
diff changeset
   596
    "This resource specification was automatically generated
641467b2f522 Search String
fm
parents: 2053
diff changeset
   597
     by the MenuEditor of ST/X."
641467b2f522 Search String
fm
parents: 2053
diff changeset
   598
641467b2f522 Search String
fm
parents: 2053
diff changeset
   599
    "Do not manually edit this!! If it is corrupted,
641467b2f522 Search String
fm
parents: 2053
diff changeset
   600
     the MenuEditor may not be able to read the specification."
641467b2f522 Search String
fm
parents: 2053
diff changeset
   601
3448
e4a15fd6bec5 #REFACTORING by mawalch
mawalch
parents: 3447
diff changeset
   602
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   603
    "
641467b2f522 Search String
fm
parents: 2053
diff changeset
   604
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#keyStringAndLanguageSelectionTableMenu
641467b2f522 Search String
fm
parents: 2053
diff changeset
   605
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor keyStringAndLanguageSelectionTableMenu)) startUp
641467b2f522 Search String
fm
parents: 2053
diff changeset
   606
    "
641467b2f522 Search String
fm
parents: 2053
diff changeset
   607
641467b2f522 Search String
fm
parents: 2053
diff changeset
   608
    <resource: #menu>
641467b2f522 Search String
fm
parents: 2053
diff changeset
   609
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   610
    ^
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   611
     #(Menu
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   612
	(
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   613
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   614
	    label: 'Browse Methods Containing this String'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   615
	    itemValue: browseReferringMethods
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   616
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   617
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   618
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   619
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   620
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   621
	    label: 'Set Current NameSpace...'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   622
	    itemValue: changeLastNameSpace
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   623
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   624
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   625
	    label: 'Search String in Current NameSpace'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   626
	    itemValue: searchStringInLastNameSpace
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   627
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   628
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   629
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   630
	    isVisible: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   631
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   632
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   633
	    label: 'Set Current Package...'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   634
	    itemValue: changeLastPackage
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   635
	    isVisible: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   636
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   637
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   638
	    label: 'Search String in Current Package'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   639
	    itemValue: searchStringInLastPackage
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   640
	    isVisible: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   641
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   642
	 )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   643
	nil
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   644
	nil
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
   645
      )
641467b2f522 Search String
fm
parents: 2053
diff changeset
   646
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
   647
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   648
mainMenu
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
    "This resource specification was automatically generated
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   650
     by the MenuEditor of ST/X."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   651
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   652
    "Do not manually edit this!! If it is corrupted,
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   653
     the MenuEditor may not be able to read the specification."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   654
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   655
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   656
    "
2050
fm
parents: 2049
diff changeset
   657
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#mainMenu
fm
parents: 2049
diff changeset
   658
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor mainMenu)) startUp
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   659
    "
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   660
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
    <resource: #menu>
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   662
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   663
    ^ 
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   664
     #(Menu
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   665
        (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   666
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   667
            label: 'File'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   668
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   669
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   670
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   671
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   672
                  label: 'New'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   673
                  itemValue: menuNew
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   674
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   675
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   676
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   677
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   678
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   679
                  label: 'Open Resources for Package or Project...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   680
                  itemValue: menuOpenByPackage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   681
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   682
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   683
                  label: 'Open Resource File...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   684
                  itemValue: menuOpen
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   685
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   686
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   687
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   688
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   689
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   690
                  label: 'Save All Resource Files'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   691
                  itemValue: menuSaveAll
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   692
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   693
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   694
                  label: 'Save Resource File'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   695
                  itemValue: menuSave
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   696
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   697
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   698
                  label: 'Save Resource File As...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   699
                  itemValue: menuSaveAs
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   700
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   701
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   702
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   703
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   704
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   705
                  label: 'Import existing translations from file...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   706
                  itemValue: importExistingTranslationsFromFile
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   707
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   708
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   709
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   710
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   711
               (MenuItem
3629
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   712
                  label: 'File Browser on Resource Directory'
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   713
                  itemValue: openFileBrowserOnResourceDirectory
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   714
                )
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   715
               (MenuItem
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   716
                  label: '-'
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   717
                )
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   718
               (MenuItem
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   719
                  label: 'Set Current NameSpace'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   720
                  itemValue: changeLastNameSpace
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   721
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   722
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   723
                  label: 'Set Current Package'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   724
                  itemValue: changeLastPackage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   725
                  isVisible: false
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   726
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   727
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   728
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   729
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   730
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   731
                  label: 'Exit'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   732
                  itemValue: closeRequest
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   733
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   734
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   735
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   736
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   737
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   738
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   739
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   740
            label: 'View'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   741
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   742
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   743
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   744
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   745
                  label: 'Show Missing Translations Only'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   746
                  indication: showMissingTranslationsOnly
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   747
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   748
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   749
                  label: 'Show Search Box'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   750
                  indication: searchBoxVisible
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   751
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   752
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   753
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   754
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   755
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   756
                  label: 'Shown Languages'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   757
                  submenuChannel: shownLanguagesMenu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   758
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   759
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   760
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   761
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   762
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   763
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   764
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   765
            label: 'Languages'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   766
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   767
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   768
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   769
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   770
                  label: 'Add Language...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   771
                  itemValue: addLanguage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   772
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   773
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   774
                  label: 'Remove Language...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   775
                  itemValue: removeLanguage
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   776
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   777
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   778
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   779
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   780
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   781
                  label: 'Merge...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   782
                  itemValue: mergeLanguages
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   783
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   784
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   785
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   786
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   787
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   788
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   789
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   790
            label: 'Translations'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   791
            submenuChannel: translationsMenuSpec
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   792
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   793
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   794
            label: 'Preferences'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   795
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   796
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   797
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   798
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   799
                  label: 'Auto Accept Changes'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   800
                  indication: autoAcceptHolder
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   801
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   802
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   803
                  label: 'Search For Similar Translations'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   804
                  indication: searchForSimilarTranslationEnableHolder
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   805
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   806
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   807
                  label: 'Always Write UTF8'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   808
                  indication: alwaysWriteUTF8Holder
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   809
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   810
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   811
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   812
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   813
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   814
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   815
         (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   816
            label: 'Help'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   817
            startGroup: right
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   818
            submenu: 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   819
           (Menu
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   820
              (
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   821
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   822
                  label: 'Documentation'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   823
                  itemValue: openDocumentation
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   824
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   825
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   826
                  label: '-'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   827
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   828
               (MenuItem
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   829
                  label: 'About this Application...'
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   830
                  itemValue: openAboutThisApplication
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   831
                )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   832
               )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   833
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   834
              nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   835
            )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   836
          )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   837
         )
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   838
        nil
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
   839
        nil
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
      )
3629
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   841
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
   842
    "Modified: / 30-10-2018 / 16:31:32 / Claus Gittinger"
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   845
menuItemsEditLanguage
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   846
    "This resource specification was automatically generated
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   847
     by the MenuEditor of ST/X."
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   848
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   849
    "Do not manually edit this!! If it is corrupted,
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   850
     the MenuEditor may not be able to read the specification."
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   851
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   852
    "
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   853
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menu
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   854
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menu)) startUp
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   855
    "
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   856
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   857
    <resource: #menu>
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   858
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   859
    ^
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   860
     #(Menu
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   861
	(
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   862
	 (MenuItem
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   863
	    enabled: pastePreviousTranslationEnableHolder
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   864
	    label: 'Paste Previous Translation'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   865
	    itemValue: pastePreviousTranslationInLanguageText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   866
	    nameKey: pastePreviousTranslationInLanguageText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   867
	    translateLabel: true
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   868
	  )
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   869
	 )
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   870
	nil
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
   871
	nil
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   872
      )
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   873
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   874
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
menuToolBar
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
    "This resource specification was automatically generated
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   877
     by the MenuEditor of ST/X."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
    "Do not manually edit this!! If it is corrupted,
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
     the MenuEditor may not be able to read the specification."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
2880
Claus Gittinger <cg@exept.de>
parents: 2570
diff changeset
   882
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   883
    "
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   884
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#menuToolBar
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
   885
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor menuToolBar)) startUp
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
    "
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
    <resource: #menu>
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   890
    ^
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
     #(Menu
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   892
	(
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   893
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   894
	    label: 'Save'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   895
	    itemValue: menuSave
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   896
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   897
	    labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   898
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   899
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   900
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   901
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   902
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   903
	    label: 'Add Translation'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   904
	    itemValue: addTranslation
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   905
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   906
	    labelImage: (ResourceRetriever XPToolbarIconLibrary newRowIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   907
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   908
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   909
	    label: 'Remove Translation'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   910
	    itemValue: removeTranslation
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   911
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   912
	    labelImage: (ResourceRetriever XPToolbarIconLibrary removeRowIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   913
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   914
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   915
	    label: '-'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   916
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   917
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   918
	    activeHelpKey: browseReferringMethods
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   919
	    label: 'Browse'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   920
	    itemValue: browseReferringMethods
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   921
	    labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowserIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   922
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   923
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   924
	    label: ''
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   925
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   926
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   927
	    label: 'Stop Application'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   928
	    itemValue: stopApplication
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   929
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   930
	    isVisible: stopApplicationIconVisibleHolder
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   931
	    labelImage: (ResourceRetriever XPToolbarIconLibrary stop16x16Icon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   932
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   933
	 (MenuItem
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   934
	    activeHelpKey: searchBox
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   935
	    label: 'Search'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   936
	    isButton: true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   937
	    startGroup: right
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   938
	    hideMenuOnActivated: false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   939
	    indication: searchBoxVisible
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   940
	    shortcutKey: Ctrlf
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   941
	    labelImage: (ResourceRetriever #'Tools::InternationalLanguageTranslationEditor' searchToolBarIcon)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   942
	  )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   943
	 )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   944
	nil
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
   945
	nil
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
      )
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   947
!
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   948
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   949
translationsMenuSpec
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   950
    "This resource specification was automatically generated
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   951
     by the MenuEditor of ST/X."
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   952
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   953
    "Do not manually edit this!! If it is corrupted,
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   954
     the MenuEditor may not be able to read the specification."
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   955
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   956
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   957
    "
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   958
     MenuEditor new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#translationsMenuSpec
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   959
     (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor translationsMenuSpec)) startUp
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   960
    "
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   961
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   962
    <resource: #menu>
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   963
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   964
    ^ 
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
   965
     #(Menu
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   966
        (
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   967
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   968
            label: 'Add Translation...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   969
            itemValue: addTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   970
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   971
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   972
            label: 'Remove Translation...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   973
            itemValue: removeTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   974
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   975
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   976
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   977
            isVisible: false
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   978
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   979
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   980
            label: 'Search Translation...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   981
            itemValue: searchTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   982
            isVisible: false
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   983
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   984
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   985
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   986
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   987
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   988
            label: 'Extract from Package...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   989
            itemValue: extractTranslationsFromProject
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   990
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   991
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   992
            label: 'Extract from Class...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   993
            itemValue: extractTranslationsFromClass
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   994
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   995
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   996
            label: 'Extract from NameSpace...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   997
            itemValue: extractTranslationsFromNameSpace
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   998
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
   999
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1000
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1001
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1002
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1003
            label: 'Run Application and Collect Translations...'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1004
            itemValue: runApplicationAndCollectTranslations
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1005
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1006
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1007
            label: '-'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1008
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1009
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1010
            label: 'Generate Missing Translations'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1011
            itemValue: generateMissingTranslations
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1012
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1013
         (MenuItem
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1014
            label: 'Generate Missing Translations Slice'
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1015
            submenuChannel: menuSliceTranslateGenerate
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1016
            isMenuSlice: true
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1017
          )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1018
         )
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1019
        nil
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1020
        nil
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1021
      )
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1022
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1023
2433
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1024
!InternationalLanguageTranslationEditor class methodsFor:'startup'!
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1025
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1026
openOnFile:aFilename
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1027
    |fn|
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1028
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1029
    fn := aFilename asFilename.
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1030
3077
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1031
    ^ self new
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1032
	allButOpen;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1033
	readResourceFile:fn asLanguage:fn withoutSuffix baseName;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1034
	openWindow;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1035
	yourself.
3077
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1036
!
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1037
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1038
openOnPackage:aPackageId
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  1039
    ^ self new
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1040
	allButOpen;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1041
	readResourceFileForPackage:aPackageId;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1042
	openWindow;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1043
	yourself.
2433
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1044
! !
88fbe1703c31 +openOnFile
Claus Gittinger <cg@exept.de>
parents: 2419
diff changeset
  1045
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1046
!InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1048
keyTableColumn
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1049
    "This resource specification was automatically generated
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1050
     by the DataSetBuilder of ST/X."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1051
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1052
    "Do not manually edit this!! If it is corrupted,
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1053
     the DataSetBuilder may not be able to read the specification."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1054
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1055
    "
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1056
     DataSetBuilder new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#keyTableColumn
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1057
    "
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1058
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1059
    <resource: #tableColumns>
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1060
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1061
    ^#(
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1062
      (DataSetColumnSpec
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1063
	 label: 'Key'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1064
	 labelButtonType: Button
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1065
	 minWidth: 50
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1066
	 model: keyStringInRow:
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1067
       )
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1068
      )
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1069
!
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1070
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1071
languageTableColumn
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1072
    "This resource specification was automatically generated
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1073
     by the DataSetBuilder of ST/X."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1074
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1075
    "Do not manually edit this!! If it is corrupted,
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1076
     the DataSetBuilder may not be able to read the specification."
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1077
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1078
    "
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1079
     DataSetBuilder new openOnClass:Tools::InternationalLanguageTranslationEditor andSelector:#languageTableColumn
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1080
    "
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1081
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1082
    <resource: #tableColumns>
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1083
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1084
    ^#(
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1085
      (DataSetColumnSpec
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1086
	 label: lang
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1087
	 labelButtonType: Button
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1088
	 minWidth: 50
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1089
	 editorType: None
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1090
	 model: columnInRow:at:
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1091
	 backgroundSelector: getBackgroundForRow:rowNr:col:
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1092
       )
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1093
      )
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1094
! !
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1095
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1096
!InternationalLanguageTranslationEditor methodsFor:'accessing'!
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1097
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1098
currentSelectionIndex
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1099
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1100
    ^ self selectedKeyRow value
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1101
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1102
    "Created: / 16-06-2007 / 09:04:11 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1103
    "Modified: / 19-06-2007 / 17:28:38 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1104
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1105
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1106
exists: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1107
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1108
    ^self objectsList includes: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1109
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1110
    "Created: / 19-06-2007 / 16:42:22 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1111
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1112
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1113
indexOf: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1114
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1115
    ^self objectsList indexOf: anObject
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1116
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1117
    "Created: / 19-06-2007 / 16:39:44 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1118
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1119
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1120
newLanguageText
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1121
"/   languageEditor accept
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
  1122
    ^self languageTextHolder value isEmptyOrNil
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1123
	ifTrue:['']
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1124
	ifFalse:[self languageTextHolder value asCollectionOfLines first.]
2050
fm
parents: 2049
diff changeset
  1125
!
fm
parents: 2049
diff changeset
  1126
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1127
objectsList
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1128
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1129
    ^ keyStringsToLanguageMappings
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1130
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1131
    "Modified: / 25-10-2018 / 16:25:08 / Claus Gittinger"
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1132
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1133
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1134
selectListIndex: rowIndex
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1135
"/    |selection list|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1136
"/    list := self objectsList.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1137
"/    list isEmpty ifTrue:[^self].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1138
"/    selection := list at:rowIndex ifAbsent:nil.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1139
    self selectedKeyRow value: rowIndex.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1140
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1141
    "Created: / 16-06-2007 / 09:06:46 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1142
    "Modified: / 22-06-2007 / 13:45:54 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1143
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1144
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1145
selectedKey
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1146
    "Returns the current selected key if there is one row seleted. Otherwise, returns nil"
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1147
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1148
    | rowSelectionIndex |
2050
fm
parents: 2049
diff changeset
  1149
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1150
    keyStringsToLanguageMappings isNil ifTrue:[^nil].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1151
    self selectedKeyRow value isNil ifTrue:[^nil].
2050
fm
parents: 2049
diff changeset
  1152
    rowSelectionIndex := self selectedKeyRow value.
fm
parents: 2049
diff changeset
  1153
    rowSelectionIndex == 0 ifTrue:[^nil].
fm
parents: 2049
diff changeset
  1154
    ^ keyStringsToLanguageMappings keyAt:rowSelectionIndex.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1155
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1156
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1157
tableView
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1158
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1159
    ^dataSetView scrolledView
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1160
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1161
    "Created: / 15-06-2007 / 18:59:51 / Administrador"
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1162
! !
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  1163
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1164
!InternationalLanguageTranslationEditor methodsFor:'additionalFunctionalities'!
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1165
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1166
searchForSimilarTranslation
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1167
    "Looks for a quite similar translation for the key and display a dialog with available options"
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1168
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1169
    |similarTranslationsAssociations selectedTranslation key|
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1170
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1171
    self shouldSearchForSimilarTranslation ifFalse:[^self].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1172
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1173
    key := self selectedKey.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1174
    key isNil ifTrue:[^ self.].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1175
    similarTranslationsAssociations := keyStringsToLanguageMappings searchForSimilarTranslation: key in: self currentLanguage.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1176
    similarTranslationsAssociations isEmpty ifTrue:[^self].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1177
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1178
    similarTranslationsAssociations := similarTranslationsAssociations associations inject: OrderedCollection new into:[:collection :association |
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1179
        collection detect:[:selectedAssociation |
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1180
            selectedAssociation value sameAs: association value] ifNone:[collection add: association].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1181
        collection].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1182
    selectedTranslation := Dialog
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1183
        choose:'Choose one if you consider it´s usefull to translate:
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1184
    ',
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1185
        '<', key, '>  ', (self currentExampleLanguageText ifNil:[''])
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1186
        fromList: (similarTranslationsAssociations collect:[:each |  '<', each key, '>  ', each value])
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1187
        values: (similarTranslationsAssociations collect:[:each | each value])
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1188
        lines:10
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1189
        cancel: nil.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1190
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1191
    selectedTranslation notNil ifTrue:[self languageTextHolderValue: selectedTranslation].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1192
! !
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1193
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
!InternationalLanguageTranslationEditor methodsFor:'aspects'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1196
alwaysWriteUTF8Holder
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1197
    alwaysWriteUTF8Holder isNil ifTrue:[alwaysWriteUTF8Holder := true asValue].
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1198
    ^ alwaysWriteUTF8Holder
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1199
!
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1200
2050
fm
parents: 2049
diff changeset
  1201
autoAcceptHolder
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1202
    autoAcceptHolder isNil ifTrue:[autoAcceptHolder := true asValue].
2050
fm
parents: 2049
diff changeset
  1203
    ^ autoAcceptHolder
fm
parents: 2049
diff changeset
  1204
!
fm
parents: 2049
diff changeset
  1205
fm
parents: 2049
diff changeset
  1206
exampleLanguageSelectionHolder
fm
parents: 2049
diff changeset
  1207
    exampleLanguageSelectionHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1208
	exampleLanguageSelectionHolder := self exampleLanguageByDefault asValue.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1209
	exampleLanguageSelectionHolder addDependent:self.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1210
    ].
2050
fm
parents: 2049
diff changeset
  1211
    ^ exampleLanguageSelectionHolder
fm
parents: 2049
diff changeset
  1212
!
fm
parents: 2049
diff changeset
  1213
fm
parents: 2049
diff changeset
  1214
exampleLanguageTextHolder
fm
parents: 2049
diff changeset
  1215
    exampleLanguageTextHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1216
	exampleLanguageTextHolder := '' asValue.
2050
fm
parents: 2049
diff changeset
  1217
    ].
fm
parents: 2049
diff changeset
  1218
    ^ exampleLanguageTextHolder.
fm
parents: 2049
diff changeset
  1219
!
fm
parents: 2049
diff changeset
  1220
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1221
ignoreCaseHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1222
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1223
    ignoreCaseHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1224
	ignoreCaseHolder := false asValue.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1225
"/ if your app needs to be notified of changes, uncomment one of the lines below:
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1226
"/       ignoreCaseHolder addDependent:self.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1227
	ignoreCaseHolder onChangeSend:#ignoreCaseHolderChanged to:self.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1228
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1229
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1230
    ^ ignoreCaseHolder.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1231
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1232
    "Created: / 16-06-2007 / 06:45:04 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1233
    "Modified: / 16-06-2007 / 19:32:15 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1234
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1235
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1236
keyStringAndLanguageSelectionTable
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1237
    keyStringsToLanguageMappings isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1238
	keyStringsToLanguageMappings := KeyStringsToLanguageMappings new.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1239
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1240
    ^ keyStringsToLanguageMappings.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1241
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1242
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1243
keyStringAndLanguageSelectionTableColumnDescriptionHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1244
    keyStringAndLanguageSelectionTableColumnDescriptionHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1245
	keyStringAndLanguageSelectionTableColumnDescriptionHolder := ValueHolder new.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1246
	keyStringAndLanguageSelectionTableColumnDescriptionHolder value:(self keyStringAndLanguageSelectionTableColumnDescription).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1247
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1248
    ^ keyStringAndLanguageSelectionTableColumnDescriptionHolder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1249
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1250
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1251
languageAtCol:colNr
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1252
    ^ shownLanguages at:colNr-1.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1253
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1254
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1255
languageShownHolderFor:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1256
    |holder|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1257
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1258
    languageShownHolders isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1259
	languageShownHolders := Dictionary new
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1260
    ].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1261
    holder := languageShownHolders
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1262
		at:lang
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1263
		ifAbsentPut:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1264
		    |h|
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1265
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1266
		    h := true asValue.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1267
		    h onChangeEvaluate:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1268
			h value ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1269
			   self enableLanguageDisplayFor:lang
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1270
			] ifFalse:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1271
			   self disableLanguageDisplayFor:lang
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1272
			].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1273
		    ].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1274
		    h
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1275
		].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1276
    ^ holder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1277
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1278
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1279
languageTextAcceptHolder
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1280
    languageTextAcceptHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1281
	languageTextAcceptHolder := false asValue.
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1282
    ].
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1283
    ^ languageTextAcceptHolder.
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1284
!
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1285
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1286
languageTextHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1287
    languageTextHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1288
	languageTextHolder := '' asValue.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1289
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1290
    ^ languageTextHolder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1291
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1292
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1293
languageTextModifiedHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1294
    languageTextModifiedHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1295
	languageTextModifiedHolder := false asValue.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1296
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1297
    ^ languageTextModifiedHolder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1298
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1299
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1300
languagesList
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1301
    languagesList isNil ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1302
        languagesList := List withAll:(keyStringsToLanguageMappings languages).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1303
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1304
    ^ languagesList.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1305
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1306
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1307
originalTextHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1308
    originalTextHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1309
	originalTextHolder := '' asValue.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1310
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1311
    ^ originalTextHolder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1312
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1313
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1314
originalTextModifiedHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1315
    originalTextModifiedHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1316
	originalTextModifiedHolder := false asValue.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1317
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1318
    ^ originalTextModifiedHolder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1319
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1320
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1321
pasteOriginalEnableHolder
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1322
   pasteOriginalEnableHolder isNil ifTrue:[pasteOriginalEnableHolder := false asValue].
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1323
    ^ pasteOriginalEnableHolder
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1324
!
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1325
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1326
pastePreviousTranslationEnableHolder
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1327
   pastePreviousTranslationEnableHolder isNil ifTrue:[pastePreviousTranslationEnableHolder := false asValue].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1328
    ^ pastePreviousTranslationEnableHolder
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1329
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1330
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1331
searchBarImageInfoLabelHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1332
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1333
    searchBarImageInfoLabelHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1334
	searchBarImageInfoLabelHolder := nil asValue .
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1335
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1336
    ^ searchBarImageInfoLabelHolder.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1337
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1338
    "Created: / 16-06-2007 / 10:06:28 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1339
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1340
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1341
searchBarInfoLabelHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1342
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1343
    searchBarInfoLabelHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1344
	searchBarInfoLabelHolder := '' asValue .
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1345
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1346
    ^ searchBarInfoLabelHolder.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1347
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1348
    "Created: / 16-06-2007 / 06:20:49 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1349
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1350
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1351
searchBoxVisible
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1352
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1353
    searchBoxVisible isNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1354
	searchBoxVisible := false asValue.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1355
	searchBoxVisible
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1356
	    onChangeEvaluate:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1357
		self updateToolVisibility.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1358
		searchBoxVisible value ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1359
		    searchTextView takeFocus.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1360
		].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1361
	    ].
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1362
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1363
    ^ searchBoxVisible.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1364
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1365
    "Created: / 15-06-2007 / 18:15:52 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1366
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1367
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1368
searchForSimilarTranslationEnableHolder
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1369
   searchForSimilarTranslationEnableHolder isNil
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1370
	ifTrue:[searchForSimilarTranslationEnableHolder := true asValue].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1371
    ^ searchForSimilarTranslationEnableHolder
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1372
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1373
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1374
searchTextHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1375
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1376
    searchTextHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1377
	searchTextHolder := ValueHolder new.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1378
"/ if your app needs to be notified of changes, uncomment one of the lines below:
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1379
"/       userSelectedHolder addDependent:self.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1380
"/       userSelectedHolder onChangeSend:#searchTextHolderChanged to:self.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1381
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1382
    ^ searchTextHolder.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1383
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1384
    "Created: / 15-06-2007 / 18:06:08 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1385
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1386
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1387
searchTextModifiedHolder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1388
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1389
    searchTextModifiedHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1390
	searchTextModifiedHolder := false asValue .
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1391
"/ if your app needs to be notified of changes, uncomment one of the lines below:
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1392
"/       searchTextModifiedHolder addDependent:self.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1393
       searchTextModifiedHolder onChangeSend:#searchTextModifiedHolderChanged to:self.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1394
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1395
    ^ searchTextModifiedHolder.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1396
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1397
    "Created: / 15-06-2007 / 18:07:19 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1398
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1399
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1400
selectedKeyRow
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1401
    selectedKeyRow isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1402
	selectedKeyRow := ValueHolder new.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1403
	selectedKeyRow onChangeSend:#selectionChanged to:self.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1404
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1405
    ^ selectedKeyRow.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1406
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1407
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1408
showMissingTranslationsOnly
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1409
    showMissingTranslationsOnly isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1410
	showMissingTranslationsOnly := false asValue.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1411
	showMissingTranslationsOnly onChangeSend:#showMissingTranslationsOnlyChanged to:self.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1412
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1413
    ^ showMissingTranslationsOnly.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1414
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1415
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1416
shownLanguages
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1417
    shownLanguages isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1418
	shownLanguages := List new.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1419
	shownLanguages addAll:(self languagesList).
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1420
	shownLanguages onChangeSend:#shownLanguagesChanged to:self.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1421
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1422
    ^ shownLanguages.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1423
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1424
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1425
stopApplicationIconVisibleHolder
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1426
    stopApplicationIconVisibleHolder isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1427
	stopApplicationIconVisibleHolder := false asValue.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1428
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1429
    ^ stopApplicationIconVisibleHolder.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1430
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1431
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1432
!InternationalLanguageTranslationEditor methodsFor:'change & update'!
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1433
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1434
languageTextHolderValue: aString
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1435
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1436
    self languageTextHolder value: aString.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1437
    self languageTextModifiedHolder value:true.
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1438
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1439
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1440
update:something with:aParameter from:changedObject
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1441
    languageEditor modified ifTrue:[
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1442
        languageEditor accept
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1443
    ].    
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1444
    changedObject == shownLanguages ifTrue:[
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1445
         self shownLanguagesChanged.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1446
         ^ self.
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1447
    ].
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1448
    changedObject == languageTextAcceptHolder ifTrue:[
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1449
         self updateLanguageTextModification.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1450
         ^ self.
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1451
    ].
2050
fm
parents: 2049
diff changeset
  1452
    changedObject == exampleLanguageSelectionHolder ifTrue:[
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1453
        self updateExampleLanguageText.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1454
        ^ self.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1455
    ].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1456
    changedObject == showMissingTranslationsOnly ifTrue:[
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1457
        self showMissingTranslationsOnlyChanged.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1458
        ^ self.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1459
    ].
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1460
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1461
    "Modified: / 15-09-2018 / 12:17:07 / Claus Gittinger"
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1462
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1463
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1464
updateCopyPreviousTranslationButtonEnabled
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1465
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1466
     self pastePreviousTranslationEnableHolder value: self shouldCopyPreviousTranslationButtonBeEnabled
2050
fm
parents: 2049
diff changeset
  1467
!
fm
parents: 2049
diff changeset
  1468
fm
parents: 2049
diff changeset
  1469
updateExampleLanguageText
fm
parents: 2049
diff changeset
  1470
fm
parents: 2049
diff changeset
  1471
    self selectedKeyRow value isNil ifTrue:[^ self].
fm
parents: 2049
diff changeset
  1472
    self exampleLanguageTextHolder value:self currentExampleLanguageText
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1473
!
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1474
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1475
updateKeyStringsToLanguageMappings
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1476
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1477
    keyStringsToLanguageMappings
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1478
        at:lastSelectedKey language:lastLanguage put: self newLanguageText.
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1479
!
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1480
2050
fm
parents: 2049
diff changeset
  1481
updateLanguageAndKeySelection
fm
parents: 2049
diff changeset
  1482
fm
parents: 2049
diff changeset
  1483
    self originalTextHolder value: self selectedKey.
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1484
    self languageTextHolder value: (self languageTextFromSelectedKeyFor: self currentLanguage).
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1485
    lastLanguage := self currentLanguage.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1486
    lastSelectedKey := self selectedKey.
2050
fm
parents: 2049
diff changeset
  1487
!
fm
parents: 2049
diff changeset
  1488
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1489
updateLanguageTextModification
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1490
     self languageTextModifiedHolder value ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1491
	(self autoAccept or:[Dialog confirm:'Accept changed translation ?']) ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1492
	    self languageTextModifiedHolder value:false.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1493
	    self languageTextHolder value:languageEditor contents.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1494
	    lastLanguage notNil ifTrue:[self updateKeyStringsToLanguageMappings.]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1495
	]
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1496
    ].
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1497
!
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1498
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1499
updateOriginalTextModification
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1500
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1501
    |answer|
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1502
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1503
	self originalTextModifiedHolder value ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1504
	    answer := OptionBox
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1505
			  request:'Accept changed original text (key) ?'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1506
			  label:'Original text (key) changed'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1507
			  image:(WarningBox iconBitmap)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1508
			  buttonLabels:#('Cancel' 'Accept' 'Accept As New')
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1509
			  values:#(nil #accept #acceptAsNew)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1510
			  default:#acceptAsNew.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1511
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1512
	    answer isNil ifTrue:[^ self originalTextModifiedHolder value:false. ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1513
	    answer == #accept ifTrue:[
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
  1514
    self shouldImplement.        ].
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1515
	    answer == #acceptAsNew ifTrue:[
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
  1516
    self shouldImplement.        ].
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1517
	].
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1518
!
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1519
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1520
updatePasteOriginalButtonEnabled
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1521
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  1522
     self pasteOriginalEnableHolder value: self shouldPasteOriginalButtonBeEnabled
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1523
! !
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  1524
2050
fm
parents: 2049
diff changeset
  1525
!InternationalLanguageTranslationEditor methodsFor:'dialogs'!
fm
parents: 2049
diff changeset
  1526
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1527
requestEncoderDialog
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1528
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1529
   |box val characterCollection|
2050
fm
parents: 2049
diff changeset
  1530
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1531
    val := '' asValue.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1532
    box := Dialog new.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1533
    (box addTextLabel:'Select or write the encoder') adjust:#left.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1534
    box addVerticalSpace.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1535
    characterCollection := CharacterEncoder supportedExternalEncodings
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1536
	inject: OrderedCollection new
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1537
	into:[:collection :each |
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1538
	    collection add: each first;
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1539
			yourself].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1540
    (box addComboBoxOn:val) list: characterCollection.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1541
    box addOkButton.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1542
    box open.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1543
    ^val value
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1544
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1545
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1546
requestEncoderStringFor: lang
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1547
    "Returns an encoder string and updates the language's info"
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1548
  
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1549
    |encoderString encoder|
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1550
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1551
    encoderString := self requestEncoderDialog.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1552
    encoderString notEmpty ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1553
        encoder := CharacterEncoder encoderFor: encoderString ifAbsent:nil.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1554
        encoder notNil ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1555
            keyStringsToLanguageMappings atLanguage: lang putEncoder: encoder.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1556
        ].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1557
    ].
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1558
    ^encoderString
2050
fm
parents: 2049
diff changeset
  1559
!
fm
parents: 2049
diff changeset
  1560
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1561
requestFilename
2050
fm
parents: 2049
diff changeset
  1562
fm
parents: 2049
diff changeset
  1563
    |aFilename|
fm
parents: 2049
diff changeset
  1564
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1565
    aFilename := Dialog
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1566
	requestFileName:(resources string:'Name of resource file:')
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1567
	default:nil
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1568
	pattern:'*.rs'.
2050
fm
parents: 2049
diff changeset
  1569
fm
parents: 2049
diff changeset
  1570
    aFilename isEmptyOrNil ifTrue:[^ nil ].
fm
parents: 2049
diff changeset
  1571
    ^aFilename asFilename
fm
parents: 2049
diff changeset
  1572
!
fm
parents: 2049
diff changeset
  1573
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1574
requestFilenameFor: lang
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1575
    "Returns a filename to save the language resource and updates the language's info"
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1576
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1577
    |aFilename|
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1578
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1579
    aFilename := Dialog
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1580
        requestFileName:(resources string:'Name of resource file to save %1:' with:lang asString)
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1581
        default:nil
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1582
        pattern:'*.rs'.
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1583
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1584
    aFilename isEmptyOrNil ifTrue:[^ nil ].
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1585
    keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1586
    ^aFilename asFilename
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1587
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1588
    "Modified (format): / 15-09-2018 / 12:28:28 / Claus Gittinger"
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1589
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1590
2050
fm
parents: 2049
diff changeset
  1591
requestLanguage
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1592
    ^ Dialog
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1593
	choose:(resources string:'For which language ?')
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1594
	fromList:languagesList
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1595
	lines:10.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1596
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1597
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1598
requestLanguageToSave
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1599
    |question filename|
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1600
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1601
    question := resources string:'Which language do you want to save?'.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1602
    
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1603
    lastLanguage notNil ifTrue:[
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1604
        filename := keyStringsToLanguageMappings filenameAt:lastLanguage.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1605
        filename notNil ifTrue:[
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1606
            question := question , Character cr , 
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1607
                        (resources string:'(Last was "%1" in "%2")'
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1608
                                   with:lastLanguage
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1609
                                   with:(filename asFilename pathName)).
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1610
        ].    
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1611
    ].    
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1612
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1613
    ^ Dialog
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1614
        choose:question
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1615
        fromList:languagesList
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1616
        lines:10
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1617
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1618
    "Modified: / 15-09-2018 / 12:39:30 / Claus Gittinger"
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1619
!
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1620
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1621
requestPackage
2419
e71445e7174c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2416
diff changeset
  1622
    |package allProjects projectsWithResources|
e71445e7174c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2416
diff changeset
  1623
3264
93f5deb3f9b6 #REFACTORING by Maren
matilk
parents: 3248
diff changeset
  1624
    allProjects := Smalltalk allPackageIDs.
2419
e71445e7174c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2416
diff changeset
  1625
    projectsWithResources := allProjects
3620
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1626
                                select:[:pID |
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1627
                                    |dir|
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1628
                                    dir := Smalltalk projectDirectoryForPackage:pID.
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1629
                                    dir notNil and:[ (dir asFilename construct:'resources') exists]
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1630
                                ].
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1631
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1632
    package := Dialog
3620
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1633
        requestProject:(resources string:'Name of Package:')
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1634
        from:projectsWithResources
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1635
        initialAnswer:LastProject
c0f9b9ddd6bd #DOCUMENTATION by cg
Claus Gittinger <cg@exept.de>
parents: 3601
diff changeset
  1636
        suggestions:nil.
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1637
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1638
    package isEmptyOrNil ifTrue:[^ nil ].
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1639
    LastProject := package.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1640
    ^ package
2050
fm
parents: 2049
diff changeset
  1641
! !
fm
parents: 2049
diff changeset
  1642
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1643
!InternationalLanguageTranslationEditor methodsFor:'images'!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1644
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1645
restartSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1646
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1647
    ^ self class restartSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1648
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1649
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1650
warningSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1651
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1652
    ^ self class warningSearchBarIcon
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1653
! !
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1654
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1655
!InternationalLanguageTranslationEditor methodsFor:'initialization & release'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1656
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1657
closeRequest
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1658
    "asks for permission before closing"
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1659
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1660
    self hasUnsavedChanges ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1661
	(Dialog
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1662
	    confirm:(resources string:'Close without saving ?')
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1663
	    default:false) ifFalse:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1664
	    ^ self
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1665
	]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1666
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1667
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1668
    super closeRequest
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1669
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1670
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1671
editedLanguage:aSingleLanguageKey
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1672
    self languagesList contents:{ aSingleLanguageKey }.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1673
    self shownLanguages contents:{ aSingleLanguageKey }.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1674
!
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1675
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1676
initialize
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1677
    modified := false.
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  1678
    inSingleFileMode := false.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1679
    methodsUsingKey := Dictionary new.
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1680
    keyStringsToLanguageMappings := KeyStringsToLanguageMappings new.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1681
    languagesList := List withAll:(keyStringsToLanguageMappings languages).
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1682
    
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1683
    super initialize
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1684
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1685
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1686
languageEditorBuilt:aView
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1687
    languageEditor := aView.
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1688
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  1689
    "Modified: / 15-09-2018 / 12:16:22 / Claus Gittinger"
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1690
!
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1691
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1692
postBuildDataSet:aView
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1693
    dataSetView := aView.
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  1694
    aView selectedColIndexHolder onChangeSend:#selectionChanged to:self.
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1695
!
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1696
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1697
postBuildSearchBoxView: aBoxView
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1698
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1699
    searchBoxView := aBoxView
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1700
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1701
    "Created: / 15-06-2007 / 18:02:38 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1702
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1703
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1704
postBuildSearchTextView: anEditFieldView
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1705
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1706
    searchTextView := anEditFieldView
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1707
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1708
    "Created: / 15-06-2007 / 18:17:15 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1709
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1710
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1711
postBuildTranslationsPanel: aPanel
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1712
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1713
    translationsPanel := aPanel
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1714
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1715
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1716
postBuildWith:aBuilder
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1717
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1718
    super postBuildWith:aBuilder.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1719
    self updateToolVisibility.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1720
! !
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1721
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1722
!InternationalLanguageTranslationEditor methodsFor:'menu actions'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1723
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1724
addLanguage
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1725
    |lang|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1726
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1727
    lang := Dialog request:(resources string:'New language (ISO symbol):').
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1728
    lang isEmptyOrNil ifTrue:[^ self].
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1729
    self addLanguage:lang
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1730
!
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1731
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1732
addLanguage:langArg
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1733
    |lang|
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1734
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1735
    lang := langArg asSymbol.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1736
    (keyStringsToLanguageMappings includesLanguage:lang) ifTrue:[^ self ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1737
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1738
    keyStringsToLanguageMappings addLanguage:lang.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1739
    self languagesList add:lang.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1740
    self shownLanguages add:lang.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1741
    modified := true.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1742
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1743
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1744
addTranslation
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1745
    |key index|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1746
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1747
    key := Dialog request:'New Key:'.
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1748
    key isEmptyOrNil ifTrue:[^self].
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1749
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1750
    (self includesKey:key) ifFalse:[
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1751
        keyStringsToLanguageMappings addKey:key.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1752
        modified := true.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1753
    ].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1754
   index := keyStringsToLanguageMappings indexOfKey:key.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  1755
   self selectedKeyRow value:index
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1756
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  1757
    "Modified: / 25-10-2018 / 16:16:21 / Claus Gittinger"
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1758
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1759
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1760
browseReferringMethods
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1761
    |selectedKey methods browser|
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1762
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1763
    selectedKey := self selectedKey.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1764
    selectedKey isNil ifTrue:[^ Dialog information: 'No selected key'].
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1765
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1766
    methods := methodsUsingKey at:selectedKey ifAbsent:nil.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1767
    methods isEmptyOrNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1768
	Dialog information:(resources stringWithCRs:'oops - no method remembered.\Please rerun the extract from XXX menu operation').
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1769
	^ self.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1770
    ].
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1771
    browser := UserPreferences systemBrowserClass browseMethods:methods.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1772
    browser autoSearch:selectedKey ignoreCase:true.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1773
!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  1774
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1775
changeLastNameSpace
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1776
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1777
    |nameSpace defaultNameSpace|
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1778
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1779
    lastNameSpace notNil ifTrue:[defaultNameSpace := lastNameSpace name].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1780
    nameSpace := Dialog requestNameSpace:'NameSpace:' title:'Search String in Name Space:' initialAnswer:defaultNameSpace.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1781
    nameSpace isNil ifTrue:[^self].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1782
    nameSpace := Smalltalk at:nameSpace asSymbol.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1783
    nameSpace isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1784
	^Dialog information:(resources string:'No such nameSpace exists.')
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1785
    ].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1786
    lastNameSpace := nameSpace.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1787
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1788
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1789
changeLastPackage
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1790
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1791
    |package defaultPackage|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1792
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1793
    lastPackage notNil ifTrue:[defaultPackage := lastPackage].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1794
    package := Dialog
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1795
	    requestProject:'Package:'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1796
	    initialAnswer:defaultPackage
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1797
	    suggestions:#('foo' 'bar' 'baz').
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1798
    package isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1799
	^ self "/ Dialog information:(resources string:'No such package exists.')
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1800
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1801
    lastPackage := package.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1802
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1803
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1804
extractTranslationsFromClass
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1805
    |aClass newTranslations|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1806
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1807
    aClass := Dialog
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1808
		requestClass:'Class to extract translations from:'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1809
		okLabel:'OK'
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1810
		initialAnswer:(lastExtractedClass ? LastExtractedClass).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1811
    aClass isNil ifTrue:[^ self ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1812
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1813
    lastExtractedClass := LastExtractedClass := aClass.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1814
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1815
    newTranslations := self extractTranslationsFromClass:aClass.
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1816
    self addAllTranslations:newTranslations.
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1817
!
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1818
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1819
extractTranslationsFromNameSpace
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1820
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1821
    |newTranslations|
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1822
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1823
    self changeLastNameSpace.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1824
    lastNameSpace isNil ifTrue:[^self.].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1825
    newTranslations := OrderedCollection new.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1826
    lastNameSpace allClassesDo:[:eachClass |
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1827
	newTranslations addAll:( self extractTranslationsFromClass:eachClass theNonMetaclass).
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1828
    ].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1829
    self addAllTranslations:newTranslations.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1830
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1831
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1832
extractTranslationsFromProject
3455
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1833
    |projectID newTranslations initialAnswer suggestions|
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1834
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1835
    initialAnswer := lastExtractedProject ? LastExtractedProject.
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1836
    suggestions := initialAnswer isNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1837
	OrderedCollection new
3455
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1838
    ] ifFalse:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1839
	OrderedCollection with:initialAnswer
3455
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1840
    ].
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1841
    projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:initialAnswer suggestions:suggestions.
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1842
    projectID notNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1843
	projectID := projectID withoutSeparators asSymbol.
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1844
    ].
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1845
    projectID isEmptyOrNil ifTrue:[^ self ].
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1846
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1847
    lastExtractedProject := LastExtractedProject := projectID.
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  1848
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1849
    newTranslations := Set new.
3282
4e75a66b42af #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3264
diff changeset
  1850
    self withWaitCursorDo:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1851
	Smalltalk allClassesDo:[:eachClass |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1852
	    eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1853
		eachMethod package == projectID ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1854
		    newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1855
		]
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1856
	    ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1857
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1858
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1859
	self addAllTranslations:newTranslations.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1860
    ].
3454
5488b2613628 #BUGFIX by mawalch
mawalch
parents: 3448
diff changeset
  1861
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1862
    "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3455
4ba13182f80f #BUGFIX by mawalch
mawalch
parents: 3454
diff changeset
  1863
    "Modified: / 16-08-2017 / 12:29:21 / mawalch"
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1864
!
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1865
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1866
generateMissingTranslations: keys for: languages using: translator
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1867
    keys do:[:string |
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1868
        languages do:[:lang |
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1869
            | translation |
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1870
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1871
            translation := keyStringsToLanguageMappings at:string language:lang.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1872
            translation isNil ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1873
                translation := translator value: lang value: string.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1874
                translation notNil ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1875
                    keyStringsToLanguageMappings at: string language: lang put: translation.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1876
                ].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1877
            ].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1878
        ].
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1879
    ].
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1880
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1881
    "Created: / 19-02-2015 / 12:31:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1882
!
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1883
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1884
generateMissingTranslationsFor: languages
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  1885
    self
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1886
        generateMissingTranslations: keyStringsToLanguageMappings keys
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1887
        for: languages
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1888
        using: [ :lang :string | '**%1** %2' bindWith: lang asUppercase with: string ]
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1889
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1890
    "Created: / 19-02-2015 / 12:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1891
!
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1892
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1893
generateMissingTranslationsForAll
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1894
    self generateMissingTranslationsFor: keyStringsToLanguageMappings languages
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1895
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  1896
    "Created: / 19-02-2015 / 12:40:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1897
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1898
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1899
importExistingTranslationsFromFile
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1900
    self information:'The import function is not available in this release'.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1901
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1902
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1903
inspectCanvasMissingStrings
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1904
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1905
    |spec nameSpace missingStrings|
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1906
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1907
    missingStrings := OrderedCollection new.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1908
    nameSpace := Dialog requestNameSpace:'NameSpace:' title:'Specify NameSpace to look for missing strings' initialAnswer:nil.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1909
    nameSpace := Smalltalk at:nameSpace asSymbol.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1910
    nameSpace isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1911
	^Dialog information:(resources string:'No such nameSpace exists.?')
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1912
    ].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1913
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1914
    nameSpace allClassesDo:[:cls |
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1915
	cls theMetaclass methodsDo:[:m |
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1916
	    m hasResource ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1917
		(m resources includesKey:#canvas) ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1918
		    spec := (cls perform:m selector) decodeAsLiteralArray.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1919
		    spec do:[:eachComponent |
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1920
			eachComponent translationKeysDo:[:k |
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1921
			    (self includesKey: k) ifFalse:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1922
				missingStrings add: k.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1923
				Transcript showCR: k storeString, '                         ', m printString]]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1924
		    ]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1925
		]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1926
	    ]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1927
	]
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1928
    ].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1929
    missingStrings asSet inspect
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1930
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1931
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1932
menuNew    
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1933
    modified ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1934
        (Dialog
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1935
            confirm:(resources stringWithCRs:'Modified translations have not been changed.\\Create new translations set anyway ?')
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1936
            default:false) ifFalse:[^ self].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1937
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1938
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1939
    keyStringsToLanguageMappings initialize.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1940
    keyStringsToLanguageMappings changed.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1941
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1942
    self languagesList contents:keyStringsToLanguageMappings languages.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1943
    self shownLanguages contents:keyStringsToLanguageMappings languages.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1944
    modified := false.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1945
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1946
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1947
menuOpen
2050
fm
parents: 2049
diff changeset
  1948
    |aFilename|
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1949
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1950
    self withWaitCursorDo:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1951
	aFilename := self requestFilename.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1952
	aFilename isNil ifTrue:[^ self ].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1953
	self readResourceFile:aFilename.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  1954
    ]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1955
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1956
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1957
menuOpenByPackage
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1958
    |package|
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1959
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1960
    self withWaitCursorDo:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1961
	package := self requestPackage.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1962
	package isNil ifTrue:[^ self ].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1963
	self readResourceFileForPackage:package.
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1964
    ]
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1965
!
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  1966
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1967
menuSave
2050
fm
parents: 2049
diff changeset
  1968
"Saves the language selected in the fileName from where the language resource was obtained."
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1969
    |lang|
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1970
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1971
    lang := self requestLanguageToSave.
2050
fm
parents: 2049
diff changeset
  1972
    lang isNil ifTrue:[^ self].
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1973
    self saveLanguage: lang
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1974
!
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1975
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1976
menuSaveAll
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  1977
    "Saves all the languages in the fileName from where the language resource was obtained."
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1978
    keyStringsToLanguageMappings languagesInUse do:[:each | self saveLanguage: each].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1979
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1980
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1981
menuSaveAs
2050
fm
parents: 2049
diff changeset
  1982
"Saves the language selected in the specified fileName."
fm
parents: 2049
diff changeset
  1983
     |lang aFilename|
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1984
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  1985
    lang := self requestLanguageToSave.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  1986
    lang isNil ifTrue:[^ self].
3629
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  1987
    
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  1988
    aFilename := self requestFilenameFor:lang.
2050
fm
parents: 2049
diff changeset
  1989
    aFilename isNil ifTrue:[^ self].
fm
parents: 2049
diff changeset
  1990
    self saveResourceFile:aFilename for:lang asSymbol
3629
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  1991
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  1992
    "Modified (format): / 30-10-2018 / 16:33:04 / Claus Gittinger"
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1993
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1994
3599
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1995
mergeLanguages
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1996
    |sourceLanguage destLanguage possibleDestinationLanguages|
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1997
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1998
    sourceLanguage := Dialog 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  1999
                        request:'Merge entries from:' 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2000
                        initialAnswer:nil 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2001
                        list:(self languagesList)
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2002
                        title:'Source language'.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2003
    sourceLanguage isEmptyOrNil ifTrue:[^ self].
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2004
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2005
    possibleDestinationLanguages := self languagesList copyWithout:sourceLanguage.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2006
    
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2007
    destLanguage := Dialog 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2008
                        request:'Destination language:\(Missing entries in destination are filled in from source)' withCRs 
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2009
                        initialAnswer:(possibleDestinationLanguages size == 1
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2010
                                        ifTrue:[possibleDestinationLanguages first]
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2011
                                        ifFalse:[nil])
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2012
                        list:possibleDestinationLanguages
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2013
                        title:'Destination language'.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2014
    destLanguage isEmptyOrNil ifTrue:[^ self].
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2015
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2016
    "/ all empty entries of dest are filled in from source
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2017
    keyStringsToLanguageMappings keys do:[:eachKey |
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2018
        |newXlation|
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2019
        
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2020
        (keyStringsToLanguageMappings at:eachKey language:destLanguage) isEmptyOrNil ifTrue:[
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2021
            newXlation := keyStringsToLanguageMappings at:eachKey language:sourceLanguage.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2022
            newXlation notNil ifTrue:[
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2023
                self halt.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2024
                keyStringsToLanguageMappings at:eachKey language:destLanguage put:newXlation.
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2025
            ]
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2026
        ]
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2027
    ]
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2028
!
5b4499069510 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3595
diff changeset
  2029
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2030
openAboutThisApplication
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2031
    "This method was generated by the Browser.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2032
     It will be invoked when the menu-item 'help-about' is selected."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2033
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2034
    "/ could open a customized aboutBox here ...
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2035
    super openAboutThisApplication
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2036
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2037
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2038
openDocumentation
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2039
    "This method was generated by the Browser.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2040
     It will be invoked when the menu-item 'help-documentation' is selected."
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2041
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2042
    "/ change below as required ...
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2043
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2044
    "/ to open an HTML viewer on some document (under 'doc/online/<language>/' ):
2413
655f1c52504c help file reference fixed
Claus Gittinger <cg@exept.de>
parents: 2410
diff changeset
  2045
    HTMLDocumentView openFullOnDocumentationFile:'tools/languageEditor/TOP.html'.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2046
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2047
    "/ add application-specific help files under the 'doc/online/<language>/help/appName'
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2048
    "/ directory, and open a viewer with:
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2049
    "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2050
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2051
3629
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2052
openFileBrowserOnResourceDirectory
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2053
    |files dirs|
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2054
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2055
    files := keyStringsToLanguageMappings perLanguageInfo 
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2056
                keysAndValuesCollect:[:lang :eachInfo |
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2057
                    eachInfo at:#filename ifAbsent:nil
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2058
                ].
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2059
    files := files reject:[:f | f isNil].
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2060
    dirs := files collect:[:fn | fn asFilename directoryName] as:Set.
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2061
    dirs do:[:eachDir |
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2062
        UserPreferences current fileBrowserClass openOn:eachDir
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2063
    ]
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2064
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2065
    "Created: / 30-10-2018 / 16:32:21 / Claus Gittinger"
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2066
!
3b7a40bf90cb #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3627
diff changeset
  2067
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2068
readResourceFile:aFilename
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2069
    |lang|
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2070
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2071
    lang := self requestLanguage.
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2072
    lang isNil ifTrue:[^ self ].
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2073
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2074
    self readResourceFile:aFilename asLanguage:lang asSymbol
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2075
!
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  2076
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2077
readResourceFileForPackage:aPackage
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2078
    |allLanguages lang packageDir resourceDir langFile|
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2079
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2080
    packageDir := Smalltalk packageDirectoryForPackageId:aPackage.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2081
    resourceDir := packageDir asFilename construct:'resources'.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2082
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2083
    allLanguages := Set new.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2084
    resourceDir directoryContentsAsFilenamesDo:[:eachFile |
3627
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2085
        eachFile suffix = 'rs' ifTrue:[
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2086
            (('##.rs' match:eachFile baseName)
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2087
            or:[('##-##.rs' match:eachFile baseName)]) ifTrue:[
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2088
                allLanguages add:(eachFile withoutSuffix baseName)
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2089
            ].
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2090
        ].
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2091
    ].
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2092
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2093
    allLanguages addAll:languagesList.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2094
    allLanguages := allLanguages asSortedCollection.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2095
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2096
    lang := Dialog
3627
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2097
        choose:(resources string:'For which language ?')
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2098
        fromList:allLanguages
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2099
        values:allLanguages
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2100
        buttons:(resources array:#('All'))
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2101
        values:#(all)
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2102
        lines:10
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2103
        cancel:nil.
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2104
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2105
    lang isNil ifTrue:[^ self ].
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2106
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2107
    langFile := resourceDir construct:lang,'.rs'.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2108
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2109
    lang == #all ifTrue:[
3627
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2110
        allLanguages do:[:lang |
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2111
            self addLanguage:lang.
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2112
            self readResourceFile:(resourceDir construct:lang,'.rs') asLanguage:lang.
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2113
        ].
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2114
    ] ifFalse:[
3627
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2115
        self readResourceFile:langFile asLanguage:lang asSymbol
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2116
    ].
3627
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2117
    self window label:('%1: %2' bindWith:self class nameWithoutPrefix with:aPackage)
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2118
9ee9d719f243 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3626
diff changeset
  2119
    "Modified: / 30-10-2018 / 16:29:07 / Claus Gittinger"
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2120
!
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2121
2050
fm
parents: 2049
diff changeset
  2122
removeLanguage
3246
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  2123
    |languagesToRemove|
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  2124
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2125
    languagesToRemove := Dialog 
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2126
                            chooseMultiple:'Which language(s) do you want to remove?' 
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2127
                            fromList:languagesList lines:10.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2128
3246
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  2129
    languagesToRemove isEmptyOrNil ifTrue:[^ self ].
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  2130
    (Dialog confirm: 'Are you sure to remove the languages: ', languagesToRemove printString) ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2131
          self languagesList removeAll:languagesToRemove.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2132
          self shownLanguages removeAll:languagesToRemove.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2133
    ].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2134
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2135
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2136
removeTranslation
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2137
    |rowSelectionIndex selectedKey|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2138
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2139
    rowSelectionIndex := self selectedKeyRow value.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2140
    rowSelectionIndex isNil ifTrue:[^self].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2141
    rowSelectionIndex ~~ 0 ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2142
        selectedKey := keyStringsToLanguageMappings keyAt:rowSelectionIndex ifAbsent:nil.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2143
        selectedKey isNil ifTrue:[^self].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2144
        (Dialog confirm:(resources string:'Really remove key %1' with:selectedKey)) ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2145
            keyStringsToLanguageMappings removeKey:selectedKey.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2146
        ].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2147
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2148
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2149
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2150
runApplicationAndCollectTranslations
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  2151
    |applicationClass newTranslations pseudoPack app startSelector|
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2152
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2153
    monitoredApplication notNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2154
	monitoredApplication terminate.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2155
	[monitoredApplication notNil] whileTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2156
	    Delay waitForSeconds:0.1
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2157
	].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2158
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2159
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2160
    applicationClass := Dialog
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2161
		requestClass:'Application class to start and collect translations from:'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2162
		okLabel:'OK'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2163
		initialAnswer:(lastExtractedApplicationClass ? LastExtractedApplicationClass ).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2164
    applicationClass isNil ifTrue:[^ self ].
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2165
    applicationClass isNameSpace ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2166
	Dialog warn:'Entered class is a NameSpace'.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2167
	^ self.
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  2168
    ].
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  2169
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  2170
    applicationClass isVisualStartable ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2171
	startSelector := #open
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  2172
    ] ifFalse:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2173
	startSelector := Dialog
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2174
		    request:'Entered class seems to be no application class. Ok to start using selector:'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2175
		    initialAnswer:((applicationClass respondsTo:#'start')
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2176
					ifTrue:#'start'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2177
					ifFalse:#'new')
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2178
		    okLabel:'START'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2179
		    title:'Start Application'.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2180
	startSelector isNil ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2181
	    ^ self
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2182
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2183
	startSelector := startSelector asSymbol.
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  2184
    ].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2185
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2186
    lastExtractedApplicationClass := LastExtractedApplicationClass := applicationClass.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2187
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2188
    newTranslations := Set new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2189
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2190
    pseudoPack := AccessCollectingPseudoResourcePack new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2191
    pseudoPack realResourcePack:(applicationClass classResources).
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2192
    pseudoPack watchingTranslationEditor:self.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2193
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2194
    self stopApplicationIconVisibleHolder value:true.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2195
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2196
    monitoredApplication :=
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2197
	[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2198
	    [
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2199
		app := applicationClass new.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2200
		app resources:pseudoPack.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2201
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2202
		app perform:startSelector.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2203
		app window waitUntilVisible.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2204
		app window waitUntilClosed.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2205
	    ] ensure:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2206
		app closeRequest.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2207
		self stopApplicationIconVisibleHolder value:false.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2208
		monitoredApplication := nil.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2209
	    ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2210
	] fork.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2211
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2212
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2213
searchStringInLastNameSpace
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2214
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  2215
    |selectedKey browser lastSearchPatterns|
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2216
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2217
    selectedKey := self selectedKey.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2218
    selectedKey isNil ifTrue:[^Dialog information: 'No selected key'].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2219
    browser := NewSystemBrowser new "open".
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2220
    browser allButOpen.
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  2221
    lastSearchPatterns := browser lastSearchPatterns.
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  2222
    (lastSearchPatterns notNil and:[lastSearchPatterns first ~= selectedKey]) ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2223
	browser lastSearchPatterns addFirst: selectedKey
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2224
    ].
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2225
    SearchDialog lastStringSearchArea: #currentNameSpace.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2226
    lastNameSpace isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2227
	self changeLastNameSpace.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2228
    ].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2229
    lastNameSpace notNil ifTrue:[
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2230
"/        browser navigationState selectedClasses value: lastNameSpace allClasses.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2231
	browser navigationState nameSpaceFilter value: (OrderedCollection with:lastNameSpace name).
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2232
	browser navigationState selectedNamespaces value: (OrderedCollection with:lastNameSpace name).
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2233
    ].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2234
    self withWaitCursorDo:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2235
	browser browseMenuMethodsWithString
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2236
    ].
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2237
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2238
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2239
searchStringInLastPackage
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2240
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2241
    | selectedKey browser lastSearchPatterns|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2242
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2243
    selectedKey := self selectedKey.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2244
    selectedKey isNil ifTrue:[^ Dialog information: 'No selected key'].
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2245
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2246
    browser := NewSystemBrowser new "open".
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2247
    browser allButOpen.
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2248
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2249
    lastSearchPatterns := browser lastSearchPatterns.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2250
    (lastSearchPatterns notNil and:[lastSearchPatterns first ~= selectedKey]) ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2251
	browser lastSearchPatterns addFirst: selectedKey
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2252
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2253
    SearchDialog lastStringSearchArea: #currentPackage.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2254
    lastPackage isNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2255
	self changeLastPackage.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2256
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2257
    lastPackage notNil ifTrue:[
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2258
"/        browser navigationState selectedClasses value: lastNameSpace allClasses.
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2259
	browser navigationState packageFilter value: (OrderedCollection with:lastPackage).
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2260
	browser navigationState selectedProjects value: (OrderedCollection with:lastPackage).
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2261
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2262
    self withWaitCursorDo:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2263
	browser
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2264
	    askForMethodAndSpawnSearchTitle:'String to Search for in Sources:'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2265
	    browserLabel:'Methods containing "%1"'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2266
	    searchWith:#( #'findString:in:ignoreCase:match:' #'findString:inMethods:ignoreCase:match:' )
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2267
	    searchWhat:#string
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2268
	    searchArea:#currentPackage
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2269
	    withCaseIgnore:false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2270
	    withTextEntry:false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2271
	    withMatch:true
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2272
	    withMethodList:false
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2273
	    setSearchPattern:[:brwsr :string :ignoreCase :doMatch|
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2274
				brwsr autoSearchPattern:string ignoreCase:ignoreCase.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2275
			     ]
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2276
	    initialText:selectedKey "/ does not work: ('''*',selectedKey,'*''') check match!!
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2277
    ].
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2278
!
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2279
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2280
searchTranslation
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2281
    |searched foundIn foundExactIn foundMatchIn|
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2282
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2283
    searched := Dialog request:'Key or Value to Search:'.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2284
    searched isEmptyOrNil ifTrue:[^self].
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2285
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2286
    foundIn := OrderedCollection new.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2287
    ResourcePack allInstancesDo:[:each |
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2288
        each keysAndValuesDo:[:key :val |
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2289
            |orig xlation|
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2290
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2291
            orig := key printString.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2292
            xlation := val printString.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2293
            (orig = searched or:[xlation = searched]) ifTrue:[
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2294
                foundExactIn add:each    
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2295
            ] ifFalse:[
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2296
                ((orig includesString:searched caseSensitive:false) 
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2297
                or:[xlation includesString:searched caseSensitive:false]) ifTrue:[
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2298
                    foundIn add:each 
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2299
                ] ifFalse:[
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2300
                    ((searched match:orig caseSensitive:false) 
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2301
                    or:[searched match:xlation caseSensitive:false]) ifTrue:[
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2302
                        foundMatchIn add:each 
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2303
                    ].
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2304
                ].
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2305
            ].
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2306
        ].
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2307
    ].
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2308
self halt.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2309
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2310
    "Created: / 25-10-2018 / 16:16:13 / Claus Gittinger"
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2311
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2312
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2313
!InternationalLanguageTranslationEditor methodsFor:'menus dynamic'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2314
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2315
disableLanguageDisplayFor:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2316
    self shownLanguages remove:lang ifAbsent:[]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2317
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2318
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2319
enableLanguageDisplayFor:newLang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2320
    |shownLanguagesInOrder|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2321
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2322
    (self shownLanguages includes:newLang) ifFalse:[
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  2323
"/        shownLanguagesInOrder := self languagesList
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  2324
"/                                    select:[:lang | (self shownLanguages includes:lang)
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  2325
"/                                                    or:[ lang = newLang ]].
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  2326
"/        self shownLanguages contents:shownLanguagesInOrder.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2327
	self shownLanguages add:newLang.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2328
    ]
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2329
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2330
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2331
isLanguageShown:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2332
    ^ self shownLanguages includes:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2333
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2334
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2335
menuSliceTranslateGenerate
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2336
    | menu |
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2337
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2338
    menu := Menu new.
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2339
    keyStringsToLanguageMappings notNil ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2340
        keyStringsToLanguageMappings languages do:[:lang |
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2341
            menu addItem:
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2342
                (MenuItem
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2343
                    label: (resources string: 'Generate Missing Translations - %1' with: lang asUppercase)
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2344
                    itemValue: [ self generateMissingTranslationsFor: (Array with: lang) ])
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2345
        ].
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2346
    ].
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2347
    ^ menu
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2348
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2349
    "Created: / 19-02-2015 / 12:44:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2350
!
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2351
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2352
shownLanguagesMenu
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2353
    <resource: #programMenu >
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2354
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2355
    ^ [
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2356
	|m selected|
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2357
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2358
	m := Menu new.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2359
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2360
	self languagesList do:[:lang |
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2361
	    |item|
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2362
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2363
	    item := MenuItem label:lang.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2364
	    item indication:(self languageShownHolderFor:lang).
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2365
	    item hideMenuOnActivated:false.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2366
	    m addItem:item.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2367
	].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2368
	m
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2369
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2370
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2371
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2372
toggleLanguageDisplayFor:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2373
    (self shownLanguages includes:lang) ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2374
	self disableLanguageDisplayFor:lang
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2375
    ] ifFalse:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2376
	self enableLanguageDisplayFor:lang
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2377
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2378
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2379
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2380
!InternationalLanguageTranslationEditor methodsFor:'private-key extraction'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2381
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2382
addAllTranslations:newTranslations
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2383
    "merge found xlations into the list of already present xlations"
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2384
2034
23d558e4d32e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2033
diff changeset
  2385
    |newTranslationKeys stringKeys nonStringKeys|
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2386
3245
ff9a2e01e0a5 #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3189
diff changeset
  2387
    newTranslationKeys := newTranslations select:[:k | k notEmptyOrNil and:[k isString not or:[k isBlank not]]].
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2388
    newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2389
    "/ follow the common-xlations algrithm of ResourcePack
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2390
    "/ (which knows how to xlate strings with additional special chars.)
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2391
    newTranslationKeys :=
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2392
        newTranslationKeys collect:[:oldKey |
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2393
            |newKey methods|
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2394
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2395
            (oldKey endsWith:' ...') ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2396
                newKey := oldKey copyButLast:4.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2397
            ] ifFalse:[ (oldKey endsWith:'...') ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2398
                newKey := oldKey copyButLast:3.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2399
            ] ifFalse:[ ('\.:?=,!! ' includes:oldKey last) ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2400
                newKey := oldKey copyButLast:1.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2401
            ] ifFalse:[ ((oldKey first == $() and:[ oldKey last == $) ]) ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2402
                newKey := oldKey copyFrom:2 to:oldKey size - 1
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2403
            ] ifFalse:[ ((oldKey first == $[) and:[ oldKey last == $] ]) ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2404
                newKey := oldKey copyFrom:2 to:oldKey size - 1
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2405
            ] ifFalse:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2406
                newKey :=oldKey
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2407
            ]]]]].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2408
            "/ must attach oldKey-methods to newKey
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2409
            methods := methodsUsingKey at:oldKey ifAbsent:nil.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2410
            methods notNil ifTrue:[
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2411
                (methodsUsingKey at:newKey ifAbsentPut:[Set new]) addAll:methods
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2412
            ].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2413
            newKey
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2414
        ].
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2415
2034
23d558e4d32e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2033
diff changeset
  2416
    newTranslationKeys := newTranslationKeys asSet.
3246
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  2417
    newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
2034
23d558e4d32e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2033
diff changeset
  2418
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2419
    newTranslationKeys notEmpty ifTrue:[
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2420
        stringKeys := newTranslationKeys select:[:k | k isString].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2421
        nonStringKeys := newTranslationKeys select:[:k | k isString not].
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2422
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2423
        stringKeys := stringKeys asSortedCollection.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2424
        keyStringsToLanguageMappings addKeys:stringKeys.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2425
        keyStringsToLanguageMappings addKeys:nonStringKeys.
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2426
        modified := true.
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2427
    ].
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2428
!
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2429
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2430
extractTranslationsFromClass:aClass
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2431
    |newTranslations|
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2432
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2433
    newTranslations := Set new.
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2434
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2435
    self withWaitCursorDo:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2436
	"/ now, the hard part:
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2437
	"/ possible translations are in the specs,
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2438
	"/ and all arguments to (resources string:) messages.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2439
	aClass instAndClassMethodsDo:[:eachMethod |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2440
	    newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2441
	].
3248
Stefan Vogel <sv@exept.de>
parents: 3246
diff changeset
  2442
    ].
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2443
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2444
    newTranslations :=
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2445
	newTranslations select:[:eachTranslation|
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2446
	    (aClass resources at:eachTranslation ifAbsent:nil) isNil
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2447
	].
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2448
    ^ newTranslations
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2449
!
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  2450
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2451
extractTranslationsFromHelpSpecMethod:aMethod
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2452
    "return strings which need translation from a help-spec method"
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2453
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2454
    |codeStrings matcher parseTree resourceKeys|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2455
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2456
    parseTree := RBParser
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2457
	    parseMethod:aMethod source
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2458
	    onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2459
				  nil].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2460
    parseTree isNil ifTrue:[^ #() ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2461
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2462
    codeStrings  :=
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2463
	#(
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2464
		'`@dict addPairsFrom: `#helpKeysAndStrings'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2465
		'^ `#lit'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2466
	).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2467
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2468
    resourceKeys := Set new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2469
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2470
    matcher := ParseTreeSearcher new.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2471
    matcher
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2472
	matchesAnyOf: codeStrings
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2473
	do: [:aNode :answer |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2474
		|sel argNode arg|
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2475
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2476
		aNode isReturn ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2477
		    "/ a ^ #(...)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2478
		    aNode value isLiteralArray ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2479
			aNode value value pairWiseDo:[:helpKey :helpString |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2480
			    self rememberMethod:aMethod usingKey:helpString.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2481
			    resourceKeys add:helpString.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2482
			].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2483
		    ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2484
		] ifFalse:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2485
		    sel := aNode selector.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2486
		    (sel startsWith:'addPairsFrom:') ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2487
			argNode := aNode arguments at:1.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2488
			argNode isLiteralArray ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2489
			    arg := argNode value.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2490
			    arg doWithIndex:[:el :index |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2491
				index even ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2492
				    el isString ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2493
					self rememberMethod:aMethod usingKey:el.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2494
					resourceKeys add:el.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2495
				    ]
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2496
				].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2497
			    ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2498
			] ifFalse:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2499
			    Transcript halt
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2500
				showCR:(resources
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2501
					    string:'Cannot derive resourceKey from non-literal array: %1 in %2'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2502
					    with:argNode formattedCode
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2503
					    with:aMethod selector).
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2504
			].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2505
		    ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2506
		].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2507
		aNode
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2508
	    ].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2509
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2510
    matcher executeTree: parseTree initialAnswer: nil.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2511
    ^ resourceKeys
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2512
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2513
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2514
extractTranslationsFromMenuSpecMethod:aMethod
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2515
    "return strings which need translation from a menu-spec method"
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2516
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2517
    |menu resourceKeys|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2518
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2519
    menu := aMethod mclass theNonMetaclass perform:aMethod selector.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2520
    menu isNil ifTrue:[ ^ #() ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2521
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2522
    (menu isKindOf:Menu) ifFalse:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2523
	menu := Menu new fromLiteralArrayEncoding:menu
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2524
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2525
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2526
    resourceKeys := Set new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2527
    menu allItemsDo:[:aMenuItem |
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2528
	aMenuItem translateLabel ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2529
	    (aMenuItem isSeparatorItem or:[aMenuItem isMenuSlice])  ifFalse:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2530
		self rememberMethod:aMethod usingKey:aMenuItem label.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2531
		resourceKeys add:aMenuItem label.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2532
	    ]
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2533
	]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2534
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2535
    ^ resourceKeys
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2536
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2537
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2538
extractTranslationsFromMethod:aMethod
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2539
    "return strings which need translation from a method."
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2540
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2541
    |mResources|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2542
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2543
    mResources := aMethod resources.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2544
    mResources notNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2545
	(mResources includesKey:#menu) ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2546
	     ^ self extractTranslationsFromMenuSpecMethod:aMethod.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2547
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2548
	(mResources includesKey:#canvas) ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2549
	     ^ self extractTranslationsFromUISpecMethod:aMethod.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2550
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2551
	(mResources includesKey:#help) ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2552
	     ^ self extractTranslationsFromHelpSpecMethod:aMethod.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2553
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2554
	(mResources includesKey:#tableColumns) ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2555
	     ^ self extractTranslationsFromTableColumnsSpecMethod:aMethod.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2556
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2557
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2558
	^ self extractTranslationsFromSpecMethod:aMethod.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2559
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2560
    ^ self extractTranslationsFromMethodsCode:aMethod
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2561
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2562
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2563
extractTranslationsFromMethodsCode:aMethod
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2564
    "return strings which need translation from a normal method.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2565
     detects messages to the resource translation mechanism"
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2566
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2567
    |codeStrings matcher parseTree resourceKeys|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2568
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2569
    parseTree := RBParser
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2570
	    parseMethod:aMethod source
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2571
	    onError: [:str :pos | Transcript showCR:str. Transcript showCR:pos.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2572
				  nil].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2573
    parseTree isNil ifTrue:[^ #() ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2574
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2575
    codeStrings  :=
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2576
	#(
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2577
		'resources `@msg: `@args'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2578
		'self resources `@msg: `@args'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2579
		'self class resources `@msg: `@args'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2580
		'self class classResources `@msg: `@args'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2581
		'self classResources `@msg: `@args'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2582
		'`V classResources `@msg: `@args'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2583
	).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2584
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2585
    resourceKeys := Set new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2586
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2587
    matcher := ParseTreeSearcher new.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2588
    matcher
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2589
	matchesAnyOf: codeStrings
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2590
	do: [:aNode :answer |
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2591
		|sel keyStringArgNode keyStringArg|
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2592
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2593
		sel := aNode selector.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2594
		((sel startsWith:'string:') or:[(sel startsWith:'at:') or:[sel startsWith:'stringWithCRs:']]) ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2595
		    keyStringArgNode := aNode arguments at:1.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2596
		    (keyStringArg := self literalStringOrStringConcatenation:keyStringArgNode) notNil ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2597
			self rememberMethod:aMethod usingKey:keyStringArg.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2598
			resourceKeys add:keyStringArg.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2599
		    ] ifFalse:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2600
			Transcript
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2601
			    showCR:(resources
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2602
				    string:'[LanguageTranslator] warning: Cannot derive resourceKey from non-string: %1 in %2'
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2603
				    with:keyStringArgNode formattedCode
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2604
				    with:aMethod whoString).
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2605
		    ].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2606
		].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2607
		aNode
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2608
	    ].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2609
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2610
    matcher executeTree: parseTree initialAnswer: nil.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2611
    ^ resourceKeys
3189
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2612
4f828e688bf5 Support to automatically generate translations (for testing only)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3187
diff changeset
  2613
    "Modified: / 19-02-2015 / 11:42:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2614
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2615
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2616
extractTranslationsFromSpecMethod:aMethod
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2617
    ^ #()
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2618
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2619
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2620
extractTranslationsFromTableColumnsSpecMethod:aMethod
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2621
    "return strings which need translation from a table-spec method"
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2622
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2623
    |columnDescription resourceKeys|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2624
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2625
    columnDescription := aMethod mclass theNonMetaclass perform:aMethod selector.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2626
    columnDescription isNil ifTrue:[ ^ #() ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2627
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2628
    (columnDescription first isKindOf:DataSetColumnSpec) ifFalse:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2629
	columnDescription := columnDescription collect:[:el | DataSetColumnSpec new fromLiteralArrayEncoding:el].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2630
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2631
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2632
    resourceKeys := Set new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2633
    columnDescription do:[:aColumnSpec |
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2634
	aColumnSpec translateLabel ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2635
	    self rememberMethod:aMethod usingKey:aColumnSpec label.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2636
	    resourceKeys add:aColumnSpec label.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2637
	]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2638
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2639
    ^ resourceKeys
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2640
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2641
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2642
extractTranslationsFromUISpecMethod:aMethod
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2643
    "return strings which need translation from a UI-spec method"
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2644
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2645
    |spec resourceKeys visitor|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2646
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2647
    spec := aMethod mclass theNonMetaclass perform:aMethod selector.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2648
    spec isNil ifTrue:[ ^ #() ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2649
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2650
    (spec isKindOf:UISpecification) ifFalse:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2651
	spec := UISpecification from:spec
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2652
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2653
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2654
    resourceKeys := Set new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2655
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2656
    visitor := UISpecVisitor new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2657
    spec acceptVisitor:visitor.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2658
    visitor translatedLabels do:[:each |
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2659
	self rememberMethod:aMethod usingKey:each.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2660
    ].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2661
    ^ visitor translatedLabels
3284
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2662
!
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2663
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2664
literalStringOrStringConcatenation:aParseNode
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2665
    "nil if not a literal or a string concatenation"
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2666
3284
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2667
    aParseNode isLiteralString ifTrue:[^ aParseNode value].
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2668
    (aParseNode isMessage and:[aParseNode selector == #,]) ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2669
	|leftString rightString|
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2670
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2671
	aParseNode receiver isLiteralString ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2672
	    leftString := aParseNode receiver value
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2673
	] ifFalse:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2674
	    leftString := self literalStringOrStringConcatenation:aParseNode receiver.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2675
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2676
	aParseNode arguments first isLiteralString ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2677
	    rightString := aParseNode arguments first value
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2678
	] ifFalse:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2679
	    rightString := self literalStringOrStringConcatenation:aParseNode arguments first.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2680
	].
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2681
	(leftString notNil and:[rightString notNil]) ifTrue:[
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2682
	    ^ leftString , rightString
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2683
	].
3284
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2684
    ].
4de194c0ee74 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3283
diff changeset
  2685
    ^ nil
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2686
!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2687
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2688
recordNewTranslation:aString
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2689
    "called from recorder, when the monitored application does a translation"
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2690
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2691
    self addAllTranslations:{ aString }
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2692
!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2693
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2694
rememberMethod:aMethod usingKey:aKey
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  2695
    (methodsUsingKey at:aKey ifAbsentPut:[Set new]) add:aMethod
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2696
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2697
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2698
!InternationalLanguageTranslationEditor methodsFor:'queries'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2699
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2700
autoAccept
2050
fm
parents: 2049
diff changeset
  2701
fm
parents: 2049
diff changeset
  2702
    ^ self autoAcceptHolder value
fm
parents: 2049
diff changeset
  2703
!
fm
parents: 2049
diff changeset
  2704
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2705
currentExampleLanguageText
2050
fm
parents: 2049
diff changeset
  2706
   "Returns the language text corresponding for the current selected key and the example language selection"
fm
parents: 2049
diff changeset
  2707
fm
parents: 2049
diff changeset
  2708
  ^self languageTextFromSelectedKeyFor: self exampleLanguageSelectionHolder value
fm
parents: 2049
diff changeset
  2709
!
fm
parents: 2049
diff changeset
  2710
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2711
currentLanguage
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2712
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2713
    |colSelectionIndex |
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2714
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2715
    colSelectionIndex := dataSetView selectedColIndex.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2716
    ^colSelectionIndex > 1 ifTrue:[ shownLanguages at:colSelectionIndex-1 ] ifFalse:nil.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2717
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2718
2050
fm
parents: 2049
diff changeset
  2719
exampleLanguageByDefault
fm
parents: 2049
diff changeset
  2720
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2721
    ^self shownLanguages isEmpty
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2722
	ifTrue:[nil]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2723
	ifFalse:[self shownLanguages first]
2050
fm
parents: 2049
diff changeset
  2724
!
fm
parents: 2049
diff changeset
  2725
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2726
hasFirstRowSelection
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2727
    self selectedKeyRow isNil ifTrue:[^false].
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2728
    ^ self selectedKeyRow value > 1
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2729
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2730
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2731
hasLanguageSelection
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2732
    dataSetView selectedColIndex isNil ifTrue:[^false].
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2733
    ^ dataSetView selectedColIndex > 1
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2734
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2735
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2736
hasUnsavedChanges
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2737
    ^ modified
2050
fm
parents: 2049
diff changeset
  2738
!
fm
parents: 2049
diff changeset
  2739
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2740
includesKey: aKey
3601
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2741
    ^ keyStringsToLanguageMappings notNil
9afa4a73568a #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3599
diff changeset
  2742
    and:[ keyStringsToLanguageMappings includesKey:aKey ]
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2743
!
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2744
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2745
isSearchForSimilarTranslationEnabled
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2746
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2747
    ^self searchForSimilarTranslationEnableHolder value
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2748
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2749
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2750
languageTextFromKey: aKeyIndex for: language
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2751
    "Returns the language text corresponding for the aKeyIndex and the received language"
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2752
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2753
    language isNil ifTrue:[^''].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2754
    ^keyStringsToLanguageMappings at: aKeyIndex language:language.
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2755
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2756
2050
fm
parents: 2049
diff changeset
  2757
languageTextFromSelectedKeyFor: language
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2758
    "Returns the language text corresponding for the current selected key and the received language"
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2759
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2760
    ^self languageTextFromKey: self selectedKey for: language
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2761
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2762
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2763
shouldCopyPreviousTranslationButtonBeEnabled
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2764
    ^ self hasLanguageSelection
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2765
	and:[self hasFirstRowSelection]
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2766
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2767
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  2768
shouldPasteOriginalButtonBeEnabled
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2769
    ^ self hasLanguageSelection
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2770
	and:[self hasFirstRowSelection]
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  2771
!
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  2772
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2773
shouldSearchForSimilarTranslation
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  2774
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2775
    self isSearchForSimilarTranslationEnabled ifFalse:[^false].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2776
    (self languageTextHolder value notNil and:[self languageTextHolder value notEmpty]) ifTrue:[^false].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2777
    (self hasLanguageSelection and:[self selectedKeyRow notNil]) ifFalse:[^false].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2778
    ^true
2050
fm
parents: 2049
diff changeset
  2779
! !
fm
parents: 2049
diff changeset
  2780
fm
parents: 2049
diff changeset
  2781
!InternationalLanguageTranslationEditor methodsFor:'read/write resourceFile'!
fm
parents: 2049
diff changeset
  2782
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2783
encoderAt: lang
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2784
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2785
    self alwaysWriteUTF8Holder value ifTrue:[^CharacterEncoder encoderForUTF8].
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2786
    ^keyStringsToLanguageMappings encoderAt: lang.
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2787
!
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2788
2050
fm
parents: 2049
diff changeset
  2789
printEditingWarningOn: aStream
fm
parents: 2049
diff changeset
  2790
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2791
    aStream nextPutAll: ';';
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2792
	    cr;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2793
	    nextPutAll: '; WARNING:';
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2794
	    cr;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2795
	    nextPutAll: '; this file contains national characters.';
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2796
	    cr;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2797
	    nextPutAll: '; DO NOT EDIT this file with an old vi!!';
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2798
	    cr;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2799
	    nextPutAll: ';';
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2800
	    cr;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2801
	    cr.
2050
fm
parents: 2049
diff changeset
  2802
!
fm
parents: 2049
diff changeset
  2803
fm
parents: 2049
diff changeset
  2804
printEncoderFor: lang on: aStream
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2805
    |characterEncoder encoderString|
2050
fm
parents: 2049
diff changeset
  2806
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2807
    characterEncoder := self encoderAt: lang.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2808
    encoderString := characterEncoder isNil
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2809
	ifTrue:[self requestEncoderStringFor: lang]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2810
	ifFalse:[characterEncoder nameOfEncoding printString].
2050
fm
parents: 2049
diff changeset
  2811
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2812
    aStream nextPutAll: '#encoding';
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2813
	    space;
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2814
	    nextPutAll: encoderString;
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2815
	    cr;
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2816
	    cr.
2050
fm
parents: 2049
diff changeset
  2817
!
fm
parents: 2049
diff changeset
  2818
fm
parents: 2049
diff changeset
  2819
printLanguage: lang on: aStream
fm
parents: 2049
diff changeset
  2820
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2821
    self printEncoderFor: lang on: aStream.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2822
    self printEditingWarningOn: aStream.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2823
    self printLanguageMappingsFor: lang on: aStream.
2050
fm
parents: 2049
diff changeset
  2824
!
fm
parents: 2049
diff changeset
  2825
fm
parents: 2049
diff changeset
  2826
printLanguageMappingsFor: lang on: aStream
fm
parents: 2049
diff changeset
  2827
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2828
    |orderedAssociations maxKeySize characterEncoder|
2050
fm
parents: 2049
diff changeset
  2829
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2830
    characterEncoder := self encoderAt: lang.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2831
    characterEncoder isNil ifTrue:[ characterEncoder := CharacterEncoder::NullEncoder ].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2832
    orderedAssociations := keyStringsToLanguageMappings orderedLanguageMappingsAssociationsFor: lang.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2833
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2834
    maxKeySize := keyStringsToLanguageMappings maxKeySizeForLanguage: lang.
2050
fm
parents: 2049
diff changeset
  2835
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2836
    orderedAssociations do:[:association |
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2837
	"use #basicStoreString to avoid implicit utf8Encoding for UnicodeStrings"
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2838
	aStream nextPutAll: ((characterEncoder encodeString:association key basicStoreString) paddedTo: maxKeySize) ;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2839
	    tab;
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2840
	    nextPutAll: (characterEncoder encodeString: association value basicStoreString);
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2841
	    cr.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  2842
	].
2050
fm
parents: 2049
diff changeset
  2843
!
fm
parents: 2049
diff changeset
  2844
fm
parents: 2049
diff changeset
  2845
readResourceFile:aFilename asLanguage:lang
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2846
    |resourcePack inStream lineString encoding 
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2847
     decoder sortedKeys remainingKeys lineNr|
2050
fm
parents: 2049
diff changeset
  2848
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2849
    aFilename exists ifFalse:[
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2850
        Dialog information:(resources string:'Language file: "%1" does not exist' with:aFilename baseName).
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2851
        ^ self
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2852
    ].
2050
fm
parents: 2049
diff changeset
  2853
fm
parents: 2049
diff changeset
  2854
    resourcePack := ResourcePack new.
fm
parents: 2049
diff changeset
  2855
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2856
    inStream := LineNumberReadStream on:(aFilename readStream).
2050
fm
parents: 2049
diff changeset
  2857
    [inStream atEnd] whileFalse:[
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2858
        lineNr := inStream lineNumber.
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2859
        lineString := inStream nextLine.
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2860
        (lineString notEmpty
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2861
        and:[ (lineString startsWith:';') not and:[ (lineString startsWith:'"/') not]]) ifTrue:[
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2862
            ((lineString startsWith:'#') and:[(lineString startsWith:'#(') not]) ifTrue:[
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2863
                lineString := (lineString copyFrom:2) withoutSeparators.
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2864
                (lineString startsWith:'encoding ') ifTrue:[
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2865
                    encoding := ResourcePack extractEncodingFromLine:lineString.
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2866
                    decoder := CharacterEncoder encoderFor:encoding ifAbsent:nil.
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2867
                ].
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2868
            ] ifFalse:[
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2869
                ResourcePack
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2870
                    processResourceLine:lineString
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2871
                    encoding:decoder
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2872
                    file:aFilename pathName
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2873
                    printErrorWith:[:msg | 
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2874
                        Transcript 
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2875
                            showCR:'%1[%2]: %3'
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2876
                            with:(aFilename baseName)
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2877
                            with:lineNr
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2878
                            with:msg
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2879
                    ]
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2880
                    for:resourcePack
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2881
                    keepUselessTranslations:true.
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2882
            ].
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2883
        ].
2050
fm
parents: 2049
diff changeset
  2884
    ].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2885
    inStream close.
2050
fm
parents: 2049
diff changeset
  2886
fm
parents: 2049
diff changeset
  2887
    sortedKeys := (resourcePack keys select:[:k | k isString]) asSortedCollection.
fm
parents: 2049
diff changeset
  2888
    remainingKeys := resourcePack keys select:[:k | k isString not].
fm
parents: 2049
diff changeset
  2889
fm
parents: 2049
diff changeset
  2890
    keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2891
    keyStringsToLanguageMappings atLanguage: lang putEncoder: decoder.
2050
fm
parents: 2049
diff changeset
  2892
fm
parents: 2049
diff changeset
  2893
    sortedKeys do:[:k |
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2894
        keyStringsToLanguageMappings at:k language:lang put:(resourcePack at:k) sendChange:false
2050
fm
parents: 2049
diff changeset
  2895
    ].
fm
parents: 2049
diff changeset
  2896
    remainingKeys do:[:k |
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2897
        keyStringsToLanguageMappings at:k language:lang put:(resourcePack at:k) sendChange:false
2050
fm
parents: 2049
diff changeset
  2898
    ].
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  2899
    keyStringsToLanguageMappings changed.
3595
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2900
ebf63823c259 #QUALITY by cg
Claus Gittinger <cg@exept.de>
parents: 3594
diff changeset
  2901
    "Modified: / 20-09-2018 / 11:09:39 / Claus Gittinger"
2050
fm
parents: 2049
diff changeset
  2902
!
fm
parents: 2049
diff changeset
  2903
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2904
saveLanguage: lang
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2905
    "Saves the language in the fileName from where the language resource was obtained."
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2906
    |filename|
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2907
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2908
    lang isNil ifTrue:[^ self].
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2909
    filename := keyStringsToLanguageMappings filenameAt:lang.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2910
    filename isNil ifTrue:[
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2911
        "/ ask
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2912
        filename := self requestFilenameFor: lang.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2913
        filename isNil ifTrue:[^ self].
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2914
    ].
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2915
    self saveResourceFile:filename for:lang asSymbol
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2916
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  2917
    "Modified (format): / 15-09-2018 / 12:29:59 / Claus Gittinger"
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2918
!
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  2919
2050
fm
parents: 2049
diff changeset
  2920
saveResourceFile: aFilename for: lang
fm
parents: 2049
diff changeset
  2921
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2922
    |aStream |
2050
fm
parents: 2049
diff changeset
  2923
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2924
    keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2925
    aStream := FileStream newFileNamed: aFilename.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2926
    self printLanguage: lang on: aStream.
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2927
    aStream flush;
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2928
	    close.
2163
641467b2f522 Search String
fm
parents: 2053
diff changeset
  2929
    DialogBox information: 'The resource file for the language ', lang printString storeString, ' was saved in the file: ', aFilename nameString
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2930
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2931
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2932
!InternationalLanguageTranslationEditor methodsFor:'searching'!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2933
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2934
ignoreCaseHolderChanged
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2935
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2936
    self searchNextTextIncludingCurrentSelection: true.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2937
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2938
    "Created: / 16-06-2007 / 09:33:33 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2939
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2940
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2941
searchNextText
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2942
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2943
    self searchNextTextIncludingCurrentSelection: false.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2944
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2945
    "Modified: / 16-06-2007 / 09:21:14 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2946
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2947
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2948
searchNextTextFromBeginning
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2949
    |searchText rowFoundIndex|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2950
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2951
    searchText := searchTextView contents.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2952
    searchText isEmptyOrNil ifTrue:[^self].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2953
    self objectsList isEmpty ifTrue:[^self].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2954
    rowFoundIndex := self tableView findFirstRowWithString: searchText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2955
		from:1
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2956
		to:self objectsList size
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2957
		ignoreCase:self ignoreCaseHolder value.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2958
    rowFoundIndex isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2959
	self searchTextNotFound.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2960
	^self
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2961
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2962
    self selectListIndex: rowFoundIndex
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2963
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2964
    "Created: / 16-06-2007 / 10:54:51 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2965
    "Modified: / 19-06-2007 / 15:38:59 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2966
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2967
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2968
searchNextTextIncludingCurrentSelection: includeCurrentSelection
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2969
    |searchText currentSelectionIndex rowFoundIndex fromIndex listSize|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2970
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2971
    self searchTextStarted.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2972
    searchText := searchTextView contents.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2973
    searchText isEmptyOrNil ifTrue:[^self].
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2974
    self objectsList isEmptyOrNil ifTrue:[^self].
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2975
    currentSelectionIndex := self currentSelectionIndex.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2976
    (currentSelectionIndex isNil or:[currentSelectionIndex == 0]) ifTrue:[
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2977
        self searchNextTextFromBeginning.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2978
        ^self.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2979
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2980
    listSize := self objectsList size.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2981
    (currentSelectionIndex == listSize and:[includeCurrentSelection not]) ifTrue:[
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2982
        self searchNextTextReachEnd.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2983
        ^self.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2984
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2985
    fromIndex := includeCurrentSelection
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2986
        ifTrue:[currentSelectionIndex]
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2987
        ifFalse:[currentSelectionIndex + 1].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  2988
    rowFoundIndex := self tableView findFirstRowWithString: searchText
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2989
                from:fromIndex
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2990
                to:listSize
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2991
                ignoreCase:self ignoreCaseHolder value.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2992
    rowFoundIndex isNil ifTrue:[
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2993
        self searchNextTextReachEnd.
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  2994
        ^self
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2995
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2996
    self selectListIndex: rowFoundIndex
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2997
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2998
    "Created: / 16-06-2007 / 09:20:57 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  2999
    "Modified: / 19-06-2007 / 15:38:06 / Administrador"
3626
4cc3a9c52aa7 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3620
diff changeset
  3000
    "Modified: / 25-10-2018 / 16:25:18 / Claus Gittinger"
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3001
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3002
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3003
searchNextTextReachEnd
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3004
    |message|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3005
    message := 'End of list reached, starting from the beginning'.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3006
    self searchTextRestarted: message.
2330
58ace5744c59 *** empty log message ***
fm
parents: 2329
diff changeset
  3007
    Smalltalk beep.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3008
    self searchNextTextFromBeginning.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3009
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3010
    "Created: / 16-06-2007 / 11:00:59 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3011
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3012
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3013
searchPreviousText
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3014
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3015
    |searchText currentSelectionIndex rowFoundIndex fromIndex|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3016
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3017
    self searchTextStarted.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3018
    searchText := searchTextView contents.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3019
    searchText isEmptyOrNil ifTrue:[^self].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3020
    self objectsList isEmpty ifTrue:[^self].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3021
    currentSelectionIndex := self currentSelectionIndex.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3022
    currentSelectionIndex == 1 ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3023
	self searchPreviousTextReachBeginning.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3024
	^self.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3025
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3026
    (currentSelectionIndex isNil or:[currentSelectionIndex == 0])
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3027
	ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3028
	    self searchPreviousTextFromEnd.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3029
	    ^self.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3030
	]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3031
	ifFalse:[fromIndex := currentSelectionIndex - 1].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3032
    rowFoundIndex := self tableView findFirstRowWithString: searchText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3033
		from: fromIndex
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3034
		to: 1
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3035
		by: -1
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3036
		ignoreCase:self ignoreCaseHolder value.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3037
    rowFoundIndex isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3038
	self searchPreviousTextReachBeginning.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3039
	^self
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3040
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3041
    self selectListIndex: rowFoundIndex.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3042
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3043
    "Modified: / 19-06-2007 / 15:38:16 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3044
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3045
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3046
searchPreviousTextFromEnd
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3047
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3048
    |searchText rowFoundIndex|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3049
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3050
    searchText := searchTextView contents.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3051
    searchText isEmptyOrNil ifTrue:[^self].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3052
    self objectsList isEmpty ifTrue:[^self].
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3053
    rowFoundIndex := self tableView findFirstRowWithString: searchText
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3054
		from: self objectsList size
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3055
		to: 1
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3056
		by: -1
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3057
		ignoreCase:self ignoreCaseHolder value.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3058
    rowFoundIndex isNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3059
	self searchTextNotFound.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3060
	^self
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3061
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3062
    self selectListIndex: rowFoundIndex.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3063
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3064
    "Created: / 16-06-2007 / 10:55:43 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3065
    "Modified: / 19-06-2007 / 15:38:26 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3066
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3067
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3068
searchPreviousTextReachBeginning
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3069
    |message|
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3070
    message := 'Beginning of list reached, starting from the end'.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3071
    self searchTextRestarted: message.
2330
58ace5744c59 *** empty log message ***
fm
parents: 2329
diff changeset
  3072
    Smalltalk beep.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3073
    self searchPreviousTextFromEnd.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3074
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3075
    "Created: / 16-06-2007 / 11:01:23 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3076
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3077
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3078
searchTextModifiedHolderChanged
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3079
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3080
    self searchNextTextIncludingCurrentSelection: true.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3081
    self searchTextModifiedHolder setValue: false.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3082
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3083
"/Transcript showCR: 'searchTextModifiedHolderChanged: ',(self searchTextHolder value ? '').
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3084
"/Transcript showCR: 'searchTextView contents: ',(searchTextView contents ? '').
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3085
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3086
    "Created: / 15-06-2007 / 18:07:57 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3087
    "Modified: / 16-06-2007 / 09:21:27 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3088
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3089
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3090
searchTextNotFound
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3091
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3092
    self selectListIndex: 0.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3093
    self searchBarImageInfoLabelHolder value: self warningSearchBarIcon.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3094
    self searchBarInfoLabelHolder value: 'Text not found'.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3095
    self setSearchTextNotFoundColors.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3096
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3097
    "Created: / 16-06-2007 / 06:51:01 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3098
    "Modified: / 16-06-2007 / 11:43:53 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3099
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3100
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3101
searchTextRestarted: message
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3102
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3103
    self searchBarImageInfoLabelHolder value: self restartSearchBarIcon.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3104
    self searchBarInfoLabelHolder value: message.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3105
"/    self setSearchTextNotFoundColors.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3106
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3107
    "Created: / 16-06-2007 / 11:02:06 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3108
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3109
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3110
searchTextStarted
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3111
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3112
    self searchBarImageInfoLabelHolder value: nil.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3113
    self searchBarInfoLabelHolder value: ''.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3114
    self setSearchTextFoundColors.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3115
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3116
    "Created: / 16-06-2007 / 06:54:03 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3117
    "Modified: / 16-06-2007 / 10:07:06 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3118
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3119
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3120
setSearchTextFoundColors
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3121
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3122
    searchTextView foregroundColor: Color black.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3123
    searchTextView backgroundColor: Color white.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3124
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3125
    "Created: / 16-06-2007 / 06:28:32 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3126
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3127
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3128
setSearchTextNotFoundColors
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3129
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3130
    searchTextView foregroundColor: Color white.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3131
    searchTextView backgroundColor: Color lightRed.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3132
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3133
    "Created: / 16-06-2007 / 06:29:00 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3134
! !
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3135
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3136
!InternationalLanguageTranslationEditor methodsFor:'specs-dynamic'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3137
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3138
columnInRow:row at:colIndex
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3139
    |lang|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3140
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3141
    lang := self languageAtCol:colIndex.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3142
    ^ row atLanguage:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3143
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3144
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3145
getBackgroundForRow:row rowNr:rowNr col:colIndex
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3146
    |lang|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3147
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3148
    colIndex == 1 ifTrue:[^ nil].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3149
    lang := self languageAtCol:colIndex.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3150
    ^ (row atLanguage:lang) isNil ifTrue:[Color red lightened] ifFalse:nil
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3151
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3152
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3153
keyStringAndLanguageSelectionTableColumnDescription
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3154
    |spec|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3155
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3156
    spec := OrderedCollection new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3157
2047
5f9b26862c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2035
diff changeset
  3158
    spec add:(self class keyTableColumn first).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3159
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3160
    self shownLanguages do:[:lang |
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3161
	|entry|
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3162
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3163
	entry := self class languageTableColumn first.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3164
	entry := entry copy replaceAll:#lang with:lang.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3165
	spec add: entry
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3166
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3167
    ^ spec
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3168
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3169
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3170
keyStringInRow:row
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3171
    ^ row keyString
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3172
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3173
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3174
!InternationalLanguageTranslationEditor methodsFor:'update'!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3175
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3176
updateToolVisibility
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3177
    | bottomOffset searchBarVisible |
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3178
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3179
    bottomOffset := 0.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3180
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3181
    searchBarVisible := self searchBoxVisible value.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3182
    searchBarVisible ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3183
	bottomOffset := bottomOffset - searchBoxView height.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3184
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3185
    translationsPanel layout bottomOffset:bottomOffset-1.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3186
    translationsPanel container notNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3187
	translationsPanel containerChangedSize.
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3188
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3189
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3190
    "Created: / 16-06-2007 / 11:58:25 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3191
! !
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3192
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3193
!InternationalLanguageTranslationEditor methodsFor:'user actions'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3194
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3195
closeSearchBar
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3196
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3197
    self searchBoxVisible value: false.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3198
    self updateToolVisibility.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3199
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3200
    "Created: / 15-06-2007 / 18:03:05 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3201
    "Modified: / 16-06-2007 / 11:58:52 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3202
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3203
2050
fm
parents: 2049
diff changeset
  3204
exampleLanguageSelectionChanged
fm
parents: 2049
diff changeset
  3205
fm
parents: 2049
diff changeset
  3206
   self updateExampleLanguageText.
fm
parents: 2049
diff changeset
  3207
!
fm
parents: 2049
diff changeset
  3208
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3209
languageTextAccepted
2416
98dbabd36558 changed #languageTextAccepted
Claus Gittinger <cg@exept.de>
parents: 2413
diff changeset
  3210
    |nextRowIndex selRow|
98dbabd36558 changed #languageTextAccepted
Claus Gittinger <cg@exept.de>
parents: 2413
diff changeset
  3211
98dbabd36558 changed #languageTextAccepted
Claus Gittinger <cg@exept.de>
parents: 2413
diff changeset
  3212
    selRow := self selectedKeyRow value.
98dbabd36558 changed #languageTextAccepted
Claus Gittinger <cg@exept.de>
parents: 2413
diff changeset
  3213
    selRow notNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3214
	keyStringsToLanguageMappings size = selRow
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3215
	    ifTrue:[ self updateLanguageTextModification.]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3216
	    ifFalse:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3217
		nextRowIndex := selRow + 1.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3218
		self selectedKeyRow value: nextRowIndex]
2416
98dbabd36558 changed #languageTextAccepted
Claus Gittinger <cg@exept.de>
parents: 2413
diff changeset
  3219
    ].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3220
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3221
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3222
pasteOriginalInLanguageText
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3223
    <resource: #uiCallback>
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3224
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3225
    | originalText|
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3226
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3227
    originalText := self selectedKey.
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3228
    languageEditor selectAll.
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3229
    languageEditor pasteOrReplace:originalText.
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3230
    self languageTextModifiedHolder value:true.
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3231
!
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3232
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3233
pastePreviousTranslationInLanguageText
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3234
    "Obtain the text from the previous translation and paste it into the languageTextEditor"
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3235
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3236
    | previousLanguageText previousLanguageRow|
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3237
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3238
    previousLanguageRow := dataSetView at:self selectedKeyRow value - 1
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3239
		ifAbsent:[^self].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3240
    previousLanguageText := previousLanguageRow atLanguage: self currentLanguage.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3241
    languageEditor selectAll.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3242
    languageEditor pasteOrReplace:previousLanguageText.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3243
    self languageTextModifiedHolder value:true.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3244
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3245
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3246
search
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3247
    "make the searchbox visible"
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3248
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3249
    self searchBoxVisible value: true.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3250
    self updateToolVisibility.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3251
    searchTextView takeFocus.
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3252
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3253
    "Modified: / 16-06-2007 / 11:58:44 / Administrador"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3254
!
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3255
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3256
selectionChanged
2048
dcec4e818069 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2047
diff changeset
  3257
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3258
   self updateOriginalTextModification.
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3259
   self updateLanguageTextModification.
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3260
   self updateLanguageAndKeySelection.
2050
fm
parents: 2049
diff changeset
  3261
   self updateExampleLanguageText.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3262
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3263
   self updateCopyPreviousTranslationButtonEnabled.
2323
9b257cbd0ea9 *** empty log message ***
fm
parents: 2163
diff changeset
  3264
   self updatePasteOriginalButtonEnabled.
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3265
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3266
   self originalTextModifiedHolder value:false.
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3267
   self languageTextModifiedHolder value:false.
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3268
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3269
   self searchForSimilarTranslation.
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3270
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3271
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3272
showMissingTranslationsOnlyChanged
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3273
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3274
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3275
shownLanguagesChanged
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3276
    self keyStringAndLanguageSelectionTableColumnDescriptionHolder
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3277
	value:(self keyStringAndLanguageSelectionTableColumnDescription).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3278
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3279
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3280
stopApplication
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3281
    |p|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3282
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3283
    (p := monitoredApplication) notNil ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3284
	p terminate.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3285
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3286
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3287
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3288
!InternationalLanguageTranslationEditor::AccessCollectingPseudoResourcePack methodsFor:'accessing'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3289
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3290
realResourcePack:something
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3291
    realResourcePack := something.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3292
!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3293
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3294
watchingTranslationEditor:something
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3295
    watchingTranslationEditor := something.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3296
! !
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3297
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3298
!InternationalLanguageTranslationEditor::AccessCollectingPseudoResourcePack methodsFor:'resource pack protocol'!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3299
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3300
forwardFor:aString
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3301
    collectedKeys isNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3302
	collectedKeys := Set new.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3303
    ].
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3304
    collectedKeys add:aString.
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3305
    watchingTranslationEditor notNil ifTrue:[
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3306
	watchingTranslationEditor recordNewTranslation:aString.
3286
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3307
    ].
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3308
    ^ realResourcePack perform:(thisContext sender selector) withArguments:(thisContext sender args).
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3309
!
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3310
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3311
string:aString
1ea9a6fbe2b4 #FEATURE by cg
Claus Gittinger <cg@exept.de>
parents: 3285
diff changeset
  3312
    ^ self forwardFor:aString
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3313
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3314
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3315
!InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings class methodsFor:'instance creation'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3316
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3317
new
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3318
    ^ self basicNew initialize
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3319
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3320
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3321
!InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'accessing'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3322
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3323
addKey:aKey
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3324
    self addKey:aKey sendChange:true
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3325
!
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3326
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3327
addKey:aKey sendChange:aBoolean
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3328
    (keys includes:aKey) ifFalse:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3329
	keys add:aKey.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3330
	aBoolean ifTrue:[ self changed ].
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3331
    ]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3332
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3333
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3334
addKeys:aCollectionOfKey
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3335
    keys addAll:aCollectionOfKey.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3336
    self changed.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3337
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3338
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3339
addLanguage:lang
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3340
    (languages includes:lang) ifFalse:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3341
	languages add:lang.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3342
	perLanguageMappings at:lang put:(OrderedDictionary new).
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3343
    ]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3344
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3345
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3346
at:aKey language:language
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3347
    ^ (perLanguageMappings at:language) at:aKey ifAbsent:nil
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3348
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3349
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3350
at:aKey language:language put:value
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3351
    self addKey:aKey.
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3352
    (perLanguageMappings at:language) at:aKey put:value.
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3353
    (self rowForKey:aKey) changed
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3354
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3355
2410
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3356
at:aKey language:language put:value sendChange:sendChange
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3357
    self addKey:aKey sendChange:sendChange.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3358
    (perLanguageMappings at:language) at:aKey put:value.
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3359
    (self rowForKey:aKey) changed
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3360
!
a3b53393dcf3 added open by project
Claus Gittinger <cg@exept.de>
parents: 2330
diff changeset
  3361
2050
fm
parents: 2049
diff changeset
  3362
atLanguage: lang putEncoder: aDecoder
fm
parents: 2049
diff changeset
  3363
fm
parents: 2049
diff changeset
  3364
^(self languageInfoAt: lang) at: self encoderKey put: aDecoder
fm
parents: 2049
diff changeset
  3365
!
fm
parents: 2049
diff changeset
  3366
fm
parents: 2049
diff changeset
  3367
atLanguage: lang putFilename: aFilename
fm
parents: 2049
diff changeset
  3368
fm
parents: 2049
diff changeset
  3369
^(self languageInfoAt: lang) at: self fileNameKey put: aFilename
fm
parents: 2049
diff changeset
  3370
!
fm
parents: 2049
diff changeset
  3371
fm
parents: 2049
diff changeset
  3372
decoderKey
fm
parents: 2049
diff changeset
  3373
   ^#decoder
fm
parents: 2049
diff changeset
  3374
!
fm
parents: 2049
diff changeset
  3375
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3376
encoderAt:lang
2050
fm
parents: 2049
diff changeset
  3377
    ^ (self languageInfoAt:lang) at: self encoderKey ifAbsent:[nil]
fm
parents: 2049
diff changeset
  3378
!
fm
parents: 2049
diff changeset
  3379
fm
parents: 2049
diff changeset
  3380
encoderKey
fm
parents: 2049
diff changeset
  3381
   ^#encoder
fm
parents: 2049
diff changeset
  3382
!
fm
parents: 2049
diff changeset
  3383
fm
parents: 2049
diff changeset
  3384
fileNameKey
fm
parents: 2049
diff changeset
  3385
    ^ #filename
fm
parents: 2049
diff changeset
  3386
!
fm
parents: 2049
diff changeset
  3387
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3388
filenameAt:lang
2050
fm
parents: 2049
diff changeset
  3389
    ^ (self languageInfoAt:lang) at: self fileNameKey ifAbsent:[nil]
fm
parents: 2049
diff changeset
  3390
!
fm
parents: 2049
diff changeset
  3391
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3392
keyAt:index
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3393
    ^ keys at:index ifAbsent:[nil].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3394
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3395
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3396
keyAt:index ifAbsent:exceptionalValue
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3397
    ^ keys at:index ifAbsent:exceptionalValue.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3398
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3399
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3400
keys
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3401
    ^ keys
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3402
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3403
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3404
languageInfoAt: lang
2050
fm
parents: 2049
diff changeset
  3405
fm
parents: 2049
diff changeset
  3406
^self perLanguageInfo at: lang ifAbsentPut:[Dictionary new]
fm
parents: 2049
diff changeset
  3407
!
fm
parents: 2049
diff changeset
  3408
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3409
languages
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3410
    ^ languages
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3411
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3412
2053
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  3413
languagesInUse
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  3414
"Returns a collection of symbols for the languages that have mappings"
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  3415
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  3416
^self languages select:[:each | (self atLanguage: each) notEmpty]
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  3417
!
8440fcd83b7b 2.1 felix
fm
parents: 2051
diff changeset
  3418
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3419
orderedLanguageMappingsAssociationsFor: language
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3420
"Returns a collection of languageMappings associations (alphabetically ordered by keys) "
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3421
    ^(self atLanguage: language) associations
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3422
	    asSortedCollection:[:a :b | a key isArray or:[b key isArray or:[a key < b key]]].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3423
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3424
2050
fm
parents: 2049
diff changeset
  3425
perLanguageInfo
fm
parents: 2049
diff changeset
  3426
    ^ perLanguageInfo
fm
parents: 2049
diff changeset
  3427
!
fm
parents: 2049
diff changeset
  3428
fm
parents: 2049
diff changeset
  3429
perLanguageInfo:something
fm
parents: 2049
diff changeset
  3430
    perLanguageInfo := something.
fm
parents: 2049
diff changeset
  3431
!
fm
parents: 2049
diff changeset
  3432
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3433
removeKey:aKey
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3434
    keys remove:aKey ifAbsent:[].
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3435
    perLanguageMappings do:[:eachMapping |
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3436
	eachMapping removeKey:aKey ifAbsent:[].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3437
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3438
    self changed.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3439
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3440
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3441
rowForKey:aKey
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3442
    ^ rowPerKey
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3443
	    at:aKey
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3444
	    ifAbsentPut:[InternationalLanguageTranslationEditor::LanguageMappingRow new
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3445
			    key:aKey; mappings:self].
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3446
!
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3447
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3448
size
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3449
    ^ keys size
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3450
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3451
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3452
!InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'enumerating'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3453
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3454
do:aBlock
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3455
    keys do:[:eachKey |
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3456
	aBlock value:(self rowForKey:eachKey).
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3457
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3458
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3459
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3460
!InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'initialization'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3461
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3462
initialize
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3463
    super initialize.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3464
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3465
    keys := OrderedSet new.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3466
    languages := OrderedCollection new.
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3467
    perLanguageMappings := Dictionary new.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3468
    perLanguageInfo := Dictionary new.
2049
d10762e5d924 *** empty log message ***
fm
parents: 2048
diff changeset
  3469
    rowPerKey := Dictionary new.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3470
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3471
    self addLanguage:#'de'.
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3472
    self addLanguage:#'fr'.
3077
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  3473
    self addLanguage:#'en'.
48211023a3c7 class: Tools::InternationalLanguageTranslationEditor
Claus Gittinger <cg@exept.de>
parents: 2880
diff changeset
  3474
    self addLanguage:#'it'.
2031
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3475
    self addLanguage:#'es'.
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3476
    self addLanguage:(Smalltalk language).
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3477
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3478
    "/ self initializeDemoMappings.
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3479
!
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3480
85947c4c6502 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2015
diff changeset
  3481
initializeDemoMappings
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3482
    keys add:'open'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3483
    keys add:'close'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3484
    keys add:'yes'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3485
    keys add:'no'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3486
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3487
    self addLanguage:#'de'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3488
    self addLanguage:#'fr'.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3489
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  3490
    self at:'open' language:#'de' put:'öffnen'.
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  3491
    self at:'close' language:#'de' put:'schließen'.
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3492
    self at:'yes' language:#'de' put:'ja'.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3493
    self at:'no' language:#'de' put:'nein'.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3494
    self at:'cancel' language:#'de' put:'abbrechen'.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3495
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3496
    self at:'open' language:#'fr' put:'ouvrir'.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3497
    self at:'close' language:#'fr' put:'fermer'.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3498
    self at:'yes' language:#'fr' put:'oui'.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3499
    self at:'no' language:#'fr' put:'non'.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3500
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3501
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3502
!InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'private'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3503
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3504
atLanguage:lang
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3505
    ^ perLanguageMappings at:lang
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3506
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3507
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3508
atLanguageIndex:idx
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3509
    |lang|
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3510
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3511
    lang := languages at:idx.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3512
    ^ self atLanguage:lang.
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3513
!
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3514
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3515
mappingAtLanguage:lang
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3516
    ^ perLanguageMappings at:lang
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3517
!
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3518
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3519
mappingAtLanguageIndex:idx
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3520
    |lang|
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3521
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3522
    lang := languages at:idx.
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3523
    ^ self mappingAtLanguage:lang.
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3524
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3525
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3526
!InternationalLanguageTranslationEditor::KeyStringsToLanguageMappings methodsFor:'queries'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3527
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3528
includesKey:aKey
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3529
    ^ keys includes:aKey
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3530
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3531
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3532
includesLanguage:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3533
    ^ languages includes:lang
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3534
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3535
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3536
indexOfKey:aKey
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3537
    ^ keys indexOf:aKey
2050
fm
parents: 2049
diff changeset
  3538
!
fm
parents: 2049
diff changeset
  3539
fm
parents: 2049
diff changeset
  3540
maxKeySizeForLanguage: lang
fm
parents: 2049
diff changeset
  3541
fm
parents: 2049
diff changeset
  3542
^(self atLanguage: lang) keys inject: 0 into:[:maxSize :each |
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3543
    (maxSize < each size and:[each size < 100])
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3544
	ifTrue:[each size]
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3545
	ifFalse:[maxSize].].
2051
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3546
!
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3547
88d16a7d0bd9 felix' fixes and additions
fm
parents: 2050
diff changeset
  3548
searchForSimilarTranslation: aKey in: language
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3549
    "Returns a collection of translation associations that corresponds to a quite similar key comparing with aKey"
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3550
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3551
    |similarAssociations|
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3552
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3553
    similarAssociations:=
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3554
    (self mappingAtLanguage: language) associationsSelect:[:each |
3522
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3555
	|eachKey|
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3556
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3557
	eachKey := eachKey.
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3558
	eachKey isString
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3559
	and:[(eachKey sameAs: aKey)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3560
	     or:[(aKey asUppercase startsWith: eachKey asUppercase)
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3561
	     or:[((eachKey asUppercase levenshteinTo: aKey asUppercase)/ eachKey size) < 0.3
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3562
	 ]]]
2a319ce12319 flyByHelpSpec -> helpSpec
Claus Gittinger <cg@exept.de>
parents: 3455
diff changeset
  3563
	 and:[each value notEmptyOrNil]
2327
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3564
    ].
a1db8e464b02 *** empty log message ***
fm
parents: 2323
diff changeset
  3565
    ^similarAssociations
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3566
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3567
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3568
!InternationalLanguageTranslationEditor::LanguageMappingRow methodsFor:'accessing'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3569
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3570
atLanguage:language
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3571
    |translation|
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3572
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3573
    translation := (mappings mappingAtLanguage:language) at:key ifAbsent:nil.
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3574
    ^ translation isNil ifTrue:nil ifFalse:[translation printString]
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3575
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3576
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3577
columnAt:columnNr
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3578
    ^ (mappings mappingAtLanguageIndex:columnNr-1) at: key ifAbsent:nil
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3579
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3580
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3581
key:something
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3582
    key := something.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3583
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3584
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3585
keyString
2032
cc2edbb9ebfc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2031
diff changeset
  3586
    ^ key printString
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3587
!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3588
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3589
mappings:something
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3590
    mappings := something.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3591
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3592
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3593
!InternationalLanguageTranslationEditor::UISpecVisitor methodsFor:'accessing'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3594
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3595
translatedLabels
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3596
    ^ translatedLabels ? #()
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3597
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3598
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3599
!InternationalLanguageTranslationEditor::UISpecVisitor methodsFor:'visiting'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3600
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3601
visitObject:anObject with:aParameter
2033
2c1264ae2c1c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
  3602
    |l|
2c1264ae2c1c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
  3603
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3604
    (anObject isKindOf:UISpecification) ifTrue:[
2434
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3605
	(anObject respondsTo:#translateLabel) ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3606
	    anObject translateLabel == true ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3607
		translatedLabels isNil ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3608
		    translatedLabels := Set new.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3609
		].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3610
		l := anObject perform:#label ifNotUnderstood:nil.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3611
		l notNil ifTrue:[
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3612
		    translatedLabels add:l.
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3613
		].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3614
	    ].
6ad1f853d2e9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2433
diff changeset
  3615
	].
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3616
    ].
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3617
    self visitChildrenOf:anObject.
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3618
! !
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3619
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3620
!InternationalLanguageTranslationEditor class methodsFor:'documentation'!
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3621
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3622
version
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3623
    ^ '$Header$'
3246
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  3624
!
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  3625
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  3626
version_CVS
034fe0de47bd #BUGFIX
Stefan Vogel <sv@exept.de>
parents: 3245
diff changeset
  3627
    ^ '$Header$'
2015
8f226ff9b5e6 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3628
! !
3594
cfbc0a29b030 #UI_ENHANCEMENT by cg
Claus Gittinger <cg@exept.de>
parents: 3522
diff changeset
  3629