Fix comments to be ! not #!.

[factor.git] / basis / ui / ui.factor

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 580ff3936fadb4baec5cff6c382117f4b13a7c83..796a2d39f6a1514629ab1649f686e1a9e788c65b 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -17,12 +17,12 @@ SYMBOL: ui-windows
 : window ( handle -- world ) ui-windows get-global at ;
 
 : register-window ( world handle -- )
-    #! Add the new window just below the topmost window. Why?
-    #! So that if the new window doesn't actually receive focus
-    #! (eg, we're using focus follows mouse and the mouse is not
-    #! in the new window when it appears) Factor doesn't get
-    #! confused and send workspace operations to the new window,
-    #! etc.
+    ! Add the new window just below the topmost window. Why?
+    ! So that if the new window doesn't actually receive focus
+    ! (eg, we're using focus follows mouse and the mouse is not
+    ! in the new window when it appears) Factor doesn't get
+    ! confused and send workspace operations to the new window,
+    ! etc.
     swap 2array ui-windows get-global push
     ui-windows get-global dup length 1 >
     [ [ length 1 - dup 1 - ] keep exchange ] [ drop ] if ;
@@ -156,10 +156,10 @@ PRIVATE>
 <PRIVATE
 
 : update-ui-loop ( -- )
-    #! Note the logic: if update-ui fails, we open an error window
-    #! and run one iteration of update-ui. If that also fails, well,
-    #! the whole UI subsystem is broken so we exit out of the
-    #! update-ui-loop.
+    ! Note the logic: if update-ui fails, we open an error window
+    ! and run one iteration of update-ui. If that also fails, well,
+    ! the whole UI subsystem is broken so we exit out of the
+    ! update-ui-loop.
     [ { [ ui-running? ] [ ui-thread get-global self eq? ] } 0&& ]
     [
         ui-notify-flag get lower-flag