
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

  <head>


    <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">

  </head>

  <body text="#000000" bgcolor="#ffffff">

    Problem:<br>

    <br>

    saveConfig<br>

    &nbsp;&nbsp;&nbsp; "write info about the current configuration to a file."<br>

    <br>

    &nbsp;&nbsp;&nbsp; (UIManager default request: 'Save VMMaker configuration...'

    initialAnswer: self configFileName)<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ifNotNilDo: [:file | | path |<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ('*.config' match: file)<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ifFalse: [<font color="#ff0000"><big>Cannot store

        into -&gt;</big></font>file := file , '.config'].<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; "If path is not valid, this is probably because we are

    running the image on a different<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; platform. Assume this is the case, and change the path

    to current default if it appears<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; to be invalid."<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; path := file copyUpToLast: FileDirectory

    pathNameDelimiter.<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (FileDirectory default directoryExists: path)<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ifFalse: [ file := file copyReplaceAll: path with:

    FileDirectory default pathName].<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; vmMaker saveConfigurationTo: file.<br>

    &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; configFileName := file]<br>

  </body>

</html>