]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/windows/handles/handles.factor
ui.tools.listener.completion: change history completion popup to preserve newlines
[factor.git] / basis / windows / handles / handles.factor
index 70ffdf80a61730c66521b09e78d0cf3f553f2117..0fb57eb814320fea3e0156260d1a3a7c0613f760 100644 (file)
@@ -1,6 +1,6 @@
 ! Copyright (C) 2010 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors destructors io.timeouts kernel windows.errors
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors destructors kernel windows.errors
 windows.kernel32 windows.types ;
 IN: windows.handles
 
@@ -17,13 +17,5 @@ TUPLE: win32-handle < disposable handle ;
 : <win32-handle> ( handle -- win32-handle )
     win32-handle new-win32-handle ;
 
-M: win32-handle dispose* ( handle -- )
+M: win32-handle dispose*
     handle>> CloseHandle win32-error=0/f ;
-
-TUPLE: win32-file < win32-handle ptr ;
-
-: <win32-file> ( handle -- win32-file )
-    win32-file new-win32-handle ;
-
-M: win32-file dispose
-    [ cancel-operation ] [ call-next-method ] bi ;