Posted to tcl by rz at Tue Sep 05 11:09:55 GMT 2017view raw

  1. grid [text .t -yscrollcommand {.y set}] -row 1 -column 1 -sticky nesw
  2. grid [ttk::scrollbar .y -command {.t yview}] -row 1 -column 2 -sticky ns
  3. .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9"
  4. .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9"
  5. .t insert end "1\n2\n3\n4\n5\n6\n7\n8\n9"
  6.