--- UMain.pas	2010年06月06日 23:33:38.000000000 +0200
+++ UMain.pas.mod	2010年06月07日 00:08:09.000000000 +0200
@@ -2665,7 +2665,10 @@
 end;
 end;
 end else FCopyMove.Entry.Text := '*.*';
- end else FCopyMove.Entry.Text := OppositeEngine.Path;
+ end else begin
+ if SelSingle <strong> '' then FCopyMove.Entry.Text := OppositeEngine.Path + SelSingle
+ else FCopyMove.Entry.Text := OppositeEngine.Path;
+ end;
 { if OppositeEngine is TLocalTreeEngine then FCopyMove.Entry.Text := OppositeEngine.Path
 else FCopyMove.Entry.Text := Format(ConstFullPathFormatStr, [OppositeEngine.GetPrefix, OppositeEngine.Path]); }
 if not BypassSelAll then FCopyMove.Entry.SelectAll;
</div><div class="naked_ctrl">
<form action="/index.cgi/speech" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://www.scheibli.com/patches/tuxcmd-0.6.70-TcF5F6Behaviour.patch">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://www.scheibli.com/patches/tuxcmd-0.6.70-TcF5F6Behaviour.patch" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech" selected="selected">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>