PerforceSourceCodeManagementSettingsAppl.st
branchjv
changeset 12401 4714b9640528
parent 12265 f1b3696cf042
parent 11619 c747abf8763f
child 12431 9f0c59c742d5
equal deleted inserted replaced
12330:235b77901045 12401:4714b9640528
    52  other person.  No title to or ownership of the software is
    52  other person.  No title to or ownership of the software is
    53  hereby transferred.
    53  hereby transferred.
    54 "
    54 "
    55 ! !
    55 ! !
    56 
    56 
       
    57 
    57 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
    58 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'image specs'!
    58 
    59 
    59 defaultIcon
    60 defaultIcon
    60     ^ self defaultIcon4.
    61     ^ self defaultIcon4.
    61     "/ ^ self defaultIcon3
    62     "/ ^ self defaultIcon3
   162 @D@)J!!R0& 0])J"CG!!0@@@@@@@@@@@AAJ08J^VM_(1TP_7 G@@@@@@@@@@@@-;^4-J2NM@=5$'':)@@@@@@@@@@@@-K^7-;^4^&T2@C1OK@@@@@@@@@@@,;^7
   163 @D@)J!!R0& 0])J"CG!!0@@@@@@@@@@@AAJ08J^VM_(1TP_7 G@@@@@@@@@@@@-;^4-J2NM@=5$'':)@@@@@@@@@@@@-K^7-;^4^&T2@C1OK@@@@@@@@@@@,;^7
   163 SBB''%+P@''HY/%E$K@@@@@@@@@KR5-@YPHR4A''X]0JU)DSZH@@@@@-KR7-+^8@D"9\WE[CTU!!K0L3@@@@@@B4-+^4@@B9.[$@@C@Z)X0@@@@@@@@@@KR=@@B9
   164 SBB''%+P@''HY/%E$K@@@@@@@@@KR5-@YPHR4A''X]0JU)DSZH@@@@@-KR7-+^8@D"9\WE[CTU!!K0L3@@@@@@B4-+^4@@B9.[$@@C@Z)X0@@@@@@@@@@KR=@@B9
   164 /K2;.PBJWT]K@@@@@@@@@@@@@@B9.[*9.[$@@H,[@@@@@@@@@@B9@@@@@@B9.P@@@@@@@@@@@@@@@@@@@K&9.[&9.[H@@@@@@@@@@@@@@@@@@@@@.+&9.[H@
   165 /K2;.PBJWT]K@@@@@@@@@@@@@@B9.[*9.[$@@H,[@@@@@@@@@@B9@@@@@@B9.P@@@@@@@@@@@@@@@@@@@K&9.[&9.[H@@@@@@@@@@@@@@@@@@@@@.+&9.[H@
   165 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 207 52 214 168 55 233 238 244 117 121 125 215 219 225 217 222 228 166 169 170 185 189 193 118 113 66 175 127 29 172 137 46 183 143 46 186 146 50 149 132 77 212 161 47 102 106 106 233 202 75 244 197 63 237 243 249 253 208 64 244 197 65 116 121 116 236 242 248 141 145 139 212 219 146 193 198 148 232 179 53 146 149 152 164 168 171 127 97 27 138 106 37 200 204 209 180 136 36 187 140 37 209 152 33 214 218 223 219 166 45 223 228 234 240 194 60 240 194 64 138 131 107 230 183 62 239 191 65 230 184 63 120 122 121 213 164 49 232 237 244 104 109 109 251 215 73 225 231 235 162 166 166 180 184 188 153 111 25 175 126 27 185 134 29 186 141 39 223 228 223 217 221 226 223 227 230 232 237 235 255 235 80 227 199 81 236 241 247 232 185 63 253 216 78 253 217 79 131 135 134 230 234 240 215 159 40 232 182 60 216 221 223 96 97 95 154 158 159 178 183 183 144 110 31 199 204 209 163 130 45 175 133 40 205 150 34 203 156 46 134 121 82 223 172 50 228 233 234 232 183 60 236 243 248 253 216 79 254 241 108 123 127 129 233 184 62 255 196 50 232 182 57 118 122 120 216 220 226 211 164 51 161 167 160 102 81 27 139 107 33 147 120 48 166 132 45 167 134 50 212 217 221 94 100 98 227 233 231 224 229 234 228 183 56 253 208 63 237 243 247 238 243 250 231 235 242 234 239 246 254 208 63 240 194 65 216 168 53 114 120 119 217 221 227 148 152 153 227 232 238 178 182 180 143 110 31 171 125 28 118 105 65 173 137 46 205 150 33 214 159 37 224 166 38 221 167 46 223 170 49 231 179 56 235 239 244 245 203 72 238 190 64 233 181 58 232 184 62 128 131 126 255 230 77 215 162 44 117 121 122 222 227 232 203 152 38 150 153 155 172 176 177 132 102 33 154 121 40 147 118 49 101 101 82 228 233 221 255 235 71 227 233 230 211 164 52 228 233 237 227 181 61 244 196 63 237 242 248 233 182 59 234 184 60 236 241 248 255 205 50 214 166 51 222 226 230 195 202 151 229 233 240 153 156 155 168 172 176 138 101 24 157 117 33 119 99 56 219 225 216 184 158 61 139 130 81 100 101 96 144 149 103 225 175 53 149 154 112 245 200 66 246 202 71 232 184 63 233 183 61 131 134 130 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@CA<@CA?OCA??CA??CA??CA??CA??CA?>CC?.CG??CG??#_/?#ON^CF_^C@?LCHL@CG<@CC8@C@@@C') ; yourself); yourself]
   166 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 207 52 214 168 55 233 238 244 117 121 125 215 219 225 217 222 228 166 169 170 185 189 193 118 113 66 175 127 29 172 137 46 183 143 46 186 146 50 149 132 77 212 161 47 102 106 106 233 202 75 244 197 63 237 243 249 253 208 64 244 197 65 116 121 116 236 242 248 141 145 139 212 219 146 193 198 148 232 179 53 146 149 152 164 168 171 127 97 27 138 106 37 200 204 209 180 136 36 187 140 37 209 152 33 214 218 223 219 166 45 223 228 234 240 194 60 240 194 64 138 131 107 230 183 62 239 191 65 230 184 63 120 122 121 213 164 49 232 237 244 104 109 109 251 215 73 225 231 235 162 166 166 180 184 188 153 111 25 175 126 27 185 134 29 186 141 39 223 228 223 217 221 226 223 227 230 232 237 235 255 235 80 227 199 81 236 241 247 232 185 63 253 216 78 253 217 79 131 135 134 230 234 240 215 159 40 232 182 60 216 221 223 96 97 95 154 158 159 178 183 183 144 110 31 199 204 209 163 130 45 175 133 40 205 150 34 203 156 46 134 121 82 223 172 50 228 233 234 232 183 60 236 243 248 253 216 79 254 241 108 123 127 129 233 184 62 255 196 50 232 182 57 118 122 120 216 220 226 211 164 51 161 167 160 102 81 27 139 107 33 147 120 48 166 132 45 167 134 50 212 217 221 94 100 98 227 233 231 224 229 234 228 183 56 253 208 63 237 243 247 238 243 250 231 235 242 234 239 246 254 208 63 240 194 65 216 168 53 114 120 119 217 221 227 148 152 153 227 232 238 178 182 180 143 110 31 171 125 28 118 105 65 173 137 46 205 150 33 214 159 37 224 166 38 221 167 46 223 170 49 231 179 56 235 239 244 245 203 72 238 190 64 233 181 58 232 184 62 128 131 126 255 230 77 215 162 44 117 121 122 222 227 232 203 152 38 150 153 155 172 176 177 132 102 33 154 121 40 147 118 49 101 101 82 228 233 221 255 235 71 227 233 230 211 164 52 228 233 237 227 181 61 244 196 63 237 242 248 233 182 59 234 184 60 236 241 248 255 205 50 214 166 51 222 226 230 195 202 151 229 233 240 153 156 155 168 172 176 138 101 24 157 117 33 119 99 56 219 225 216 184 158 61 139 130 81 100 101 96 144 149 103 225 175 53 149 154 112 245 200 66 246 202 71 232 184 63 233 183 61 131 134 130 0 0 0 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C@@@C@@@CA<@CA?OCA??CA??CA??CA??CA??CA?>CC?.CG??CG??#_/?#ON^CF_^C@?LCHL@CG<@CC8@C@@@C') ; yourself); yourself]
   166 ! !
   167 ! !
       
   168 
   167 
   169 
   168 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
   170 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
   169 
   171 
   170 windowSpec
   172 windowSpec
   171     "This resource specification was automatically generated
   173     "This resource specification was automatically generated
   455          
   457          
   456         )
   458         )
   457       )
   459       )
   458 ! !
   460 ! !
   459 
   461 
       
   462 
   460 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'menu specs'!
   463 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'menu specs'!
   461 
   464 
   462 menuPerModule
   465 menuPerModule
   463     "This resource specification was automatically generated
   466     "This resource specification was automatically generated
   464      by the MenuEditor of ST/X."
   467      by the MenuEditor of ST/X."
   486         nil
   489         nil
   487         nil
   490         nil
   488       )
   491       )
   489 ! !
   492 ! !
   490 
   493 
       
   494 
   491 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'queries'!
   495 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'queries'!
   492 
   496 
   493 managerClass
   497 managerClass
   494     "backlink to my manager class (needed by the settings app)"
   498     "backlink to my manager class (needed by the settings app)"
   495 
   499 
   496     ^ PerforceSourceCodeManager
   500     ^ PerforceSourceCodeManager
   497 
   501 
   498     "Created: / 19-04-2011 / 12:52:02 / cg"
   502     "Created: / 19-04-2011 / 12:52:02 / cg"
   499 ! !
   503 ! !
       
   504 
   500 
   505 
   501 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
   506 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
   502 
   507 
   503 tableColumns
   508 tableColumns
   504     "This resource specification was automatically generated
   509     "This resource specification was automatically generated
   541        )
   546        )
   542       )
   547       )
   543     
   548     
   544 ! !
   549 ! !
   545 
   550 
       
   551 
   546 !PerforceSourceCodeManagementSettingsAppl methodsFor:'actions'!
   552 !PerforceSourceCodeManagementSettingsAppl methodsFor:'actions'!
   547 
   553 
   548 addModule:aModuleManager
   554 addModule:aModuleManager
   549 
   555 
   550     |detectedManager|
   556     |detectedManager|
   703     module := self selectedPerModuleRoot value.
   709     module := self selectedPerModuleRoot value.
   704     self listOfModules remove:module ifAbsent:nil.
   710     self listOfModules remove:module ifAbsent:nil.
   705     self updateModifiedChannel.
   711     self updateModifiedChannel.
   706 ! !
   712 ! !
   707 
   713 
       
   714 
   708 !PerforceSourceCodeManagementSettingsAppl methodsFor:'aspects'!
   715 !PerforceSourceCodeManagementSettingsAppl methodsFor:'aspects'!
   709 
   716 
   710 checkLabel
   717 checkLabel
   711     <resource: #uiAspect>
   718     <resource: #uiAspect>
   712 
   719 
   806         verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
   813         verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
   807     ].
   814     ].
   808     ^ verboseSourceCodeAccess.
   815     ^ verboseSourceCodeAccess.
   809 ! !
   816 ! !
   810 
   817 
       
   818 
   811 !PerforceSourceCodeManagementSettingsAppl methodsFor:'change & update'!
   819 !PerforceSourceCodeManagementSettingsAppl methodsFor:'change & update'!
   812 
   820 
   813 selectedPerModuleRootChanged
   821 selectedPerModuleRootChanged
   814 
   822 
   815     self removeEnabled value:self selectedPerModuleRoot value notNil.
   823     self removeEnabled value:self selectedPerModuleRoot value notNil.
   834     super update:something with:aParameter from:changedObject
   842     super update:something with:aParameter from:changedObject
   835 
   843 
   836     "Modified: / 09-11-2006 / 14:41:10 / cg"
   844     "Modified: / 09-11-2006 / 14:41:10 / cg"
   837 ! !
   845 ! !
   838 
   846 
       
   847 
   839 !PerforceSourceCodeManagementSettingsAppl methodsFor:'help'!
   848 !PerforceSourceCodeManagementSettingsAppl methodsFor:'help'!
   840 
   849 
   841 helpFilename
   850 helpFilename
   842     ^ 'Launcher/perforceSetup.html'
   851     ^ 'Launcher/perforceSetup.html'
   843 
   852 
   844     "Modified: / 05-08-2011 / 09:10:03 / cg"
   853     "Modified: / 05-08-2011 / 09:10:03 / cg"
   845 ! !
   854 ! !
   846 
   855 
       
   856 
   847 !PerforceSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
   857 !PerforceSourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
   848 
   858 
   849 initialize
   859 initialize
   850     (AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
   860     (AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
   851 
   861 
   854 
   864 
   855     super initialize.
   865     super initialize.
   856 
   866 
   857     "Modified: / 08-11-2006 / 19:20:32 / cg"
   867     "Modified: / 08-11-2006 / 19:20:32 / cg"
   858 ! !
   868 ! !
       
   869 
   859 
   870 
   860 !PerforceSourceCodeManagementSettingsAppl methodsFor:'queries'!
   871 !PerforceSourceCodeManagementSettingsAppl methodsFor:'queries'!
   861 
   872 
   862 hasManager
   873 hasManager
   863     "true if ANY source code management class is available"
   874     "true if ANY source code management class is available"
   922         repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
   933         repositoryInfoPerModule at:aModuleManager module put:aModuleManager settings.
   923     ].
   934     ].
   924     ^ repositoryInfoPerModule
   935     ^ repositoryInfoPerModule
   925 ! !
   936 ! !
   926 
   937 
       
   938 
   927 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'!
   939 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'instance creation'!
   928 
   940 
   929 openFromSourceCodeManagementSettingsApp:something
   941 openFromSourceCodeManagementSettingsApp:something
   930 
   942 
   931     |inst|
   943     |inst|
   933     inst := self new.
   945     inst := self new.
   934     inst sourceCodeManagementSettingsApp:something.
   946     inst sourceCodeManagementSettingsApp:something.
   935     inst openModal.
   947     inst openModal.
   936     ^ inst
   948     ^ inst
   937 ! !
   949 ! !
       
   950 
   938 
   951 
   939 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'interface specs'!
   952 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp class methodsFor:'interface specs'!
   940 
   953 
   941 windowSpec
   954 windowSpec
   942     "This resource specification was automatically generated
   955     "This resource specification was automatically generated
  1092          
  1105          
  1093         )
  1106         )
  1094       )
  1107       )
  1095 ! !
  1108 ! !
  1096 
  1109 
       
  1110 
  1097 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'!
  1111 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'accessing'!
  1098 
  1112 
  1099 canceled
  1113 canceled
  1100     ^ canceled
  1114     ^ canceled
  1101 !
  1115 !
  1113 !
  1127 !
  1114 
  1128 
  1115 sourceCodeManagementSettingsApp:something
  1129 sourceCodeManagementSettingsApp:something
  1116     sourceCodeManagementSettingsApp := something.
  1130     sourceCodeManagementSettingsApp := something.
  1117 ! !
  1131 ! !
       
  1132 
  1118 
  1133 
  1119 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'!
  1134 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'aspects'!
  1120 
  1135 
  1121 acceptChannel
  1136 acceptChannel
  1122     <resource: #uiAspect>
  1137     <resource: #uiAspect>
  1188 "/       settingsHolder addDependent:self.
  1203 "/       settingsHolder addDependent:self.
  1189 "/       settingsHolder onChangeSend:#settingsHolderChanged to:self.
  1204 "/       settingsHolder onChangeSend:#settingsHolderChanged to:self.
  1190     ].
  1205     ].
  1191     ^ settingsHolder.
  1206     ^ settingsHolder.
  1192 ! !
  1207 ! !
       
  1208 
  1193 
  1209 
  1194 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'!
  1210 !PerforceSourceCodeManagementSettingsAppl::ManagerPerModuleApp methodsFor:'initialization & release'!
  1195 
  1211 
  1196 doCancel
  1212 doCancel
  1197 
  1213 
  1222     "/ add any code here ...
  1238     "/ add any code here ...
  1223 
  1239 
  1224     ^ super postOpenWith:aBuilder
  1240     ^ super postOpenWith:aBuilder
  1225 ! !
  1241 ! !
  1226 
  1242 
       
  1243 
  1227 !PerforceSourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'!
  1244 !PerforceSourceCodeManagementSettingsAppl::ModuleManager class methodsFor:'instance creation'!
  1228 
  1245 
  1229 newForApplication:anApplication
  1246 newForApplication:anApplication
  1230     |instance|
  1247     |instance|
  1231 
  1248 
  1232     instance := self new.
  1249     instance := self new.
  1233     instance app:anApplication.
  1250     instance app:anApplication.
  1234     ^instance
  1251     ^instance
  1235 ! !
  1252 ! !
       
  1253 
  1236 
  1254 
  1237 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'!
  1255 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'accessing'!
  1238 
  1256 
  1239 app
  1257 app
  1240     ^ app
  1258     ^ app
  1296     settings := something.
  1314     settings := something.
  1297     app notNil ifTrue:[
  1315     app notNil ifTrue:[
  1298         app listOfModules changed.
  1316         app listOfModules changed.
  1299     ].
  1317     ].
  1300 ! !
  1318 ! !
       
  1319 
  1301 
  1320 
  1302 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'actions'!
  1321 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'actions'!
  1303 
  1322 
  1304 doubleClick
  1323 doubleClick
  1305 
  1324 
  1310         check := PerforceSourceCodeManager checkPerforceSettings:settings forPackage:module.
  1329         check := PerforceSourceCodeManager checkPerforceSettings:settings forPackage:module.
  1311     ].
  1330     ].
  1312     self changed.
  1331     self changed.
  1313 ! !
  1332 ! !
  1314 
  1333 
       
  1334 
  1315 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'!
  1335 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'comparing'!
  1316 
  1336 
  1317 < aModuleManager
  1337 < aModuleManager
  1318 
  1338 
  1319     ^ self module < aModuleManager module
  1339     ^ self module < aModuleManager module
  1320 ! !
  1340 ! !
       
  1341 
  1321 
  1342 
  1322 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'!
  1343 !PerforceSourceCodeManagementSettingsAppl::ModuleManager methodsFor:'queries'!
  1323 
  1344 
  1324 availableManagerTypeNames
  1345 availableManagerTypeNames
  1325     ^ AbstractSourceCodeManager availableManagers collect:[:cls | cls managerTypeName].
  1346     ^ AbstractSourceCodeManager availableManagers collect:[:cls | cls managerTypeName].
  1328 managerClass
  1349 managerClass
  1329 
  1350 
  1330     ^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil].
  1351     ^ AbstractSourceCodeManager availableManagers detect:[:cls | cls managerTypeName = manager] ifNone:[nil].
  1331 ! !
  1352 ! !
  1332 
  1353 
       
  1354 
  1333 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
  1355 !PerforceSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
  1334 
  1356 
  1335 version
  1357 version
  1336     ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.25 2012/07/19 15:27:52 stefan Exp $'
  1358     ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.25 2012-07-19 15:27:52 stefan Exp $'
  1337 !
  1359 !
  1338 
  1360 
  1339 version_CVS
  1361 version_CVS
  1340     ^ '§Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.25 2012/07/19 15:27:52 stefan Exp §'
  1362     ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagementSettingsAppl.st,v 1.25 2012-07-19 15:27:52 stefan Exp $'
  1341 !
  1363 !
  1342 
  1364 
  1343 version_SVN
  1365 version_SVN
  1344     ^ '$Id: PerforceSourceCodeManagementSettingsAppl.st 8022 2012-07-25 09:51:30Z vranyj1 $'
  1366     ^ '§Id§'
  1345 ! !
  1367 ! !
       
  1368