Remove new-gadget since it was just an alias for new

basis/cairo/gadgets/gadgets.factor

@@ -26,7 +26,7 @@ GENERIC: render-cairo* ( gadget -- )
 TUPLE: cairo-gadget < gadget ;
 
 : <cairo-gadget> ( dim -- gadget )
-    cairo-gadget new-gadget
+    cairo-gadget new
         swap >>dim ;
 
 M: cairo-gadget draw-gadget*

basis/ui/gadgets/books/books.factor

@@ -17,7 +17,7 @@ M: book model-changed ( model book -- )
     relayout ;
 
 : new-book ( model class -- book )
-    new-gadget
+    new
         swap >>model ; inline
 
 : <book> ( pages model -- book )

basis/ui/gadgets/canvas/canvas.factor

@@ -8,7 +8,7 @@ IN: ui.gadgets.canvas
 TUPLE: canvas < gadget dlist ;
 
 : new-canvas ( class -- canvas )
-    new-gadget black <solid> >>interior ; inline
+    new black <solid> >>interior ; inline
 
 : delete-canvas-dlist ( canvas -- )
     [ find-gl-context ]

basis/ui/gadgets/debug/debug.factor

@@ -8,7 +8,7 @@ TUPLE: baseline-gadget < gadget baseline ;
 M: baseline-gadget baseline baseline>> ;
 
 : <baseline-gadget> ( baseline dim -- gadget )
-    baseline-gadget new-gadget
+    baseline-gadget new
         swap >>dim
         swap >>baseline ;
 
@@ -26,7 +26,7 @@ M: bad-gadget draw-gadget* "Lulz" throw ;
 
 M: bad-gadget pref-dim* drop { 100 100 } ;
 
-: <bad-gadget> ( -- gadget ) bad-gadget new-gadget ;
+: <bad-gadget> ( -- gadget ) bad-gadget new ;
 
 : bad-gadget-test ( -- )
     <bad-button> "Test 1" open-window

basis/ui/gadgets/frames/frames.factor

@@ -14,7 +14,7 @@ TUPLE: glue < gadget ;
 
 M: glue pref-dim* drop { 0 0 } ;
 
-: <glue> ( -- glue ) glue new-gadget ;
+: <glue> ( -- glue ) glue new ;
 
 : <frame-grid> ( cols rows -- grid )
     swap '[ _ [ <glue> ] replicate ] replicate ;

basis/ui/gadgets/gadgets-tests.factor

@@ -75,7 +75,7 @@ IN: ui.gadgets.tests
 TUPLE: mock-gadget < gadget graft-called ungraft-called ;
 
 : <mock-gadget> ( -- gadget )
-    mock-gadget new-gadget 0 >>graft-called 0 >>ungraft-called ;
+    mock-gadget new 0 >>graft-called 0 >>ungraft-called ;
 
 M: mock-gadget graft*
     [ 1+ ] change-graft-called drop ;

basis/ui/gadgets/gadgets.factor

@@ -36,10 +36,8 @@ M: gadget model-changed 2drop ;
 
 : nth-gadget ( n gadget -- child ) children>> nth ;
 
-: new-gadget ( class -- gadget ) new ; inline
-
 : <gadget> ( -- gadget )
-    gadget new-gadget ;
+    gadget new ;
 
 : control-value ( control -- value )
     model>> value>> ;

basis/ui/gadgets/glass/glass.factor

@@ -17,7 +17,7 @@ M: gadget hide-glass-hook drop ;
 TUPLE: glass < gadget visible-rect owner ;
 
 : <glass> ( owner child visible-rect -- glass )
-    glass new-gadget
+    glass new
         swap >>visible-rect
         swap add-gadget
         swap >>owner ;

basis/ui/gadgets/grids/grids.factor

@@ -11,7 +11,7 @@ grid
 { fill? initial: t } ;
 
 : new-grid ( children class -- grid )
-    new-gadget
+    new
         swap [ >>grid ] [ concat add-gadgets ] bi ; inline
 
 : <grid> ( children -- grid )

basis/ui/gadgets/incremental/incremental.factor

@@ -8,7 +8,7 @@ IN: ui.gadgets.incremental
 TUPLE: incremental < pack cursor ;
 
 : <incremental> ( -- incremental )
-    incremental new-gadget
+    incremental new
         vertical >>orientation
         { 0 0 } >>cursor ;
 

basis/ui/gadgets/labels/labels.factor

@@ -38,7 +38,7 @@ M: label (>>string) ( string label -- )
     sans-serif-font >>font ; inline
 
 : new-label ( string class -- label )
-    new-gadget
+    new
     swap >>string
     label-theme ; inline
 

basis/ui/gadgets/packs/packs.factor

@@ -50,7 +50,7 @@ PRIVATE>
     [ [ packed-locs ] [ children>> ] bi [ (>>loc) ] 2each ] 2bi ;
 
 : <pack> ( orientation -- pack )
-    pack new-gadget
+    pack new
         swap >>orientation ;
 
 : <pile> ( -- pack ) vertical <pack> ;

basis/ui/gadgets/panes/panes.factor

@@ -50,7 +50,7 @@ M: pane gadget-selection ( pane -- string/f )
     bi ;
 
 : new-pane ( input class -- pane )
-    new-gadget
+    new
         swap >>input
         1 >>fill
         vertical >>orientation

basis/ui/gadgets/paragraphs/paragraphs-tests.factor

@@ -5,7 +5,7 @@ sequences kernel ;
 
 TUPLE: fake-break < gadget ;
 
-: <fake-break> ( -- gadget ) fake-break new-gadget { 5 5 } >>dim ;
+: <fake-break> ( -- gadget ) fake-break new { 5 5 } >>dim ;
 
 INSTANCE: fake-break word-break
 

basis/ui/gadgets/paragraphs/paragraphs.factor

@@ -20,7 +20,7 @@ INSTANCE: word-break-gadget word-break
 TUPLE: paragraph < gadget margin ;
 
 : <paragraph> ( margin -- gadget )
-    paragraph new-gadget
+    paragraph new
     horizontal >>orientation
     swap >>margin ;
 

basis/ui/gadgets/sliders/sliders.factor

@@ -129,7 +129,7 @@ elevator H{
 } set-gestures
 
 : <elevator> ( vector -- elevator )
-    elevator new-gadget
+    elevator new
         swap >>orientation ;
 
 : thumb-loc ( slider -- loc )

basis/ui/gadgets/worlds/worlds-tests.factor

@@ -49,12 +49,12 @@ IN: ui.gadgets.worlds.tests
 TUPLE: focusing < gadget ;
 
 : <focusing>
-    focusing new-gadget ;
+    focusing new ;
 
 TUPLE: focus-test < gadget ;
 
 : <focus-test>
-    focus-test new-gadget
+    focus-test new
     dup <focusing> add-gadget drop ;
 
 M: focus-test focusable-child* gadget-child ;

basis/ui/gadgets/wrappers/wrappers.factor

@@ -6,7 +6,7 @@ IN: ui.gadgets.wrappers
 TUPLE: wrapper < gadget ;
 
 : new-wrapper ( child class -- wrapper )
-    new-gadget swap add-gadget ; inline
+    new swap add-gadget ; inline
 
 : <wrapper> ( child -- wrapper ) wrapper new-wrapper ;
 

basis/ui/tools/deploy/deploy.factor

@@ -104,7 +104,7 @@ deploy-gadget "toolbar" f {
 } define-command-map
 
 : <deploy-gadget> ( vocab -- gadget )
-    deploy-gadget new-gadget
+    deploy-gadget new
       over >>vocab
       vertical >>orientation
       swap <deploy-settings> >>settings

basis/ui/ui-docs.factor

@@ -1,7 +1,8 @@
 USING: help.markup help.syntax strings quotations debugger
 namespaces ui.backend ui.gadgets ui.gadgets.worlds
 ui.gadgets.tracks ui.gadgets.packs ui.gadgets.grids
-ui.gadgets.private math.rectangles colors ui.text fonts ;
+ui.gadgets.private math.rectangles colors ui.text fonts
+kernel ;
 IN: ui
 
 HELP: windows
@@ -226,8 +227,8 @@ ARTICLE: "new-gadgets" "Implementing new gadgets"
 $nl
 "Bare gadgets can be constructed directly, which is useful if all you need is a custom appearance with no further behavior (see " { $link "ui-pen-protocol" } "):"
 { $subsection <gadget> }
-"New gadgets are defined as subclasses of an existing gadget type, perhaps even " { $link gadget } " itself. A parametrized constructor should be used to construct subclasses:"
+"New gadgets are defined as subclasses of an existing gadget type, perhaps even " { $link gadget } " itself. Direct subclasses of " { $link gadget } " can be constructed using " { $link new } ", however some subclasses may define their own parametrized constructors (see " { $link "parametrized-constructors" } ")."
-{ $subsection new-gadget }
+$nl
 "Further topics:"
 { $subsection "ui-gestures" }
 { $subsection "ui-paint" }

extra/joystick-demo/joystick-demo.factor

@@ -67,7 +67,7 @@ M: axis-gadget pref-dim* drop SIZE ;
     pov-polygons [ add-pov-gadget ] assoc-map >>pov ;
 
 : <axis-gadget> ( -- gadget )
-    axis-gadget new-gadget
+    axis-gadget new
     add-pov-gadgets
     black <indicator-gadget> [ >>z-indicator ] [ add-gadget ] bi
     red   <indicator-gadget> [ >>indicator   ] [ add-gadget ] bi
@@ -97,7 +97,7 @@ TUPLE: joystick-demo-gadget < pack axis raxis controller buttons alarm ;
     [ (add-button-gadgets) ] 2keep ;
 
 : <joystick-demo-gadget> ( controller -- gadget )
-    joystick-demo-gadget new-gadget
+    joystick-demo-gadget new
     { 0 1 } >>orientation
     swap add-controller-label
     <shelf> add-axis-gadget add-raxis-gadget add-gadget

extra/key-caps/key-caps.factor

@@ -151,7 +151,7 @@ TUPLE: key-caps-gadget < gadget keys alarm ;
     [ >>keys ] tri ;
 
 : <key-caps-gadget> ( -- gadget )
-    key-caps-gadget new-gadget
+    key-caps-gadget new
     add-keys-gadgets ;
 
 M: key-caps-gadget pref-dim* drop KEYBOARD-SIZE ;

extra/nehe/2/2.factor

@@ -8,7 +8,7 @@ TUPLE: nehe2-gadget < gadget ;
 : height 256 ;
 
 : <nehe2-gadget> (  -- gadget )
-  nehe2-gadget new-gadget ;
+  nehe2-gadget new ;
 
 M: nehe2-gadget pref-dim* ( gadget -- dim )
   drop width height 2array ;

extra/nehe/3/3.factor

@@ -8,7 +8,7 @@ TUPLE: nehe3-gadget < gadget ;
 : height 256 ;
 
 : <nehe3-gadget> (  -- gadget )
-  nehe3-gadget new-gadget ;
+  nehe3-gadget new ;
 
 M: nehe3-gadget pref-dim* ( gadget -- dim )
   drop width height 2array ;

extra/nehe/4/4.factor

@@ -10,7 +10,7 @@ TUPLE: nehe4-gadget < gadget rtri rquad thread quit? ;
 : redraw-interval ( -- dt ) 10 milliseconds ;
 
 : <nehe4-gadget> (  -- gadget )
-  nehe4-gadget new-gadget
+  nehe4-gadget new
     0.0 >>rtri
     0.0 >>rquad ;
 

extra/nehe/5/5.factor

@@ -9,7 +9,7 @@ TUPLE: nehe5-gadget < gadget rtri rquad thread quit? ;
 : redraw-interval ( -- dt ) 10 milliseconds ;
 
 : <nehe5-gadget> (  -- gadget )
-  nehe5-gadget new-gadget
+  nehe5-gadget new
     0.0 >>rtri
     0.0 >>rquad ;
 

extra/opengl/demo-support/demo-support.factor

@@ -12,7 +12,7 @@ SYMBOL: last-drag-loc
 TUPLE: demo-gadget < gadget yaw pitch distance ;
 
 : new-demo-gadget ( yaw pitch distance class -- gadget )
-    new-gadget
+    new
         swap >>distance
         swap >>pitch
         swap >>yaw ;

extra/tetris/tetris.factor

@@ -6,7 +6,7 @@ IN: tetris
 TUPLE: tetris-gadget < gadget { tetris tetris } { alarm } ;
 
 : <tetris-gadget> ( tetris -- gadget )
-    tetris-gadget new-gadget swap >>tetris ;
+    tetris-gadget new swap >>tetris ;
 
 M: tetris-gadget pref-dim* drop { 200 400 } ;