AbstractLauncherApplication.st
branchjv
changeset 16717 814e3fa20205
parent 16689 70b43a6c4755
child 16748 62486fba2d74
--- a/AbstractLauncherApplication.st	Thu Jun 30 07:04:36 2016 +0200
+++ b/AbstractLauncherApplication.st	Tue Jun 28 08:06:44 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -7549,7 +7547,7 @@
                                 |dir|
 
                                 package notNil ifTrue:[
-                                    dir := Smalltalk packageDirectoryForPackageId:package.
+                                    dir := Smalltalk getPackageDirectoryForPackage:package.
                                     dir notNil ifTrue:[
                                         FileBrowser default openOn:dir.
                                     ] ifFalse:[
@@ -7589,6 +7587,8 @@
         ].
     ].
     ^ m
+
+    "Modified: / 28-06-2016 / 07:55:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 loadAction:doBrowse 
@@ -7976,7 +7976,7 @@
         ].
     ] ifFalse:[
         "/ try to find the package's source
-        dir := Smalltalk packageDirectoryForPackageId:package.
+        dir := Smalltalk getPackageDirectoryForPackage:package.
         dir notNil ifTrue:[
             "/ is there a project definition class's source?
             className := ProjectDefinition projectDefinitionClassNameForDefinitionOf:package.
@@ -8027,6 +8027,8 @@
         info := info withColor:Color red.
     ].
     infoTextHolder value:info.
+
+    "Modified: / 28-06-2016 / 07:55:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateAction:whatChanged parameter:parameter