<div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr">Hi Tim, Hi Marcel,</div><br><div class="gmail_quote"><div dir="ltr">On Tue, Jan 8, 2019 at 10:41 AM tim Rowledge <<a href="mailto:tim@rowledge.org">tim@rowledge.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"><br>
> On 2019-01-08, at 12:01 AM, Marcel Taeumel <<a href="mailto:marcel.taeumel@hpi.de" target="_blank">marcel.taeumel@hpi.de</a>> wrote:<br>
> <br>
> put it into the "60Deprecated" package. Please do not delete it. Also, add a commt to what use as substitute.<br>
<br>
Aww, there you go again being all reasonable :-( I just wanted to nuke it from orbit; is that so terrible? <br>
<br>
I'll be pushing to actually dump deprecated stuff more aggressively. No backsliding to where we have eleventy-twelve layers of deprecated stuff waiting to be spaced.<br></blockquote><div><br></div><div>Here are the three uses I find in a VMMaker image.  Clearly none is vital but it would be nice to have a rewrite that doesn't use <font color="#000000">StandardFileMenu for the B3D one.  I think Marcel is right to suggest 60Deprecated as its final resting place.  Deprecated code can be unloaded in the short term and discarded in the long.  Do we have a policy on how long deprecated packages stay in trunk?</font></div><div><span style="color:rgb(0,0,0)"><br></span></div><div><div>'From Squeak5.3alpha of 2 January 2019 [latest update: #18337] on 8 January 2019 at 11:11:33 am'!</div><div><br></div><div>!B3DSceneExplorerMorph methodsFor: 'actions'!</div><div>openThreeDSFile</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">       </span>| menu result newFileString myScene |</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">  </span>menu := StandardFileMenu oldFileMenu: (FileDirectory default) withPattern: '*.3ds'.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">    </span>result := menu startUpWithCaption: 'Select 3DS model file ...'.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">        </span>result ifNotNil: [<span class="gmail-Apple-tab-span" style="white-space:pre">    </span></div><div><span class="gmail-Apple-tab-span" style="white-space:pre">               </span>newFileString := (result directory pathName),(result directory pathNameDelimiter asString),(result name).</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">              </span>myScene := (B3DScene withoutQuestionsFrom3DS: (ThreeDSParser parseFileNamed: newFileString)).</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">          </span>self scene: myScene].! !</div><div><br></div><div>!VMMakerTool methodsFor: 'configurations' stamp: 'ar 3/10/2002 15:05'!</div><div>loadConfig</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">        </span>| fileResult file |</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">    </span>fileResult := (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*.config')</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                            </span>startUpWithCaption: 'Select VMMaker configuration...'.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre"> </span>fileResult</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">             </span>ifNotNil: [file := fileResult directory fullNameFor: fileResult name.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                  </span>[vmMaker := VMMaker forConfigurationFile: file.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                        </span>vmMaker logger: logger.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                        </span>vmMaker platformDirectory]</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                             </span>on: Error</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                              </span>do: [self inform: 'Possible problem with path settings or platform name?'].</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                    </span>self updateAllViews]! !</div><div><br></div><div>!VMMakerTool methodsFor: 'configurations' stamp: 'rww 9/23/2001 14:17'!</div><div>saveConfig</div><div><br></div><div><span class="gmail-Apple-tab-span" style="white-space:pre">       </span>"write info about the current configuration to a file."</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">      </span>| fileResult file |</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">    </span>fileResult := (StandardFileMenu newFileMenu: FileDirectory default withPattern: '*.config')</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">            </span>startUpWithCaption: 'Save VMMaker configuration...'.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">   </span>fileResult ifNotNil: [</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">         </span>('*.config' match: fileResult name)</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">                    </span>ifFalse: [fileResult name: (fileResult name, '.config')].</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">              </span>file := fileResult directory fullNameFor: fileResult name.</div><div><span class="gmail-Apple-tab-span" style="white-space:pre">             </span>vmMaker saveConfigurationTo: file].</div><div>! !</div></div><div><br></div></div><br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><span style="font-size:small;border-collapse:separate"><div>_,,,^..^,,,_<br></div><div>best, Eliot</div></span></div></div></div></div></div></div>